Excel - Error -2147024809 (80070057)

   
Vista:
Imágen de perfil de By

Error -2147024809 (80070057)

Publicado por By (161 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

1
2
3
4
5
6
7
8
Private Sub btnlistcliMO_Click()
If LC.ListIndex <> -1 Then
   Modificar = True
   FilaModificacion = LC.List(LC.ListIndex, 8)  'AQUI ES DONDE ME MARCA ERROR
   UFMOC.Show
   btnbusccli_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.SetFocus
End Sub

Si por alguna razón necesitan el libro, lo subiré y dejare enlace una ves que uso W8 con IE10
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder