Macro para separa registros por fecha
Tengo una base de datos con fechas y quiero pasar los registros de enero a la hoja "enero", los de febrero a la hoja "febrero" y así con todos los registros que pueden ser varias filas.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia la letra "F" por la letra de la columna en donde tienes la fecha.
Sub SepararMes()
'por.Dante Amor
meses = Array("", "enero", "febrero", "marzo", "abril", "mayo", "junio", _
"julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre")
For i = 2 To Range("F" & Rows.Count).End(xlUp).Row
mes = Month(Cells(i, "F"))
Rows(i).Copy
hoja = meses(mes)
u = Sheets(hoja).Range("F" & Rows.Count).End(xlUp).Row + 1
Sheets(meses(mes)).Range("A" & u).PasteSpecial Paste:=xlValues
Next
End SubSaludos.Dante Amor
Si es lo que necesitas.
