ComboBox1 value to auto populate TextBox1

[Patriot2879]

Hello good afternoon, hope you can help me please. I have the code below where i have made a module called 'GetDataNow' and linked that with the Combobox1, but i get an error with the code and when i select a name in combobox1, textbox1 does not populate the value from 'Fixer Info' sheet Row D2 to last row. hope you can help please?

Option Explicit

Dim id As String, i As Long, j As Integer, flag As Boolean

Sub GetDataNow()
   Dim Rw As Variant
   If Len(UserForm2.ComboBox1.Value) > 0 Then
      
      flag = False
      id = UserForm2.ComboBox1.Value
      Rw = Application.Match(id, Sheets("Fixer Info").Range("A2:A56"), 0)
      
      If Not IsError(Rw) Then
         flag = True
         For j = 4
            UserForm2.Controls("ComboBox" & j).Value = ThisWorkbook.Worksheets("Fixer Info").Cells(Rw, j).Value
         Next j
      End If
      
      If flag = False Then
         For j =  4
            UserForm2.Controls("ComboBox" & j).Value = ""
         Next j
      End If
      
   Else
   End If
End Sub

 

[Patriot2879]

Hello good afternoon, hope you can help me please. I have the code below where i have made a module called 'GetDataNow' and linked that with the Combobox1, but i get an error with the code and when i select a name in combobox1, textbox1 does not populate the value from 'Fixer Info' sheet Row D2 to last row. hope you can help please?

Option Explicit

Dim id As String, i As Long, j As Integer, flag As Boolean

Sub GetDataNow()
   Dim Rw As Variant
   If Len(UserForm2.ComboBox1.Value) > 0 Then
     
      flag = False
      id = UserForm2.ComboBox1.Value
      Rw = Application.Match(id, Sheets("Fixer Info").Range("A2:A56"), 0)
     
      If Not IsError(Rw) Then
         flag = True
         For j = 4
            UserForm2.Controls("ComboBox" & j).Value = ThisWorkbook.Worksheets("Fixer Info").Cells(Rw, j).Value
         Next j
      End If
     
      If flag = False Then
         For j =  4
            UserForm2.Controls("ComboBox" & j).Value = ""
         Next j
      End If
     
   Else
   End If
End Sub

I have also tried a different code but this didnt work either hope you can help please?

Private Sub ComboBox1_AfterUpdate()
   Dim Fnd As Range
  
   Set Fnd = ThisWorkbook.Sheets("Fixer Info").Range("A:A").Find(TextBox2.Value, , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then
      TextBox1.Value = Fnd.Offset(, 4).Value
   End If
  
End Sub

 

[NoSparks]

Have you tried finding ComboBox1.Value instead of TextBox2.Value and using a Fnd Offset of 3 columns instead of 4 ?

 

[Patriot2879]

Have you tried finding ComboBox1.Value instead of TextBox2.Value and using a Fnd Offset of 3 columns instead of 4 ?

sorted it now thank you for your help