Personal timer help how to save data to another sheet..

[raf]

Please help me how to add command with my button 7, Button 7 should save the data continually going to 2nd sheet of the workbook.
--If i clear the sheet 1, and input another data, and click save again it will be added to the 2nd sheet.

Advance thanks!

 

[Smallman]

Hi @raf

Your code should look something like this.

Sub Button7_Click()
Dim rng As Range
Set rng = Range("D8", Range("D" & Rows.Count).End(xlUp))
  rng.Offset(, -1).Resize(, 9).Copy Sheet2.Range("C" & Rows.Count).End(xlUp)(2)
End Sub

I have attached a workbook to show workings.

Take care

Smallman

 

[raf]

Hi @raf

Your code should look something like this.

Sub Button7_Click()
Dim rng As Range
Set rng = Range("D8", Range("D" & Rows.Count).End(xlUp))
  rng.Offset(, -1).Resize(, 9).Copy Sheet2.Range("C" & Rows.Count).End(xlUp)(2)
End Sub

I have attached a workbook to show workings.

Take care

Smallman

That really resolves my code... thank you so much smallman! You are the man!!!

 

[Smallman]

Thanks @raf

You are welcome. Catch you next time.

Smallman