Macro: Rij verwijderen waar waarde in kolom M 0 is.

[flipmoo]

Hoi,

Ik wil graag dmv een macro de hele rijd verwijderen waar de waarde in kolom M 0 is.
Hiervoor probeerde ik:

Sub Verwijder_Lege_aantallen()
Dim c As Range
Dim SrchRng

Set SrchRng = ActiveSheet.Range("M9").EntireRow
Do
Set c = SrchRng.Find("0", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
aanvullen
End Sub

Maar dit werkt niet. Kan iemand mij vertellen wat ik verkeer doe?

Alvast bedankt

 

[Ginger]

Een nul tussen quotes is een tekst.... ;-) Ik gok dat je in je sheet echte numerieke nullen hebt staan...

 

[flipmoo]

Dat klopt. Kun je mij vertellen hoe ik dit dan correct invoer?

 

[flipmoo]

Ik loop nu vast op de volgende melding:

Fout 424 tijdens runtime:

Object vereist

 

[Ginger]

Je hebt het over alle nullen in kolom M, maar vervolgens zoek je in regel 9... Dat gaat nooit werken natuurlijk.

Sub Verwijder_Lege_aantallen()
Dim c As Range
Dim SrchRng [B][COLOR="#FF0000"]As Range[/COLOR][/B]

    Set SrchRng = ActiveSheet.Range("M9").Entire[COLOR="#FF0000"][B]Column[/B][/COLOR]
    Do
        Set c = SrchRng.Find(0, LookIn:=xlValues)
        If Not c Is Nothing Then
            MsgBox c.Address   ' even voor de test om te kijken of het juiste adres wordt gevonden
            c.EntireRow.Delete
        End If
    Loop While Not c Is Nothing
    'aanvullen
    
End Sub

Zoiets wellicht? De aanroep van je procedure "aanvullen" heb ik ff uitgezet. Vergeet die niet in je eigen workbook terug aan te zetten...

Overigens heb ik de aanpassing klein gehouden om zo dicht bij je eigen bouwsel te blijven.

 

[flipmoo]

Hey dit lijkt bijna goed te gaan.
Maar kan het zijn dat die nu ook 10 verwijderd...
en zo ja hoe kan ik dat oplossen?

 

[VenA]

Find heeft nog wel meer argumenten zoek daar eens op.

Er even van uitgaande dat jouw gegevens in A1 beginnen en dat de eerste rij kolomkoppen bevat kan je het ook met het autofilter doen.

Sub VenA()
With Sheets(1).Cells(1).CurrentRegion
    .AutoFilter 13, 0
    .Offset(1).SpecialCells(12).Rows.EntireRow.Delete
    .AutoFilter
End With
End Sub

Een voorbeeld bestandje is natuurlijk ook altijd handig.