excel - Copy data from one workbook to another workboook -
this question has answer here:
- copy data workbook through vba 4 answers
i trying figure out copy data 1 workbook workbook. issue keep having workbook copying change names every time.
the work book pasting data stay same. have down how grab data having issue of switching workbook copying data from.
this have far.
sub grabdata() application.screenupdating = false application.displayalerts = false dim w workbook w = activeworkbook lrow = thisworkbook.sheets("month").cells(rows.count, 3).end(xlup).row loopend = lrow - 16 lrowtxttab = 2 x = 32 loopend ' grabs metrics month tab (this grab data workbook , change everytime thisworkbook.sheets("month").select gridend = x + 16 range("d" & x, "v" & gridend).copy (this workbook stay same time) workbooks("nrbsrub").activate workbooks("nrbsrub").worksheets("sheet5").select range("e" & lrowtxttab).select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _ :=false, transpose:=true ' grabs assocaited brands per metrics copied on above brandname = thisworkbook.sheets("month").range("a" & x) sheets("sheet5").range("b" & lrowtxttab, "b" & lrowtxttab + 18) = brandname lrowtxttab = lrowtxttab + 19 x = x + 17 next x ' grabs fy time frames fisc_mo column lrowtxttab = thisworkbook.sheets("sheet5").cells(rows.count, 5).end(xlup).row thisworkbook.sheets("month").range("d2:v2").copy sheets("sheet5").range("c2").pastespecial paste:=xlpastevalues, operation:=xlnone, _ skipblanks:=false, transpose:=true application.screenupdating = true`enter code here` application.displayalerts = true end sub
i having issue of switching workbook copying data from
use set
dim w workbook: set w = activeworkbook
then can switch between workbooks this:
w.activate
or use with
method
with w lrow = .sheets("month").cells(rows.count, 3).end(xlup).row 'do whatever need w end with workbooks("nrbsrub") 'do whatever need workbooks("nrbsrub") end
Comments
Post a Comment