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 de Elsa Matilde
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 SubVolvé 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
