Macro para copiar formula en celdas.
Buenos días, esta pregunta es para Elsa.
necesitaria saber como hacer una macro que me copie una fórmula en varias celdas hasta el final de la tabla. Ya te he enviado el fichero, si necesitas alguna aclaración por favor dímelo.
Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Ok, muchas gracias.
Espero tu respuesta.
Te envié archivo con aclaraciones.
Esta sería la macro a la que le falta decidir si vas a dejar fórmulas o solo valores.
Sub CompletaFormulas()
'x Elsamatilde
'se establece la últ col de datos según fila 13
colx = Range("H13").End(xlToRight).Column
'coloca las fórmulas en las 3 celdas. El rango llega hasta fila 1000
Range("H16").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R18C7:R1000C7,R16C7,R[2]C:R[984]C)"
Range("H17").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R18C7:R1000C7,R17C7,R[1]C:R[983]C)"
Range("H18").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[" & colx - 8 & "])"
'se rellenan filas 16 y 17 con la fórmula de col H
Range("H16").Select
Selection.AutoFill Destination:=Range(Cells(16, 8), Cells(16, colx)), Type:=xlFillDefault
Range("H17").Select
Selection.AutoFill Destination:=Range(Cells(17, 8), Cells(17, colx)), Type:=xlFillDefault
'se completa la col H hasta el fin de datos según col B
Range("H18").Select
Selection.AutoFill Destination:=Range("H18:H" & Range("B" & Rows.Count).End(xlUp).Row)
Range("H18").Select
End SubSdos!
