Error -2147024809 (80070057)
Publicado por By (222 intervenciones) el 28/10/2013 00:05:22
Proyecto en Excel pero me presenta el error mencionado.
Ejecuto el formulario Consulta y Modifica, selecciono una línea del ListBox, presiono el botón Modificar para abrir otro formulario donde modifico los datos y antes me sale el dicho error.
Como soy nulo en esto de programación de código, nada entiendo sobre el error aunque estuve buscando por google pero no encontré respuesta para tal fin.
¿Podría alguien resolverme dicho error? Dejo el código en el cual presenta dicho error para mejor entendimiento
Esta la carga del ListBox
Si por alguna razón necesitan el libro, lo subiré y dejare enlace una ves que uso W8 con IE10
Ejecuto el formulario Consulta y Modifica, selecciono una línea del ListBox, presiono el botón Modificar para abrir otro formulario donde modifico los datos y antes me sale el dicho error.
Como soy nulo en esto de programación de código, nada entiendo sobre el error aunque estuve buscando por google pero no encontré respuesta para tal fin.
¿Podría alguien resolverme dicho error? Dejo el código en el cual presenta dicho error para mejor entendimiento
1
2
3
4
5
6
7
8
Private Sub btnlistcliMO_Click()
If LC.ListIndex <> -1 Then
Modificar = TrueFilaModificacion = LC.List(LC.ListIndex, 8) 'AQUI ES DONDE ME MARCA ERROR
UFMOC.Showbtnbusccli_Click
End If
End Sub
Esta la carga del ListBox
1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
LC.ColumnCount = 8
LC.ColumnHeads = True
LC.ColumnWidths = "27 pt;135 pt;70 pt;170 pt;110 pt;70 pt;70 pt;140 pt"
LC.RowSource = "Proveedor!A2:H" & _
Sheets("Proveedor").Range("A" & Rows.Count).End(xlUp).Row
txtbusccli.SetFocusEnd Sub
Si por alguna razón necesitan el libro, lo subiré y dejare enlace una ves que uso W8 con IE10
Valora esta pregunta
0