Agregar nueva instrucción a macro ya existente
Dante Amor
Tu me ayudaste con esta macro y ya la probé y me funcionó
Sub Fechas()
'Por.Dante Amor
Set h1 = Sheets("AF")
Set h2 = Sheets("AP")
f1 = Application.Min(h2.Range("E2:E" & h2.Range("E" & Rows.Count).End(xlUp).Row))
f2 = Application.Max(h2.Range("E2:E" & h2.Range("E" & Rows.Count).End(xlUp).Row))
h1.Range("H2") = "'" & Format(f1, "dd/mm/yyyy")
h1.Range("G2") = "'" & Format(f2, "dd/mm/yyyy")
End SubPero ahora tengo un inconveniente que es que debo tomar la fecha mas antigua y mas reciente pero no revisando 1 sola hoja sino 2 hojas. Una de las hojas sigue siendo "AC" y en ella las fechas están en la columna "R" desde la fila 2 en adelante. La otra hoja se llama "AP" y las fechas están en la columna "AA" desde la fila 2 en adelante. Por lo tanto lo que deseo, es que la macro revise tanto la hoja "AC" como la hoja "AP" y me dé en "H2" la fecha mas reciente comparando las dos hojas y en "G2" me dé la fecha mas antigua comparando las dos hojas.
1 Respuesta
Ambas son fechas en formatos de fechas no te preocupes.
Osea es decir las fechas origen son fechas en formato de fecha y cuando las coloques en "H2" y "G2" ahí si las colocas como DD/MM/AAAA en formato de texto como esta actualmente la macro.
H o l a:
Te anexo la macro
Sub Fechas()
'Por.Dante Amor
Set h1 = Sheets("AF")
Set h2 = Sheets("AC")
Set h3 = Sheets("AP")
u2 = h2.Range("R" & Rows.Count).End(xlUp).Row
u3 = h3.Range("AA" & Rows.Count).End(xlUp).Row
f1 = Application.Min(h2.Range("R2:R" & u2), h3.Range("AA2:AA" & u2))
f2 = Application.Max(h2.Range("R2:R" & u2), h3.Range("AA2:AA" & u2))
h1.Range("H2") = "'" & Format(f1, "dd/mm/yyyy")
h1.Range("G2") = "'" & Format(f2, "dd/mm/yyyy")
End SubRecuerda cambiar la valoración de las respuestas. S a l u d o s
