Need Help with Script

[DustinS]

If cell [X11] = An even increment of 100,000 (100k,200k,300k etc)

Then copy [Sheet1!$E$32:$AH$32] to [Sheet2!$A$1:$AD$30] (Copy 1 Row x
30 Columns of data from sheet 1 to sheet 2)


I need to copy the data from the 30 cell range to a new 30 cell range on
sheet 2 every 100,000 cycles.

Example:

Cycle 100,000 21 91 89 86 87 81 79 77 76 75 74 73 72 71 70 69 68 67 67
66 66 66 66 69 69 68 68 68 68 104
200,000 77 1 95 95 90 87 84 82 80 79 77 76 75 74 74 73 72 71 71 70 70
69 69 68 68 70 71 72 51 54



If you can help me put this in the format of an excel script let me know!

Thanks!

 

[gearoi]

sub subname


LOOP begin (not sure if you need a do while ..... loop or a for ..
next loop... need more info)

If cell [X11] mod 100000 = 0 then

sheets("Sheet1").select
range("$E etc.").select
activerange.copy
sheets("sheet2").select
range("top of where you want to paste").select
activesheet.paste (you might have to record a copy and paste macro t
find the right syntax for copying and pasting)

end if

LOOP en