excel vba if functie in loop plaatsen zodat per regel wordt uitgevoerd

[Peer44]

Hallo,

ik wil een controlelijst doorlopen met een wisselend aantal regels kan zijn van 1 tot 120 regels.

het volgend IF statement het ik gemaakt, dit werkt voor regel 2 maar het lijkt me niet de bedoeling dat ik dit voor iedere regel ga aanmaken....
hoe kan ik dit in een loop plaatsen zodat er gekeken wordt vanaf regel 2 tot aan regel 120 (kolom A) of er een waarde is gevuld, zo ja dat de volgende code gedraaid wordt over die regels dus overal waar nu een 2 staat dit een 3,4,5, etc wordt?....

Sub bijwerkenQCP()

Sheets("inleesblad").Select
If Range("BL2").Value = 0 Then
Range("H2:K2").Select
Selection.ClearContents
Range("M2:P2").Select
Selection.ClearContents
Range("s2:v2").Select
Selection.ClearContents
Range("x2:aa2").Select
Selection.ClearContents
Range("ag2:aj2").Select
Selection.ClearContents
Range("AL2:AO2").Select
Selection.ClearContents
Range("AQ2:BF2").Select
Selection.ClearContents
End If

Sheets("inleesblad").Select
If Range("BL2").Value = 1 Then
Range("J2:K2").Select
Selection.ClearContents
Range("O2:P2").Select
Selection.ClearContents
Range("U2:v2").Select
Selection.ClearContents
Range("Z2:aa2").Select
Selection.ClearContents
Range("aI2:aj2").Select
Selection.ClearContents
Range("AM2:AN2").Select
Selection.ClearContents
Range("AS2:AT2").Select
Selection.ClearContents
Range("AW2:AX2").Select
Selection.ClearContents
Range("AZ2:BA2").Select
Selection.ClearContents
Range("BE2:BF2").Select
Selection.ClearContents
End If

Sheets("inleesblad").Select
If Range("BL2").Value = 2 Then
Range("K2").Select
Selection.ClearContents
Range("P2").Select
Selection.ClearContents
Range("v2").Select
Selection.ClearContents
Range("aa2").Select
Selection.ClearContents
Range("aj2").Select
Selection.ClearContents
Range("AN2").Select
Selection.ClearContents
Range("AT2").Select
Selection.ClearContents
Range("AX2").Select
Selection.ClearContents
Range("BA2").Select
Selection.ClearContents
Range("BF2").Select
Selection.ClearContents
End If

If Range("BM2").Value = "X" Then
Range("I2").Select
Selection.ClearContents
Range("N2").Select
Selection.ClearContents
Range("t2").Select
Selection.ClearContents
Range("y2").Select
Selection.ClearContents
Range("AH2").Select
Selection.ClearContents
Range("AO2").Select
Selection.ClearContents
Range("AR2").Select
Selection.ClearContents
Range("AV2").Select
Selection.ClearContents
Range("BB2").Select
Selection.ClearContents
Range("BD2").Select
Selection.ClearContents

End If

End Sub

 

[JeanPaul28]

dit kan met een code die een stukje korter is, maar post eens dat bestand om een beter overzicht te hebben met de nodige uitleg

 

[Peer44]

Jean-Paul,

denk dat ik de oplossing nu gevonden heb dmv de autofilter functie te gebruiken.

toch bedank.