Ver ultima fila de registros
Cordial saludo
Tengo una lista en excel así:
112 a
112 b
112 c
112 d
113 b
113 d
113 a
114 d
Quiero que solo con dar una click o algo me saque el último registro de cada uno, es decir que solo me muestre el último así:
112 d
113 a
114 d
Muchas gracias por tu ayuda
Tengo una lista en excel así:
112 a
112 b
112 c
112 d
113 b
113 d
113 a
114 d
Quiero que solo con dar una click o algo me saque el último registro de cada uno, es decir que solo me muestre el último así:
112 d
113 a
114 d
Muchas gracias por tu ayuda
1 respuesta
Respuesta de Elsa Matilde
1
La rutina que te adjunto, la colocarás en un módulo del Editor. Luego desde la hoja Excel, menú Herramientas, Macro, la seleccionas y con el botón Opciones le puedes asignar un atajo de teclado con la tecla Ctrl y que por ejemplo.
Está diseñada para ser ejecutada en la hoja activa a partir de la celda A2. El resumen lo coloca en la col 4 a partir de la fila 2. Estas referencias tendrás que ajustarlas a tu tabla.
Además interpreto que solo se trata de revisar y copiar 1 columna,
Sub Resumen()
Dim nro, fila As Integer
fila = 2
'recorre a partir de la fila2 col A
Range("A2").Select
nro = Val(ActiveCell.Value)
While ActiveCell.Value <> ""
If Val(ActiveCell) <> nro Then
'pega a partir de la fila 2 de la col 4
ActiveCell.Offset(-1, 0).Copy Destination:=Cells(fila, 4)
nro = Val(ActiveCell)
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Copy Destination:=Cells(fila, 4)
Wend
End Sub
Si esto responde a tu consulta, por favor no olvides finalizarla.
Está diseñada para ser ejecutada en la hoja activa a partir de la celda A2. El resumen lo coloca en la col 4 a partir de la fila 2. Estas referencias tendrás que ajustarlas a tu tabla.
Además interpreto que solo se trata de revisar y copiar 1 columna,
Sub Resumen()
Dim nro, fila As Integer
fila = 2
'recorre a partir de la fila2 col A
Range("A2").Select
nro = Val(ActiveCell.Value)
While ActiveCell.Value <> ""
If Val(ActiveCell) <> nro Then
'pega a partir de la fila 2 de la col 4
ActiveCell.Offset(-1, 0).Copy Destination:=Cells(fila, 4)
nro = Val(ActiveCell)
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Copy Destination:=Cells(fila, 4)
Wend
End Sub
Si esto responde a tu consulta, por favor no olvides finalizarla.
