unload textbox if another cell is not empty

[JustinN1]

I have a userform with a textbox and a command button. I need the textbox value to be entered into column e if the corresponding cell in column a is not blank.

Thanks!!!

 

[VoG]

Maybe like this

Private Sub CommandButton1_Click()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("E" & LR).Value = Me.TextBox1.Text
End Sub

 

[JustinN1]

Sorry but I wasn't clear on everything. Sheet1 is hidden and the code just given only inserts it on the first empty cell on the current worksheet. So the workbook opens with sheet 2 being the only visible sheet. I need the textbox value to be entered in every cell in Colomn e if the corresponding cell in column a is not blank....and this is all for hidden sheet1. Please let me know if I'm not explaining well enough.

Thanks for the help!

 

[VoG]

Try

Private Sub CommandButton1_Click()
Dim LR As Long
With Sheet1
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("E1:E" & LR).Value = Me.TextBox1.Text
End With
End Sub

 

[JustinN1]

Thanks for the help so quick. It works great.