Formules in macro kopieren

[Zachorodna]

Hallo,

Ik heb een macro dat van ene blad(factuur) naar een andere blad(overzicht facturen) bepaalde waardes moet kopiëren.
Nu heb ik bij overzicht facturen wat formules staat dat ook elke keer moet me gekopieerd worden, maar dat gebeurt niet.
Het gaat om kolommen K, L, P en Q voor duidelijkheid zie Excel bestaand.
door middel van knop Factuur naar overzicht bij blad factuur start je macro
Formules in rij 8 zijn goed en kunnen zo naar beneden gekopieerd worden
Wie kan me helpen?

Alvast bedankt

 

[Cobbe]

Test eens met deze code:

Sub FactuurNaarLijst()

If Blad4.Range("B11") = "leeg" Then MsgBox "Geen geldige factuur, vul eerst alle gegevens in": Exit Sub
With Range("EP_FactLijst")
        .EntireRow.Insert
        .Offset(-2, 10).Copy .Offset(-1, 10)
        .Offset(-2, 11).Copy .Offset(-1, 11)
        .Offset(-1, 0) = Blad4.Range("B19")
        .Offset(-1, 1) = Blad4.Range("B22")
        .Offset(-1, 2) = Blad4.Range("D39")
        .Offset(-1, 3) = Blad4.Range("D40")
        .Offset(-1, 4) = Blad4.Range("D41")
        .Offset(-1, 5) = Blad4.Range("B20")
        .Offset(-1, 6) = Blad4.Range("A27")
        .Offset(-1, 7) = Blad4.Range("B21")
End With
Blad3.Range("A5") = 1
End Sub

En haal de vraag weg op het andere forum voor dat ze verwijderd wordt door de Forumbeheerder

 

[Cobbe]

Het was al niet meer nodig, meneer heeft al een antwoord gekregen op het andere forum.
Het was waarschijnlijk te veel moeite om ons hierover in te lichten.:evil: