Estoy creando un programa de punto de ventas y tengo problemas con esta formula me da siempre un error 381 ahora bien es lo mismo cuando programo el boton de editar productos sigue diciendome que hay un error 381
Private Sub Boton_Editar_Click()
Dim var As Integer
var = Me.Lista_Clientes.ListIndex
If valor = -1 Then
MsgBox "Se debe seleccionar un producto para editar", vbxclamation, "ADVERTENCIA"
Exit Sub
End If
Dim codigo As Integer
codigo = Me.Lista_Clientes.List(Me.Lista_Clientes.ListIndex, 0)
Load Edita_Clientes
Edita_Clientes.ID.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 1, 0)
Edita_Clientes.Nombre.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 2, 0)
Edita_Clientes.Telefono.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 3, 0)
Edita_Clientes.Domicilio.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 4, 0)
Edita_Clientes.email.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 5, 0)
Me.Lista_Clientes.RowSource = Clear
Me.Hide
Unload Me
Edita_Clientes.Show
Ese error 381 está relacionado con el índice de la matriz que contiene tu lista
comprueba si la matriz comienza en 0 o en 1
los elementos irían de 0 hasta númeroelementos - 1
pero si comienza en 1 irían desde 1 hasta númerodelementos
Sin un archivo de ejemplo y sin saber en qué línea aparece el error que comentas poco más te puedo decir.
------
Ya sé Excel, pero necesito más.
Revisare la matriz y la lista detalladamente agradezco su ayuda