excel - Procedure does not paste value in the destination sheet -
ok wrote small sub
:
sub dingo() dim apriori dim e integer dim n integer dim rr integer dim yolk integer dim timy integer 'timy = yeah.count rr = activeworkbook.worksheets.count yolk = rr e = 1 each apriori in yeah 'we need loop on copying mechanism!!!-re-test dim rng range if trim(apriori) <> "" sheets(yolk).range("1:1") set rng = .find(apriori, .cells(.cells.count), xlvalues, xlwhole, xlbyrows, _ xlnext, false) yolk = yolk - 1 'e = 1 if not rng nothing application.goto rng, true activecell.offset(26, 0).copy worksheets("extractions").range("b2").offset(, e).paste e = e + 1 else msgbox "nothing found" end if end end if next apriori end sub
it supposed find value , put variable named apriori
, offset
26 rows down.
however reason not know macro not paste result in destination sheet.... ideas why happening?
activecell.offset(26, 0).copy worksheets("extractions").range("b2").offset(, e).paste
you don't need .paste
@ end of line, supplying destination paste.
Comments
Post a Comment