Error en listbox al seleccionar item para editar

Tengo la siguiente macro

Private Sub ListBox1_Click()
Range("a4").Activate
Cuenta = Me.ListBox1.ListCount
For i = 0 To Cuenta - 1
If Me.ListBox1.Selected(i) Then
'MsgBox Me.ListBox1.List(i)
Valor = Me.ListBox1.List(i)

'este es la linea que marca del error
ActiveSheet.Range("A1:A56").Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i

'Fila = Me.ListBox1.ListIndex + 2
'For i = 1 To 4
' Cells(Fila, 1).Activate
'Next i
End Sub

Esta me permite seleccionar un ítem de la lista del listbox para poder editarlo pero al seleccionarlo me da error adjunto link de archivo si alguien quisiera verificarlo en caso de que sea algo mas

Gracias de antemano.  https://drive.google.com/file/d/0B798EFGaiKE0Yzl0YzBJMm1JM3c/view?usp=sharing 

1 respuesta

Respuesta
1

Feliz navidad

Seria de este manera

Private Sub ListBox1_Click()

Range("a4").Activate
    cuenta = Me.ListBox1.ListCount
    For i = 0 To cuenta - 1
        If Me.ListBox1.Selected(i) Then
          Set busco = ActiveSheet.Range("b:b").Find(Me.ListBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
busco.Offset(0, -1).Select
End If
        End If
    Next i

End Sub

No olvides valorar si te silve para cerrar la pregunta 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas