Verwijderen rijen

[kabebanaan]

Hallo,

Ik heb in kolom "B" een aantal getallen staan en in kolom "A" tekst.
Nu wil ik dat de rijen verwijderd worden van de cellen die in kolom "B" dezelfde waarde hebben en in kolom "A" de tekst "Test" bevatten.

Als voorbeeld:

A1 Test B1 53
A2 Blabla B2 53
A3 Test B3 54
A4 Bla B4 54

In dit geval moeten de rijen A1 en A3 verwijderd worden.

Kan iemand hier een code voor maken?

 

[Ad Becude]

Zoekt en ge zult vinden

kabebanaan,

Hier moet je maar eens in kijken, of je kunt vinden wat je zoekt.

http://groups.google.com/advanced_group_search?q=group:microsoft.public.nl.office.excel

Ad.

 

[Wigi]

KB

wat bedoel je precies met

Nu wil ik dat de rijen verwijderd worden van de cellen die in kolom "B" dezelfde waarde hebben

Dezelfde waarde als wat?

 

[kabebanaan]

KB

wat bedoel je precies met



Dezelfde waarde als wat?

Ik bedoel die een getal bevat die al in kolm "A" voorkomt.

 

[Wigi]

Ik bedoel die een getal bevat die al in kolm "A" voorkomt.

In kolom "B", niet?

 

[Wigi]

Zoiets?

Sub del()
Application.ScreenUpdating = False
Dim lngRow As Long
For lngRow = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & lngRow) = "Test" And WorksheetFunction.CountIf(Range("A1", _
        Range("B" & Range("A" & Rows.Count).End(xlUp).Row)), Range("B" & lngRow)) Then
            Rows(lngRow).Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

Wigi

 

[kabebanaan]

Wigi

Met de code gebeurt er niets ??

 

[Wigi]

Ik heb dit

A1 Test B1 53
A2 Blabla B2 53
A3 Test B3 54
A4 Bla B4 54

overgetypt en dan de code opgesteld aan de hand daarvan..

Wigi