Szia!

 

Hát jelenleg ugye ez a használandó kód:

 

 

Private Sub ComboBox63_Change()

 

TextBox472.Text = Worksheets("kereses").Range("A1:A50").Find(What:=ComboBox63.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value

 

TextBox473.Text = Worksheets("kereses").Range("A1:A50").Find(What:=ComboBox63.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Offset(0, 2).Value

End Sub

 

 

 

A hibaüzenet:

 

Run-time error '13'

 

Type mismatch