Buenas tardes:
Manejo el siguiente código:
Range("a3").FormulaLocal = "=SUBTOTALES(103|$F$3:F3)"
Range("a3").AutoFill Destination:=Range("a3:a" & Range("f" & Rows.Count).End(xlUp).Row)
Range("b3").FormulaLocal = "=SI(ColorFondoIgual(E3|204|255|255)|""X""|)"
Range("b3").AutoFill Destination:=Range("b3:b" & Range("f" & Rows.Count).End(xlUp).Row)
Range("c3").FormulaLocal = "=SI(H3=0|0|SI(I3-I2=1|""OK""|""FA""))"
Range("c3").AutoFill Destination:=Range("c3:c" & Range("f" & Rows.Count).End(xlUp).Row)
Lo que quiero es simplificar la rutina, o sea de una sola vez seleccionar las tres celdas y copiarlas hasta el final de la columna con datos F
Saludos cordiales
Jesús
si no te entiendo mal, en vez de escribir una fórmula y extender sólo esa fórmula (y esto tres veces), lo que querrías es
Pues bien. el truco está en indicar el rango sobre el que quieres hacer el AutoFill
Range("a3").FormulaLocal = "=SUBTOTALES(103;$F$3:F3)"
Range("b3").FormulaLocal = "=SI(ColorFondoIgual(E3;204;255;255);""X"";)"
Range("c3").FormulaLocal = "=SI(H3=0;0;SI(I3-I2=1;""OK"";""FA""))"
Range("a3:c3").AutoFill Destination:=Range("a3:c" & Range("f" & Rows.Count).End(xlUp).Row)
------
Ya sé Excel, pero necesito más.
Muchas gracias
saludos cordiales
Jesús
TEMA SOLUCIONADO
Jesus Martinez Plantarosa