ComboBox If then Statement for moving cell

[clarkp81]

I am trying to have a spreadsheet enter the value of the NameTextBox into a cell if a selection in XYZComboBox is selected. However, when the code is run nothing happens. There are no errors indicated but still nothing appears in the selected box. The box that I would like the value to appear in moves down one row every time new data is entered which is why it is located using the find function. Any help would be greatly appreciated.

Private Sub OKButton_Click()

If Me.XYZComboBox.Value = "ABC" Then
Range(Cells.Find(what:="ABC").Address).Activate
Range(ActiveCell.Offset(0, 1)).Value = NameTextBox.Value
End If
end sub

 

[DanteAmor]

Try this

Private Sub OKButton_Click()


    If NameTextBox.Value = "" Then
        MsgBox "Enter data in NameTextBox"
        NameTextBox.SetFocus
        Exit Sub
    End If
    If Me.XYZComboBox.Value = "ABC" Then
        Set b = Cells.Find("ABC", LookIn:=xlValues, lookat:=xlWhole)
        If Not b Is Nothing Then
            b.Offset(0, 1).Value = NameTextBox.Value
        Else
            MsgBox "ABC, does no exists"
        End If
    Else
        MsgBox "Enter 'ABC' in combobox"
    End If
End Sub

 

[clarkp81]

Thanks for the help. It didn't work, but I learned how to do msgbox. The code does pop up with the msg box, but doesn't enter the value of the name text box into the cell next to the ABC cell.

 

[DanteAmor]

Haha, very funny, well you always learn something.

You can put the code you are using, exactly what data you have in the combo, in the texbox and in the cell.

 

[clarkp81]

I think that might be the easiest way. I really do appreciate the help though. Sorry if I came off as sarcastic.

 

[DanteAmor]

The success of a good code are the validations, maybe I exceeded in msgbox, but it is a way to reach a success.
The code works as you put your example:
Combo = "ABC"
some cell = "ABC"
Textbox = with some data

 

[clarkp81]

The success of a good code are the validations, maybe I exceeded in msgbox, but it is a way to reach a success.
The code works as you put your example:
Combo = "ABC"
some cell = "ABC"
Textbox = with some data

Just wanted to let you know that your code did work after all. Thank you very much, I am sorry for doubting you.

 

[DanteAmor]

Just wanted to let you know that your code did work after all. Thank you very much, I am sorry for doubting you.

Im glad to help you. Thanks for the feedback

 

[clarkp81]

Follow up question. The cell that I am trying to enter the nametextbox.value into should contain more than one value. So when the next line of data is entered it would look some thing like "Simpson, Bart - Burns, Montgomery - etc"
I tried to use the code
b.Offset(0, 1).Value = NameTextBox.Value &""& NameTextBox.Value
but the only thing that happens is it deletes the original value and then adds the same name for every line of data. ie
Simpson,Bart
Burns,MontgomeryBurns,Montgomery
Smpson,LisaSimpson,LisaSimpson,Lisa

 

[clarkp81]

It would also be okay if the next name just moved to an adjacent cell but b.Offset(0, 1)+1 didn't work.