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

Agregar varios espacios en una celda de números

Tengo una cadena de números en una celda 100100100100, las cuales busco introducir una celda cada 3 caracteres y quede algo así: 100 100 100 100.
2 respuestas

Macro listar valores únicos por tipologías

Me gustaría saber como se podría hacer una macro en la que se listen de todo un conjunto de ID's tanto duplicadas como no duplicadas por tipología (celda de TEXTO) ¿Cuál creen que sería el mejor sistema sino? Los resultados son un ejemplo Gracias
1 respuesta

Copiar datos de una lista y pegarlos en celdas dejando un hueco entre ellas.

Llevo dándole vueltas a esto y ni encuentro la solución por mi mismo ni en ningún otro sitio. El caso es que tengo una HOJA2 donde importo datos de una web y me queda una columna con una lista de datos: Ej: .. A.. Juan Pepe Antonio En otra HOJA1...
1 respuesta

Excel. Comparar 2 columnas de diferentes hojas y copiar lineas completas de coincidentes

En hoja 1 tengo una tabla con 10.000 filas y 20 columnas En hoja 2 tengo una tabla con 2 columnas (A y B). Necesito copiar la línea completa de la hoja 1 a la la hoja 2, de los valores coincidentes que existan en la columna A de las 2 hojas. Las...
1 respuesta

Función "Si" en todas las hojas

Estoy trabajando en un libro con al rededor de 100 hojas. En la Hoja 1 tengo la "Base de Datos", en la que tengo un listado en la columna A con códigos de ID. En el resto de Hojas, tengo fichas con cada código de ID y otros datos relevantes en...
1 respuesta

Crear condición para llenar celda en excel

Ayudame con esto que lo tengo que hacer en el mismo archivo experto otra pregunta que pena con usted apenas aprendo excel tengo dos celdas y necesito lo siguiente hacer una macro que haga si en la celda g2 dice femenino que vaya y busque en la celda...
1 respuesta

Macro de búsqueda excel 2010

He encontrado una macro de Elsa que realiza una búsqueda, me ha sido muy útil, muchas gracias. Mi problema es que no sé cómo modificarla para que no ponga una x en la primer coincidencia sino que ponga la x en TODAS las coincidencias que encuentre....
1 respuesta