Hacer que una macro me haga cambios en todas mis hojas
Hola Gente
Quier hacer que una macro me copie unas formulas un todas mis hojas "400" esta seria la macho
Range("F1").Select
ActiveCell.FormulaR1C1 = "=MAX(R[7]C[-5]:R[49]C[-5])"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-R[-2]C"
Range("F1:F2").Select
Selection.NumberFormat = "m/d/yyyy"
Range("F3").Select
Selection.NumberFormat = "General"
me faltaría que las copie en todas las hojas, para no tener que ir hoja por hoja.
muchas gracias
1 respuesta
Respuesta de Luis Mondelo
1
Prueba con esta macro:
Sub ejemplo()
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
Range("f1").Formula = "=max(a8:a50)"
Range("f2").Formula = "=today()"
Range("f3").Formula = "=f2-f1"
Next
End Subrecuerda finalizar la consulta
