Visual Basic para Aplicaciones - Ir de listbox a registro

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 177
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Ir de listbox a registro

Publicado por Albert (204 intervenciones) el 14/02/2015 19:19:43
Buenas tardes foreros, no soy capaz de hacer que me funcione un pequeño código, que en teoría debería hacer que al clicar un registro dentro de un listbox vaya al registro en la hoja, el listBox lo he llenado también con código vba.
Mil grcias de antemano

1
2
3
4
5
6
7
8
9
10
Private Sub ListBox1_Click()
    With ListBox1
        Select Case .ListIndex
            Case Is < 0: Exit Sub
            Case Else:
                Sheets(.Column(2, .ListIndex)).Select
                Range(.Column(1, .ListIndex)).Select
        End Select
    End With
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 177
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Ir de listbox a registro

Publicado por albert (204 intervenciones) el 15/02/2015 22:57:19
Estimados foreros, tras luchar dos días en esta tontería ya he dado con la solución, os la adjunto por si a alguien le puede servir
En primer lugar deciros que en el listBox tengo una línea que me dice la fila y la columna donde esta el dato (creo que podría estar oculta pero a mi me sirve vista

1
listbox1.Column(0,listbox1 .ListCount - 1) = Celda.Address(0, 0)

Y aquí el código para que al clicar encima de un registro del listbox te lleve directamente a él en la hoja cierra el useform lo limpia y lo encoje y deja como al principio

1
2
3
4
5
6
7
Private Sub ListBox1_Click()
    Range(ListBox1.Column(0, ListBox1.ListIndex)).Select
    Usf_Buscar.Hide
    ListBox1.Clear
   TextBox1 = ""
   Unload Me
End Sub

Espero haberme explicado bien Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar