Copiar el registro diario a su hoja respectiva
Me pueden ayudar con una macro, tengo el registro diario en una hoja, en la columna A tengo la fecha y en las demás columnas la información, además tengo una hoja por cada día del mes tengo 1-mar, 2-mar y así hasta la hoja 31-mar, entonces si en la hoja diario tengo la fecha 3 de marzo, copiar ese registro de la hoja diario a la hoja 3-mar. Los registros copiados los deberá poner abajo del último registro de la hoja.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub CopiarDias()
'Por.Dante Amor
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
d = Day(Cells(i, "A"))
m = Format(Cells(i, "A"), "mmm")
h = d & "-" & m
u = Sheets(h).Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(i).Copy Sheets(h).Range("A" & u)
Next
End SubPrueba y me comentas.
Saludos. Dante Amor
Si es lo que necesitas.
