Mostrar ultimas filas con datos en un UserForm o como imagen

Tengo un formulario para la entrada de información por parte de un usuario, para evitar modificaciones involuntarias de la hoja de datos. Todo funciona ok, pero ahora se requiere que el usuario pueda ver las últimas entradas de información (digamos, las últimas 3 filas con información), tomando en cuenta de que estas últimas filas cambian cada vez que se ingresa nueva información.

He investigado y esto puede hacerse mostrando esa información en un formulario emergente con un ListBox, o también con un “snapshot” de esas últimas filas y colocarlo en un control de imagen dentro del formulario.

He intentado con el ListBox pero no doy pie con el código, además que hay diversas opiniones de como seleccionar las últimas filas a mostrar. No tengo la menor idea de cómo hacerlo con el snapshot. Cualquier ayuda al respecto será altamente apreciada!

1 respuesta

Respuesta
1

H o l a:

¿Estás programando en VBA de excel? Si es así, podrías enviarme tu archivo, me dices:

  • Cómo se llama tu formulario,
  • cómo se llama la hoja donde están los datos que se van a cargar,
  • Cuáles columnas quieres que se muestren en el listbox

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Jose Murillo” y el título de esta pregunta.

H o l a:

Pon el siguiente código en el evento Activate de tu formulario

Private Sub UserForm_Activate()
'Por.Dante Amor
    ListBox1.Clear
    u = Range("C" & Rows.Count).End(xlUp).Row
    Select Case u
        Case 1
            MsgBox "No existen entradas", vbExclamation, "Hecho"
            Unload Me
        Case 2: n = 0
        Case 3: n = 1
        Case Is > 3: n = 2
    End Select
    For i = u - n To u
        ListBox1.AddItem Cells(i, "C")
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "D")
        ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, "E")
        ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, "F")
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas