VBA ComboBox-input into a cell

[george hart]

Hi again

I need the code to place what's selected in a combobox into the next "blank" cell in column "B". This code works but places the selected item into all cells in column B that are not blank???..confused.

Private Sub OKButton_Click()
Dim x As Variant
For x = 4 To Cells(Rows.Count, "B").End(xlUp).Row

If Range("B" & x).Value <> "" Then Range("B" & x) = ComboBox1.Value

Next x
Unload UserForm1

End Sub

 

[VoG]

Try

Private Sub OKButton_Click()
Range("B" & Rows.Count).End(xlUp).Offset(1).Value = ComboBox1.Value
Unload UserForm1
End Sub

 

[george hart]

Thanks very much...works a treat.