excel - Deleting specific intervals of rows in a csv file with VBA -


thanks nice guys here @ forum, have been able use following macro need :

public sub main()     'declaration     dim rng range     const sourcerange = "h"     dim numrange range, formulacell range     dim sumaddr string     dim c long      'loop trough rows     set rng = range("h2")     while rng.value <> ""         rng.offset(20).resize(1).entirerow.insert         set rng = rng.offset(21)     wend     'fill blank rows in    columns("a:a").select    selection.specialcells(xlcelltypeblanks).select    selection.formular1c1 = "=r[-1]c"      each numrange in columns(sourcerange).specialcells(xlconstants, xlnumbers).areas        sumaddr = numrange.address(false, false)        set formulacell = numrange.offset(numrange.count, 0).resize(1, 1)        formulacell.formula = "=sum(" & sumaddr & ")"         'change formatting liking:        formulacell.font.bold = true        formulacell.font.color = rgb(255, 0, 0)         c = numrange.count    next numrange  end sub

in short, creates row every 20th row, takes number cell above in column "a" in blank row , sum 20th previous cells in column "h" put "total score" in blank row.

i have 1 more question regarding macro.

after having run macro above, "sum" of 20 , 20 rows placed in new row added. ideally, delete of 20 rows have been summed , have added row left. problem last part of previous macro sums given number of cells up, , if delete rows summing wrong (as number cell above in column a).

is there way add macro deletes 20 , rows without effecting summing , number previous cell in column a?

it this: delete rows 2-21, skip row 22, delete row 23-42, skip row 43, delete row 44-63, skip row 64 , on.

i understand means having alter previous macro posted, guess it's worth asking.

thanks in advance guys.

best, helge

here go:

public sub main()     'declaration     dim rng range     const sourcerange = "h"     dim numrange range, formulacell range     dim sumaddr string     dim c long     dim ifirstrow integer, ilastcell integer       'loop trough rows in h column     set rng = range(sourcerange & "2")     while rng.value <> ""         rng.offset(20).resize(1).entirerow.insert         rng.offset(20)             .formula = "=sum(" & sourcerange & rng.row & ":" & sourcerange & rng.offset(19).row & ")"             .formula = .value2             'change formatting liking:             .font.bold = true             .font.color = rgb(255, 0, 0)              'set next group start             set rng = rng.offset(21)              'delete rows             ifirstrow = .column - 1             range(.offset(-20, -ifirstrow), .offset(-1, -ifirstrow))                  ilastcell = .cells(.rows.count, "a").end(xlup).row                  'fill blank rows in                 cells(rng.offset(-1).row, 1)                     .formula = "=" & cells(ilastcell, 1).address                     .formula = .value2                 end                  'delete group rows                 .entirerow.delete             end          end     wend end sub

Comments

Post a Comment

Popular posts from this blog

asynchronous - C# WinSCP .NET assembly: How to upload multiple files asynchronously -

i using winscp .net assembly uploading files. want upload multiple files asynchronous way. have created method works single upload. public class uploadingdata { private sessionoptions _sessionoptions; private session _session; //connection etc private void onconnected() { foreach (var fileinfo in localfileslist) { var task = task.factory.startnew(() => uploadfilesasync(fileinfo)); } } private async task uploadfilesasync(string file) { string remotefilepath = _session.translatelocalpathtoremote(file, @"/", "/test_data_upload"); var uploading = _session.putfiles(file, remotefilepath, false); //when done await task.run(() => thread.sleep(1000)); } } please suggest me correct way. thanks you can use backgroundworker class this: string[] images = new string[50]; foreach (var path in images) { backgroundworker
Read more

aws api gateway - SerializationException in posting new Records via Dynamodb Proxy Service in API -

i getting "__type": "com.amazon.coral.service#serializationexception" as reply in postman & in test console in api gateway trying post record directly dynamodb using api proxy services.. referring aws article - https://aws.amazon.com/blogs/compute/using-amazon-api-gateway-as-a-proxy-for-dynamodb/ here's mapping { "tablename": "tablenamegoeshere", "item": { "id" : "$context.requestid" "eventname" : "$input.path('$.eventname')", "timestamp" : $input.path('$.timestamp'), "answers": "$util.parsejson($input.path('$.answers'))" } } update: did asked ... , worked if try add array of json objects gives me above same error - here's trying now. please - couldnt find on google well #set($inputroot = $input.path('$')) { "tablename": "answer", "item": {
Read more

asp.net - Problems sending emails from forum -

i have been redesigning site has message board, has been written guy looked after site. it has few problems , written in .asp , uses .mdb files database. you can see whole thing here . feel free post if helps, test thing have set using original files , new database. the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted. i’d have thought @ point in process there should script/file in postmessage.asp? the postmessage.asp page below. <% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"
Read more