Separar por fechas y añadir filas

Agradezco de antemano la ayuda que me puedan brindar...

De una base de datos necesito un macro que separe los datos por fecha y que añada dos filas entre cada grupo. Ejemplo.

1 Respuesta

Respuesta
2

Entrá al Editor de macros (presionando juntas Alt y F11)

Insertá un módulo y allí copiá esta rutina:

Sub SeparaFechas()
'x Elsamatilde
'recorre col A colocando resultado en col B
'recorre desde la fila 2 hasta llegar a una celda vacía
dato = Range("A2").Value
Range("B2") = dato
'contador de fila col B
filx = 3
Range("A3").Select
While ActiveCell.Value <> ""
    'si es nueva fecha, guarda el dato e incrementa en 2 la fila destino
    If ActiveCell <> dato Then
        filx = filx + 2
        dato = ActiveCell
    End If
    'coloca el valor de la celda e incrementa el contador
    Range("B" & filx) = ActiveCell
    filx = filx + 1
'pasa a la fila sgte
ActiveCell.Offset(1, 0).Select
'repite el bucle
Wend
End Sub

Volvé a la hoja y asigná formato fecha a la col B.

Podrás agregar un botón, atajo de teclado o directamente ejecutarla desde el menú Macros. Estos temas los tengo explicados en la sección Macros de mi sitio.

Sdos y no olvides valorar la respuesta si el tema queda resuelto.

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas