Zkus toto.
P.
Private Sub C2_Change()
On Error Resume Next
TextBox1.Value = WorksheetFunction.VLookup(Val(C2.Value), _
Sheets("Ceník").Range("F3:H21"), 3, False)
End Subcitovat
P.
Private Sub C2_Change()
On Error Resume Next
TextBox1.Value = WorksheetFunction.VLookup(Val(C2.Value), _
Sheets("Ceník").Range("F3:H21"), 3, False)
End Subcitovat