View Single Post
  #1   Report Post  
swatsp0p
 
Posts: n/a
Default copy 45 rows down, repetativly, only on button click?


Try...
------------------------------------
Private Sub CommandButton1_Click()

Row = 7 ' adjust starting point as needed
Range("A" & Row).EntireRow.Copy
For i = 0 To 1000 Step 45
'adjust to meet your needs
If Range("A" & Row + i) = "" Then Range("A" & Row + i).PasteSpecial
Next i

End Sub

------------------------------------

Does this work for you?


--
swatsp0p


------------------------------------------------------------------------
swatsp0p's Profile: http://www.excelforum.com/member.php...o&userid=15101
View this thread: http://www.excelforum.com/showthread...hreadid=373342