rij overnemen

[patje8]

Kan ik cel A8, B8, A10 en B10 overnemen naar een ander tabblad?
Heb al geprobeerd met onderstaande formule maar dit lukt niet want hij neemt rij 9 ook mee.
Het is de bedoeling dat hij telkens een rij overslaat.

Sub Lijst()
Dim lRij As Long
Dim lEndRij As Long
Dim lSRij As Long
    lSRij = Worksheets("LIJST").Range("A60000").End(xlUp).Row + 1
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    lEndRij = Worksheets("Uitbeenplanning").Range("A260").End(xlUp).Row
    For lRij = 8 To 8
        If Worksheets("Uitbeenplanning").Cells(lRij, "A").Value <> "" Then
            For lkol = 1 To 2
                Worksheets("LIJST").Cells(lSRij, lkol).Value = Worksheets("Uitbeenplanning").Cells(lRij, lkol).Value
            Next
        lSRij = lSRij + 1
        End If
    Next

Worksheets("LIJST").Select

End Sub

 

[sylvester-ponte]

in jouw code staat:

For lRij = 8 To 8

dan doet hij maar 1 rij kopiëren .
maar als je dit doet:

For lRij = 8 To lEndRij step 2

doet hij meer regels en slaat hij er steeds 1 over

 

[patje8]

dank U