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

Popular posts from this blog

how to proxy from https to http with lighttpd -

android - Automated my builds -

python - Flask migration error -