saving and entering data in next sheet using command button

[Souharda]

On sheet 1 i have a command button and two text boxes, once an user fills the text boxes and click on the command button, the table on sheet1 will be saved and on sheet 2 the contents of the text box will be entered in the A and B columns and in C the time of the transaction will be entered. Can any one help me out with the code plz.

 

[Alan_P]

Hi Souharda,

I don't understand what you are asking for here?

the table on sheet1 will be saved

As for the textboxes, it depends on whether you're using Shape textboxes or ActiveX textboxes?

If using shape textboxes use this code;

Private Sub CommandButton1_Click()

Dim LastRw As Long

LastRw = Sheets("Sheet2").UsedRange.Rows.Count

Sheets("Sheet2").Cells(LastRw + 1, "A").Value = Sheets("Sheet1").TextBoxes("TextBox 1").Text
Sheets("Sheet2").Cells(LastRw + 1, "B").Value = Sheets("Sheet1").TextBoxes("TextBox 2").Text
Sheets("Sheet2").Cells(LastRw + 1, "C").Value = TimeValue(Now)

End Sub

If using ActiveX textboxes use this code;

Private Sub CommandButton1_Click()

Dim LastRw As Long

LastRw = Sheets("Sheet2").UsedRange.Rows.Count

Sheets("Sheet2").Cells(LastRw + 1, "A").Value = Sheets("Sheet1").TextBox1.Text
Sheets("Sheet2").Cells(LastRw + 1, "B").Value = Sheets("Sheet1").TextBox2.Text
Sheets("Sheet2").Cells(LastRw + 1, "C").Value = TimeValue(Now)

End Sub

Hope this helps,
Cheers,
Alan.