Put every 2 columns into a new worksheet in excel -


is there vba scrip can take every 2 columns , turn new worksheet in same excel file? have 384 sets of columns needing turned new sheets. have 618 data points each column, if useful setting vba parameters.

i have tried searching answer online, , have found problem solved splitting every 900 rows new worksheet in same excel file, nothing columns. please see code below. have recorded macro , not written script, novice vba. tried replacing word row column in below script , changing 900 2, did not work either. 

sub test() dim lastrow long, myrow long, mysheet worksheet lastrow = thisworkbook.sheets("sheet1").cells(rows.count, 1).end(xlup).row myrow = 2 lastrow step 900 set mysheet = worksheets.add sheets("sheet1").rows(myrow & ":" & myrow + 899).entirerow.copy       mysheet.range("a1") next myrow end sub

i appreciate time , matter using code dozens of times.

thank you!

your code far being correct, @ least made effort of posting code. below tested, , works. prefer using ron de bruin's function finding last cells. can find on site, pasted herebelow well.

sub test()    dim lastrow integer, lastcolumn integer, v variant   dim ws worksheet, nws worksheet, integer    set ws = thisworkbook.sheets("sheet1")   lastrow = rdb_last(1, ws.cells)   lastcolumn = rdb_last(2, ws.cells)    = 1 lastcolumn step 2      v = ws.range(ws.cells(1, i), ws.cells(lastrow, + 1))     set nws = worksheets.add     nws.cells(1, 1).resize(ubound(v, 1) + i, ubound(v, 2)).value = v     set nws = nothing    next  end sub   function rdb_last(choice integer, rng range) ' ron de bruin, 5 may 2008 'returns address of last cell. row or column ' choice of 1 = last row. ' choice of 2 = last column. ' choice of 3 = last cell.    dim lrw long    dim lcol integer     select case choice     case 1:       on error resume next       rdb_last = rng.find(what:="*", _                           after:=rng.cells(1), _                           lookat:=xlpart, _                           lookin:=xlformulas, _                           searchorder:=xlbyrows, _                           searchdirection:=xlprevious, _                           matchcase:=false).row       on error goto 0     case 2:       on error resume next       rdb_last = rng.find(what:="*", _                           after:=rng.cells(1), _                           lookat:=xlpart, _                           lookin:=xlformulas, _                           searchorder:=xlbycolumns, _                           searchdirection:=xlprevious, _                           matchcase:=false).column       on error goto 0     case 3:       on error resume next       lrw = rng.find(what:="*", _                     after:=rng.cells(1), _                     lookat:=xlpart, _                     lookin:=xlformulas, _                     searchorder:=xlbyrows, _                     searchdirection:=xlprevious, _                     matchcase:=false).row       on error goto 0        on error resume next       lcol = rng.find(what:="*", _                      after:=rng.cells(1), _                      lookat:=xlpart, _                      lookin:=xlformulas, _                      searchorder:=xlbycolumns, _                      searchdirection:=xlprevious, _                      matchcase:=false).column       on error goto 0        on error resume next       rdb_last = rng.parent.cells(lrw, lcol).address(false, false)       if err.number > 0          rdb_last = rng.cells(1).address(false, false)          err.clear       end if       on error goto 0     end select end function

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