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

jhonyepv

avatar
Buena tarde comunidad

Les comparto que tengo un problema con un listbox el cual muestra el resultado de un filtro realizado con un combobox.


  • El problema consiste en que deseo que al seleccionar el dato en el listbox pueda ubicarse en la celda a la que pertenece el dato.


Nota: Esta acción me permitara luego correr otra macro que funciona bien y que modificara datos en la celda activa.

Gracias por su sugerencias con este proyecto.
Archivos
listobox.xlsm
No tienes los permisos para descargar los archivos.
(47 KB)

jhonyepv

avatar
Buena noche a todos.

Les envio una foto para que sepa que es lo que pretendo con listbox.

https://drive.google.com/file/d/0BzsE8j0mvGE9bDFtWFdUeGJXbjA/view?usp=sharing

En mi ignoracia en listbox_clic he colocado este código

Código:
Private Sub ListBox1_Click() 'se supone que practicamente este intruccion deberia ubicarse en la celda del dato seleccionado del textbox
If ListBox1.ListCount <> 0 Then
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then Exit For
  Next i
  End If
End Sub


Saludos
Archivos
listobox.xlsm
No tienes los permisos para descargar los archivos.
(45 KB)

jhon1904

avatar
Hola Jhony

Utiliza este código haber si te funciona

Código:
Valor = ListBox1.List(ListBox1.ListIndex)
    Set r = Range("A1:A75536")
    Set s = r.Find(Valor)
    If Not s Is Nothing Then
        ncell = s.Address
        s.Activate
        Do: Set s = r.FindNext(s)
            If Not s Is Nothing And s.Address <> ncell Then s.Activate
        Loop While Not s Is Nothing And s.Address <> ncell
    Else
        MsgBox "no existe", vbCritical
    End If

Saludos,


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