Mostrar datos VBA

[TREBUR]

Hola, les pido apoyo para lo siguiente ?

Tengo un formulario sencillo de consulta incompleto en el cual se pretende cargar los datos necesarios que están en la hoja Planilla (CÉDULA, NOMBRES TRABAJADOR, NÓMINA). En el formulario también hay un ListBox que al hacer la consulta por Cédula debe cargar todos los conceptos de la Hoja Planilla referentes a ese trabajador.

 

muestradatos.xlsm

[Israel Cassales]

Hola, por el tiempo tal vez ya hayas resuelto la consulta, aunque adicionalmente podría servir para futuros lectores o a ti mismo, no sé, tal vez.

Te comento, encontré múltiples errores desde la apertura de tu libro que hacían incómodo trabajar con él. No sé si por eso hayas encontrado poca ayuda a pesar delas 18+ descargas. Falta la hoja4 solo por darte un ejemplo.

Por lo que pude revisar podrías intentar algo como esto en el Listbox:

Private Sub ListBox1_Click()
    Dim ws As Worksheet
    Dim rng As Range
    Dim i As Integer, j As Integer
    Dim Fila As Integer

    ' Establecer la hoja de trabajo
    Set ws = ThisWorkbook.Sheets("Planilla")

    ' Establecer el rango de celdas
    Set rng = ws.Range("A4:H20")

    ' Activar la hoja3
    Hoja3.Activate
    Hoja3.Select

    Fila = Me.ListBox1.ListIndex + 9

    ' Recorrer las filas y columnas en el rango
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            ' Mostrar los datos en la hoja3
            Hoja3.Cells(Fila + i - 1, j).Value = rng.Cells(i, j).Value
        Next j
    Next i

End Sub

Tendrías que editar el rango o personalizar un poco por las inconsistencias que te comenté que no me permitieron hacer mejores pruebas.

Saludines