Combobox excel
Tengo una busqueda
valor = WorksheetFunction.VLookup(Val(combobox1.Value), Sheets("base de datos").Range("A1:D10"), 2, 0) pero no me busca valores numericos y de texto a la vez si cambio a solo combobox.value busca solo texto sabes como podria hacerlo? Gracias de antemano
valor = WorksheetFunction.VLookup(Val(combobox1.Value), Sheets("base de datos").Range("A1:D10"), 2, 0) pero no me busca valores numericos y de texto a la vez si cambio a solo combobox.value busca solo texto sabes como podria hacerlo? Gracias de antemano
1 respuesta
Respuesta de Elsa Matilde
1
Probá con esta rutina:
Private Sub ComboBox1_Change()
Dim valor As String
Dim valor2
If IsNumeric(ComboBox1.Value) Then
valor2 = Val(ComboBox1.Value)
Else
valor2 = ComboBox1.Value
End If
valor = WorksheetFunction.VLookup(valor2, Sheets("Hoja2").Range("A3:D10"), 2, 0)
MsgBox valor
End Sub
Saludos y no dejes de comentarme come te resultó
Private Sub ComboBox1_Change()
Dim valor As String
Dim valor2
If IsNumeric(ComboBox1.Value) Then
valor2 = Val(ComboBox1.Value)
Else
valor2 = ComboBox1.Value
End If
valor = WorksheetFunction.VLookup(valor2, Sheets("Hoja2").Range("A3:D10"), 2, 0)
MsgBox valor
End Sub
Saludos y no dejes de comentarme come te resultó
