UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

hhgarrotev

avatar
Estimados.
Deseo filtrar datos de una tabla, mediante textbox, que muestre en listbox, luego seleccionar de esta lista e ir a la celda donde esta el dato.
Adjunto archivo, que bajé, solo cambié los valores de la tabla.

Arroja error en la linea en rojo.

'Activar la celda del registro elegido
Private Sub ListBox1_Click()
Sheets("Hoja1").Range("a2").Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Sheets("Hoja1").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

Enlace para archivo:   https://mega.nz/#!1styFIbZ

Se agradece ayuda.
Saludos



Última edición por hhgarrotev el 21/05/17, 04:52 pm, editado 2 veces (Razón : Disculpas faltó no puedo subir el archivo)

jhon1904

avatar
hola,

el archivo del enlace sale con cifrado, y no se pude descargar

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

hhgarrotev

avatar
Gracias por responder. Jhon1904.
Veré como puedo subir el archivo, mis disculpas, la verdad no tengo experiencia en tema de trabajar con archivos en la nube.

Saludos

jhon1904

avatar
Cerrado Por Abandono.


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.