Macro-hulp

[Oxy]

Hallo mensen,

Ik heb een vraagje over een macro die ik graag wil gebruiken voor data:

Onder kolom A staan weeknummers waar onder kolom B jaartallen staan (2006 en 2007)

Nou wil ik graag een macro maken waarbij de rijen met weeknummers van 2006 lager dan bv 34 worden verwijderd.

Dus: als in kolom B 2006 staat -> kijken naar kolom A -> wanneer cijfer < 34 -> RIJ verwijderen.

Wie o wie weet hoe ik dit in een macro moet gaan verwerken en kan mij helpen?

Groeten.

 

[Wigi]

Sub verwijderen()

    Dim l As Long
    
    For l = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        
        If Range("A" & l).Value < 34 And Range("B" & l).Value = 2006 Then Rows(l).Delete
        
    Next

End Sub

Wigi

 

[Oxy]

Thnx, je bent een held haha. Oh ja nog een vraagje. Kun je wat toevoegen aan de macro? Dat ie de 1e, 2e en laatste regel altijd verwijderd?

 

[Wigi]

Sub verwijderen()

    Dim l As Long
    Dim lAantalRijen As Long
    
    lAantalRijen = Range("A" & Rows.Count).End(xlUp).Row
    
    For l = lAantalRijen - 1 To 3 Step -1
        If Range("A" & l).Value < 34 And Range("B" & l).Value = 2006 Then Rows(l).Delete
    Next
    
    Rows("1:2").Delete
    Range("A" & Rows.Count).End(xlUp).EntireRow.Delete
    
End Sub

Wigi