regels verwijderen

[k.tseeg]

Ik wil via een macrootje regels verwijderen en wel als volgt;
Ik heb een sheetje van bv 100 regels en 5 kolommen.
Een van die kolomen (bv kolom3) bevat de inhoud van bv a b of c.
Nu wil ik dat het macrootje naar kolom drie kijkt en als hier een a of een b staat de hele regel delete. Zo houd ik een sheet over met regels waarin kolom 3 alleen een c staat.
alvast bedank
Frank

 

[Demeter]

Probeerd deze eens:

Sub verwijderen_regels()
Dim c As Range
Dim laatsteregel As Integer

Application.ScreenUpdating = False

laatsteregel = Range("C" & Rows.Count).End(xlUp).Row

    For Each c In Range("C2", "C" & laatsteregel)
        If c.Value <> "c" Then
            c.EntireRow = ""
        End If
    Next

Range("A1:E100").Sort Key1:=Range("C2"), Order1:=xlAscending

Application.ScreenUpdating = True

End Sub

Groet,
Ferenc

 

[k.tseeg]

super, het werkt , bedankt

 

[Demeter]

Ik heb de code twee keer aangepast.
Laatste keer heb ik een variabele regel in kolom c aangebracht deze kijkt waar de laatste volle regel zich in kolom c bevindt. Hiermee kan je ook verder dan regel 100 controleren.

Groet,
Ferenc

 

[Wigi]

Ik zou de Clear eigenschap gebruiken:

Sub verwijderen_regels()
Dim c As Range
Dim laatsteregel As Long
Application.ScreenUpdating = False
laatsteregel = Range("C" & Rows.Count).End(xlUp).Row
    For Each c In Range("C2:C" & laatsteregel)
        If c.Value <> "c" Then [B]c.EntireRow.Clear[/B]
    Next
Range("A1:E100").Sort Key1:=Range("C2"), Order1:=xlAscending
Application.ScreenUpdating = True
End Sub

Wigi