saving data from user form to excel worksheet

[VBAmalta89]

Hi

I am new to this VBA business and I have created a user form using VBA in excel to capture data from users. Now i need to save the data from the text boxes and combo boxes I created to be stored in particular cells on particular worksheets. How can i do this?

Thanks

 

[rs2k]

This should get you started;

Private Sub CommandButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
'find first row in database
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Range("A" & irow) = TextBox1.Value
.Range("B" & irow) = TextBox2.Value
.Range("C" & irow) = TextBox3.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

End Sub

HTH
Colin

 

[VBAmalta89]

Ok so I am managing to reference the columns but how do i reference the cells as well. For example how would i change the code you gave me if i want to store in cell D5?

THanks once again for your help.

 

[rs2k]

To send to a specific cell try;

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.Range("D5") = TextBox1.Value
ws.Range("D6") = TextBox2.Value
ws.Range("D7") = TextBox3.Value
End Sub

HTH
Colin

 

[VBAmalta89]

it worked perfectly

thanks for your time