como siempre molestando

[Kelyto]

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...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ST]

y si le quitas "Val" y los parentesis ?