Macro actualizar fórmulas en hojas existentes

Tengo en mi libro de excel las siguientes fórmulas:
F41='Nueva plantilla'!$P$28,
F42='Nueva plantilla'!$P$29,
F43='Nueva plantilla'!$P$30 & " " & 'Nueva plantilla' !$Q$30,
F44='Nueva plantilla'!$P$31,
F45='Nueva plantilla'!$P$32,
F46='Nueva plantilla'!$P$33.
Todo esto en la hoja 1 (1-41901). Quiero que en la hoja 2, que es (2-41901) en las mismas celdas, le añadas +8 a las fórmulas, es decir, que en la hoja 2-41901 la fórmula cambie a:
F41='Nueva plantilla'!$P$36,
F42='Nueva plantilla'!$P$37,
F43='Nueva plantilla'!$P$38 & " " & 'Nueva plantilla'!$Q$38,
F44='Nueva plantilla'!$P$39,
F45='Nueva plantilla'!$P$40,
F46='Nueva plantilla'!$P$41
Entonces como hago para hacer las series consecutivas en las hojas siguientes hasta (60-¿41901)?
Hacerlo a mano es mortal, tengo 360 hojas...!

2 respuestas

Respuesta
3

Como el nombre de tus hojas se encuentran entre paréntesis (1-41901) debieran ser incluidos dentro al momento de llamarlas.

Ajustá la instrucción de esta manera:

  For i = 1 To 60
    hojita = "(" & i & "-41901)"
    With Sheets(hojita)

Probalo y me comentás.

Respuesta
1

Ho la Ramón:

Ya te respondí acá:

https://foro.todoexcel.com/threads/macro-actualizar-f%C3%B3rmulas-en-hojas-existentes.66572/ 


Revisa lo siguiente por favor:

https://www.excelguru.ca/content.php?184



Sub Actualizar_Formulas()
  Dim sn As String
  Dim i As Long, j As Long
  sn = "Nueva plantilla"
  j = 28
  For i = 1 To 60
    With Sheets(i & "-41901")
      .Range("F41").Formula = "='" & sn & "'!$P$" & j
      .Range("F42").Formula = "='" & sn & "'!$P$" & j + 1
      .Range("F43").Formula = "='" & sn & "'!$P$" & j + 2 & "& "" "" & '" & sn & "'!Q" & j + 2
      .Range("F44").Formula = "='" & sn & "'!$P$" & j + 3
      .Range("F45").Formula = "='" & sn & "'!$P$" & j + 4
      .Range("F46").Formula = "='" & sn & "'!$P$" & j + 5
    End With
    j = j + 8
  Next
End Sub

Recomendaciones:

https://youtu.be/fkMDV64YyE0 

https://youtu.be/FDF1UX3co2g 

Sal u dos

Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas