Guru do Excel e Power BI

Enviado: **30 Jun 2020 às 20:42**

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

Enviado: **01 Jul 2020 às 10:03**

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

Guru do Excel e Power BI

Loop com formulaR1C1

Loop com formulaR1C1

Re: Loop com formulaR1C1