Copy Paste problem

[jimdaniels]

Hi people...
This is the Question:
Is it possible to copy the same cells(with different Data) to different rows using a button??
Something like
Button on click:
Copy (a1:a5) to (D15)
empty (a1:a5)
counter +1
End sub

And de next time the data is copied to (e1:5) and so on

I don't know if its possible but any help is welcome...

Thanx

Jim

 

[Stretchwickster]

I think this is what you are asking, please clarify if not:

Private Sub CommandButton1_Click()

  For counter = 1 To 5
    Range("A1:A5").Copy          'or use .Cut to remove the values from A1:A5
    Cells(15, counter).Activate
    ActiveSheet.Paste
  Next counter
  
End Sub

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)