vba writing from a userform to a spreadsheet

[cswan]

Hi

I have a userform and I need to be able to write a value entered into a text box from the userform into the next free cell on column C in my spreadsheet.

thanks

 

[VoG]

Try like this

Private Sub CommandButton1_Click()
Range("C" & Rows.Count).End(xlUp).Value = TextBox1.Text
End Sub

 

[cswan]

Thankyou it does write to the correct cell, but it overwrites the last value in the column rather than inserting it underneath in a new cell.
Any ideas?

thanks

 

[VoG]

Silly me

Private Sub CommandButton1_Click()
Range("C" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Text
End Sub

 

[cswan]

Ah brilliant, thank you very much

 

[cswan]

I also have two option buttons on my userform, is there any chance you know how I would make it so when one is pressed it writes "in" to the next available cell in column F or "out" when the other option button is selected to the same column? Perhaps a command button should be added to write the value once the option button has been selected?

Any help would be greatly appreciated

thanks

 

[VoG]

Try

Private Sub OptionButton1_Click()
Range("F" & Rows.Count).End(xlUp).Offset(1).Value = "In"
End Sub

Private Sub OptionButton2_Click()
Range("F" & Rows.Count).End(xlUp).Offset(1).Value = "Out"
End Sub

 

[cswan]

Thankyou, though if someone pressed in and then changed their mind and pressed out it would record both values in the spreadsheet, whereas I need it to only record it once, so perhaps for it to only take notice of the last one pressed.

I'm not really sure if I have explained that very well though

thanks

 

[VoG]

Perhaps include the options buttons with the previous code:

Private Sub CommandButton1_Click()
Range("C" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Text
If OptionButton1.Value = True Then
    Range("F" & Rows.Count).End(xlUp).Offset(1).Value = "In"
Else
    Range("F" & Rows.Count).End(xlUp).Offset(1).Value = "Out"
End If
End Sub

 

[cswan]

Thanks for your help