transfer data from form to sheet

[meneike]

Hello everyone!

Just started using VBA. I've created a form and want to transfer the data captured with it to an active sheet at a certain active cell. I'm using the code below but it doesn't work, it just unload the form and doesn't write on the sheet. I'm sure it's something very basic going on, just can't find it. Can anybody help please? Thank you!!!
Meneike

Private Sub CommandButton1_Click()
Dim index
Worksheets("Database").Activate
index = ActiveCell.Row
Cells(index, 22).Value = "Part: " & TextBox2.Value &
Unload Me
End Sub

 

[Norie]

Try this.

Worksheets("Database").Cells(ActiveCell.Row, 22).Value = "Part: " & TextBox2.Value

 

[meneike]

It doesn't work. I've checked and the Sub is correctly called and does everything you code apart from Activating the sheet and then writing on it... Mistery... Maybe from Private Subs the sheets has to be activated differently?
m.