Hola Buen Dia:
Tengo una duda sobre un formulario en el cual por medio de un TextBox hago una búsqueda y el resultado de la misma me aparece en un listbox, cuando yo doy click en uno de los resultados debería seleccionarse la linea donde se encuentra ese resultado en la
hoja, y lo hace con todos pero uno de ellos cuando lo selecciono no lo toma si no uno repetido si alguien me pudiera ayudar pongo parte del código que estoy utilizando.
'Activar la celda del registro elegido
Private Sub ListBox1_Click()
Range("a2").Activate
Cuenta = Me.ListBox1.ListCount - 1
Set rango = Range("A1").CurrentRegion
For i = 0 To Cuenta - 1
If Me.ListBox1.Selected(i) Then
Valor = Me.ListBox1.List(i)
rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i
End Sub