Alleen gevulde factuurregels per knop Kopieeren naar ander werkblad

[jodelo]

Hallo allemaal:
Ik heb het volgende probleem waar ik na uitgebreid zoeken op dit forum niet uitkom.
Graag zou ik zien dat facturen aangemaakt op het tabblad factuur(bijlage) met gebruik van de toegevoegde knop worden opgeslagen op het tabblad facturen. Probleem is dat dit met een regel wel lukt, maar zodra de factuur meer dan een regel bevat werkt dit niet meer.

Verder is er vreemd genoeg het feit dat de eerste 3 kolommen correct worden weggeschreven, de daarop volgende 3 10 rijen lager en de laatste kolom weer correct.

Wie kan mij hiermee verder helpen, ik zou het erg waarderen.
Jodel

 

[Roncancio]

Sub Factuur()
Dim lRij As Long
Dim lBR As Long
    
    lBR = 20

    Set BWS = Worksheets("Factuur")
    Set EWS = Worksheets("Facturen")
    
    While BWS.Range("A" & lBR).Value <> ""
        lRij = EWS.Range("A65536").End(xlUp).Offset(1).Row
        EWS.Range("A" & lRij).Value = BWS.Range("C12").Value
        EWS.Range("B" & lRij).Value = BWS.Range("E8").Value
        EWS.Range("C" & lRij).Value = BWS.Range("A" & lBR).Value
        EWS.Range("D" & lRij).Value = BWS.Range("B" & lBR).Value
        EWS.Range("E" & lRij).Value = BWS.Range("C" & lBR).Value
        EWS.Range("F" & lRij).Value = BWS.Range("D" & lBR).Value
        EWS.Range("G" & lRij).Value = BWS.Range("E" & lBR).Value
        lBR = lBR + 1
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[jodelo]

Perfect, het werkt zoals gehoopt.

Beste Roncancio:

Steeds weer sta ik ervan versteld hoeveel kennis er op dit forum aanwezig is. Jou oplossing is precies wat ik zocht. Hier was ik zelf in ieder geval nooit opgekomen.
Hartelijk bedankt voor jou hulp.

Jodelo