Wissen van gegevens via VBA

[rg027]

Beste,
Ik heb een code geschreven voor het wissen van gegevens in de cellen a7:b1000.
De code doet het wel doch moet ik de macro soms verschillende keren doen lopen vooralleer de gevraagde gegevens allemaal gewist zijn. Hoe maak ik de code zo dat met 1 druk alle gevraagde gegevens in 1 klik gewist worden. Cel a1 bevat de waarde die moet gewist worden in a7:a1000 (in mijn geval is a1 een datum). Alvast dank.

Deze codegebruik ik

Sub wis gegevens()

For each a in range("a7:a1000")
if a = range("a1") then
range(a.offset(0,0),a.offset(0,1)).delete
Range("A7:A1000").Select
Selection.NumberFormat = "d/mm/yyyy;@"
Range("A7").Select
Selection.CurrentRegion.Select
Selection.End(xlDown).Select
End If
Next a
end sub

 

[Demeter]

Doet dit de truc:

Sub verwijderen()
Dim c As Range

For Each c In Range("A2:A1000")
    If c.Value = Range("A1") Then c.Resize(1, 2) = ""
Next
    
Range("A7:A1000").NumberFormat = "d/mm/yyyy;@"

End Sub

 

[Wigi]

Moeten de gevonden cellen helemaal verwijderd worden (dus de rij eruit), of enkel de celinhoud gewist?

Dat laatste kan met .ClearContents.

 

[rg027]

Hartelijk bedankt. Deze doet het

 

[rg027]

De gegevens moeten verwijderd worden. Ik krijg dan wel een aantal lege rijen in het bereik. Via sorteren komt alles weer netjes onderelkaar te staan

 

[Wigi]

Bekijk ook eens een Autofilter. Voor 1000 gegevens is dat veel efficiënter dan een lus door die cellen.

Wigi

 

[rg027]

Bedankt voor de oplossingen.