krijg macro niet in een lus

[whiteboy]

Ik krijg enkel maar 1 lijn overgezet.
Wie kan dit in een lus steken?

 

[Ginger]

Whiteboy, Bedoel je dit?

Sub overbrengen()

    Dim i As Long, lNextRow As Long, lLastRow As Long
    
    If Sheets("stoppersoverzicht").Range("A1").Value <> "" Then
        lNextRow = Sheets("stoppersoverzicht").Range("A" & Rows.Count).End(xlUp).Row + 1
    Else
        lNextRow = 1
    End If
    
    lLastRow = Sheets("workload").Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 11 To lLastRow
        Sheets("workload").Range("A" & i & ",F" & i & ",D" & i).Copy Sheets("stoppersoverzicht").Range("A" & lNextRow)
        lNextRow = lNextRow + 1
    Next


End Sub

Plaats deze code trouwens in een standaard module ipv de ThisWorksheet-module!!!

Groet, Leo

 

[whiteboy]

Bedankt Ginger.
Ik zou de loop willen laten lopen tot de eerst lege regel.
Wat moet ik dan in deze regel aanpassen?
lLastRow = Sheets("workload").Range("A" & Rows.Count).End(xlUp).Row

 

[Ginger]

Whiteboy, Ik snap je niet... Deze code loopt van de 1e tot de laatste gevulde regel van je sheet 'workload'... Dus ik zou zo ff niet weten wat je zou moeten veranderen.

Probeer het anders nog 'ns uit te leggen.

Groet, Leo

 

[whiteboy]

In sheet"workload" staat bv. regel 1 tot 5 ingevuld en 20 lijnen daar onder staan ook gegevens.
Nu moet ik enkel de eerste 5 lijnen hebben.
Momenteel heb ik het zo opgelost: For i = 11 To 16
Maar eigenlijk zou het moeten stoppen vanaf de eerst lege lijn.

Hoe kan ik het best controleren of de naam al bestaat in het stoppersoverzicht?

alvast bedankt!