Private Sub ComboBox1_Change()
Dim v
v = Val(ComboBox1.Value)
If Not IsEmpty(ComboBox1.Value) Then
Me.Label4.Caption = Application.WorksheetFunction.VLookup(v, Range("A6:G12"), 2, False)
End If
End Sub
cuando el formato del combox1 es numerico funciona bien, pero cuando son letras no me funciona...
alguien me puede ayudar agradecere mucho




