Lastrow

[martijnbos]

Hallo allemaal,

Ik zit met een probleem, waarna ik na uren zoeken en knutselen niet uitkom.
Ik gebruik onderstaande code, maar wil 'F5000' vervangen door F + Lastrow.

("F6:F" & LastRow)

Maar hij blijft komen met een syntaxisfout.
Iemand enig idee wat ik fout doe? Heeft het iets te maken met het declareren omdat deze variabel is?
Hiervan heb ik weinig kaas gegeten.

Sub test()
Dim c As Range, Blank, Teller
Lastrow = Cells(Cells.Rows.Count, "D").End(xlUp).Row
    For Each myCell In [F6:F5000]
        If myCell.Value = "Dubbel" Then
        MsgBox ("Er zijn dubbele artikelnummers aangetroffen")
             myCell.Offset(0, -2).Select
            Exit Sub
            End If
           
            If myCell.Offset(0, -3).Value = "" Then
        myCell.Offset(0, -3).Select
            MsgBox ("Er is geen aantal ingevuld") 'controle of aantal is gevuld'
        Exit Sub
        End If
        Next
End Sub

 

[HSV]

Wat je met de code wil doen is mij een beetje een raadsel met "dubbel".
Maar voor je Lastrow vraag werkt het zo.

Dim Lastrow as long
Lastrow = Cells(Rows.Count, "D").End(xlUp).Row

Lastrow is gebaseerd op de laatst ingevulde cel van kolom D dus.

 

[Warme bakkertje]

For Each myCell In Range("F6:F" & cells(rows.count,4).end(xlup).row)

 

[martijnbos]

Harry en Rudy,

Bedankt voor jullie antwoorden.
Bedoeling van deze code is dat deze straks in een groot document gaat controleren op een dubbele waarde voordat een andere macro uitgevoerd kan worden en dat hij gaat controleren op lege cellen.
Vandaar dit testscript met "dubbel"