Paste value into worksheet if TextBox value is less than 10

[Kyle M]

I have a UserForm with a TextBox named TextBox1 and Command Button. I want to add code to the UserForm so if a number that is less than 10 is entered into TextBox1 and the command button is clicked the number 7 will paste into cell A5. However if the number in TextBox1 is greater than or equal to 10 nothing will happen when the command button is clicked. Can you assist with this?

 

[rs2k]

Hi Kyle,

Try adding this code to your button;

Private Sub CommandButton1_Click()
Select Case TextBox1.Value
Case Is < 10
Sheets("Sheet1").Range("A5").Value = 7
Case Else
End Select
Unload Me
End Sub

HTH
Colin

 

[Kyle M]

SOLVED: Paste value into worksheet if TextBox value is less than 10

Hi Colin,

This is perfect. It does exactly what I needed. Thank you!