VBA | Rij invoegen en kopieren op meerdere werkbladen

[Durkie]

Hallo,

Naar aanleiding van deze vraag: http://www.helpmij.nl/forum/showthread.php/813356-Rij-kopieren-en-invoegen-VBA-Macro heb ik de genoemde Marco aangepast zodat bij het uitvoeren van de Macro er op twee werkbladen tegelijkertijd een nieuwe rij wordt aangemaakt en de formules uit de bovenliggende rij worden gekopieerd. met de volgende macro:

Sub Rij_Toevoegen()
Dim x As Integer
' Deze macro is geschreven door Djerk
  With Sheets("berekening")
    x = .Range("A8").End(xlDown).Row + 1
        .Rows(x).Insert Shift:=xlDown
        .Range("A" & x - 1 & ":APX" & x).FillDown
    End With
  With Sheets("Voorblad")
    x = .Range("A29").End(xlDown).Row + 1
        .Rows(x).Insert Shift:=ylDown
        .Range("A" & x - 1 & ":APX" & x).FillDown
    Application.Union(.Range("C" & x), .Range("D" & x), .Range("E" & x), .Range("F" & x), .Range("G" & x), .Range("H" & x), .Range("I" & x), .Range("J" & x), .Range("K" & x)).ClearContents
End With
End Sub

Nu gebeurd er alleen iets raars met de formules die gekopieerd worden. Wanneer de formule verwijst naar het andere werkblad skipt de verwijzing één rij. dus wanneer de vorige formule verwijst naar =Voorblad!$W30 verwijst de gekopieerde formule naar =Voorblad!$W32, in plaats van naar =Voorblad!$W31

Hopelijk kan een van jullie me helpen om deze fout uit de Macro te halen zodat mijn verwijzingen weer kloppen.

Alvast bedankt.

 

[SjonR]

Ik heb je macro op allerlei manieren getest, maar bij lijkt het te werken. Plaats eens je bestand.

 

[Durkie]

Hierbij het bestand:

Bekijk bijlage Berekening probleem.xlsm