Este fórum está sendo desativado

[GabrielBrito031]

Boa noite Gurus,

Poderiam me ajudar com o código VBA para realizar loop para automatizar o preenchimento da fórmula abaixo.
A fórmula é para informar o resultado da mesma célula de 31 abas (corresponde aos dias) na mesma pasta de trabalho.

Sub Macro1()

Range("C58").Select
ActiveCell.FormulaR1C1 = "='02'!R5C24"
Range("C59").Select
ActiveCell.FormulaR1C1 = "='03'!R5C24"
Range("C60").Select

End Sub

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub InsereFórmulasV1()
 Range("C58:C88") = "=INDIRECT(""'0""&ROW(A1)&""'!X5"")"
End Sub

ou

Código: Selecionar todos

Sub InsereFórmulasV2()
 Dim k As Long
  For k = 1 To 31
   Cells(k + 57, 3) = "='0" & k & "'!X5"
  Next k
End Sub