vergelijkingen

[Jack Nouws]

Vraagje,

Ik wil pas een rij verwijderen als 2 vergelijkingen in de zelfde rij waar zijn.
Ik ben nu bezig met deze 2 codes
Wellicht dat iemand deze kan samensmelten tot 1 code

Sheets("Data").Columns(2).Find(Txt2.value).EntireRow.delete
Sheets("Data").Columns(2).Find(Txt2.value).EntireRow.delete

 

[Cobbe]

Zou dit werken?:

With Sheets("Data").Columns(2)
      .Find(Txt1.Value).EntireRow.Delete
      .Find(Txt2.Value).EntireRow.Delete
End With

 

[sylvester-ponte]

On Error Resume Next
Sheets("data").Columns(2).Find(txt2).Find(txt1).EntireRow.Delete
On Error GoTo 0

 

[Jack Nouws]

Oei oei ik heb een foutje gemaakt sorry.

Sheets("Data").Columns(2).Find(Txt2.value).EntireRow.delete
Sheets("Data").Columns(5).Find(Txt5.value).EntireRow.delete

Het is dus zo als de gevonden waarde in kolom2 gelijk is aan txt2 en de gevonden waarde in kolom5 gelijk is aan txt5
Pas als deze 2 waarden waar zijn mag de regel verwijderd worden.

 

[sylvester-ponte]

On Error Resume Next
Sheets("data").Columns(2).Find(txt2).Offset(0, 3).Find(txt5).EntireRow.Delete
On Error GoTo 0

 

[Jack Nouws]

Geweldige code Sylvester Ponten!

Probleem opgelost Thnx!