Error 13 en vba
Publicado por Jose Luis (3 intervenciones) el 02/06/2019 09:36:56
Buenas a todos.
A partir de una pequeña tabla estoy haciendo busquedas en vba usando la función indice y la función coincidir.
He creado un combobox y otra celda mediante validación de datos pero al colocar el código en un botón command me da error 13. A ver si alguien me puede echar una mano.
El código es este.
Gracias y saludos
A partir de una pequeña tabla estoy haciendo busquedas en vba usando la función indice y la función coincidir.
He creado un combobox y otra celda mediante validación de datos pero al colocar el código en un botón command me da error 13. A ver si alguien me puede echar una mano.
El código es este.
1
2
3
4
5
6
7
Private Sub cmd1_Click()
Dim resultado As Integer
resultado = Application.WorksheetFunction.Index(Range("D16:H21"), _
Application.Match(Val(Me.cbo1.Value), Range("D17:D21"), 0), _
Application.Match(Val(Range("D26").Value), Range("D16:H16"), 0))
MsgBox "Los kilos son" & resultado
End Sub
Gracias y saludos
Valora esta pregunta
0
