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
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
