Adding Data in textBox in multiple columns by selecting comboBox

[fazil1980]

Hello Everyone,
i am having some trouble in excel if anyone can help me out,

Now the scenario is. in column A we have Owner's Name which are also duplicating in Column D to H.
now in excel vba I have created a userform with a combo box, textbox and save button.
ComboBox is a list of owners.
textbox we have to write Plate number for car.
when press save button the plate number should add in columns D to H according to the selection of combo box.

Thank you

 

[DanteAmor]

Hi and welcome to MrExcel.

when press save button the plate number should add in columns D to H according to the selection of combo box.

Try this:

Private Sub CommandButton1_Click()
  Dim f As Range
  If lstCar.ListIndex > -1 Then
    Set f = Sheet1.Range("A1:H1").Find(lstCar.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      Sheet1.Cells(Rows.Count, f.Column).End(3)(2).Value = txtCar.Value
    End If
  Else
    MsgBox "Enter Owner"
    lstCar.SetFocus
  End If
End Sub

 

[fazil1980]

Hi and welcome to MrExcel.


Try this:

Private Sub CommandButton1_Click()
  Dim f As Range
  If lstCar.ListIndex > -1 Then
    Set f = Sheet1.Range("A1:H1").Find(lstCar.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      Sheet1.Cells(Rows.Count, f.Column).End(3)(2).Value = txtCar.Value
    End If
  Else
    MsgBox "Enter Owner"
    lstCar.SetFocus
  End If
End Sub

Yes, That's work Great thank you...

 

[Peter_SSs]

Yes, That's work Great thank you...

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.