excel - How to use pastespecial with End(xlUp) -


i having issue getting data 1 sheet paste special sheet, trying consolidate multiple files (same headers, differing number of rows) 1 master sheet containing rows. @ moment i'm doing opening files, pulling in tabs want, copy , pasting data, , deleting tabs. yes sure there easier way, i'm new vba , learning on fly..here's have far:

sub consolidatesheets()  ' open each file in folder dim folder string dim files string folder = "c:\users\212411103\documents\risk project tracker\risk project tracker monthly\monthly data" files = dir(folder & "\*.xls") while files <> "" workbooks.open filename:=folder & "\" & files files = dir loop  ' pull in risk project tracker tab each file new workbook  dim wkb workbook dim swksname string  swksname = "risk project tracker" each wkb in workbooks if wkb.name <> thisworkbook.name     wkb.worksheets(swksname).copy _       before:=thisworkbook.sheets(1) end if next set wkb = nothing  dim j integer  ' add new sheet combined data  on error resume next sheets(1).select worksheets.add sheets(1).name = "new month"  ' paste headers first 2 rows new sheet "new month"  sheets(2).select range("a1:ah2").select selection.copy sheets("new month").select selection.pastespecial paste:=xlpastecolumnwidths, operation:=xlnone, _     skipblanks:=false, transpose:=false activesheet.paste range("a1").select  ' work through sheets j = 2 sheets.count ' sheet 2 last sheet sheets(j).activate ' make sheet active rows("1:2").select selection.delete shift:=xlup  range("a1:ah500").select selection.copy sheets("new month").select selection.pastespecial paste:=xlpastecolumnwidths, operation:=xlnone, _     skipblanks:=false, transpose:=false range("a1").select  next  ' delete tabs no longer needed i.e. tabs 17 files  ' each ws in sheets ' application.displayalerts=false ' if ws.name <> "new month" ws.delete ' next ' application.displayalerts=true  end sub

it appears primary reason specifying range .pastespecial method carry-over of column widths done every tab. perhaps cycling through a:ah once , setting column widths should sufficient.

sub consolidatesheets2()     dim fldr string, fn string, swksname string, snewwksname string     dim ws worksheet, wkb workbook      on error goto bm_safe_exit     application.screenupdating = false     application.enableevents = false      swksname = "risk project tracker"     fldr = "c:\users\212411103\documents\risk project tracker\risk project tracker monthly\monthly data"     fn = dir(fldr & "\*.xls")     snewwksname = "new month"      thisworkbook         while fn <> ""             set wkb = workbooks.open(filename:=fldr & chr(92) & fn)             if isobject(wkb.worksheets(swksname))                 wkb.worksheets(swksname).copy _                     before:=thisworkbook.sheets(1 - cbool(sheets(1).name = snewwksname))                 on error goto bm_need_new_month_ws                 .worksheets(snewwksname)                     on error goto bm_safe_exit                     .parent.sheets(2).range("a3:ah502").copy _                         destination:=.cells(rows.count, 1).end(xlup).offset(1, 0)                 end             end if             wkb.close false             fn = dir         loop         application.displayalerts = false         while sheet.count > 1: sheets(2).delete: loop     end      goto bm_safe_exit  bm_need_new_month_ws:     if err.number = 9         thisworkbook.worksheets.add(before:=thisworkbook.sheets(1))             .name = snewwksname             .move before:=sheets(1)             .parent.sheets(2).range("a1:ah2").copy _                 destination:=.range("a1")             c = .columns("ah:ah").column 1 step -1                 .columns(c).columnwidth = _                     .parent.sheets(2).columns(c).columnwidth             next c         end         resume     end if  bm_safe_exit:     application.screenupdating = true     application.enableevents = true  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more