• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

filteren en verwijderen

Status
Niet open voor verdere reacties.

frimout

Gebruiker
Lid geworden
22 jul 2001
Berichten
477
Hallo,

In bijgeleverd voorbeeldje wil ik in kolomC de cellen met waarde 0 (nul) selecteren en daarvan de rijen verwijderen. Kan iemand mij op weg helpen.

Alvast bedankt
 

Bijlagen

Code:
With sheets(1).Usedrange
  .autofilter 3, 0
  .columns(3).specialcells(xlcelltypeVisible).entirecolumn.delete
End With
 
Code:
With sheets(1).Usedrange
  .autofilter 3, 0
  .columns(3).specialcells(xlcelltypeVisible).entirecolumn.delete
End With

Lijkt niet te werken, blijft eerst steken op .columns(3)........, daar heb ik dar entirecolumn veranderd in entirerow, maar dan blijft hij hangen op autofilter 3, 0
Ik heb dan de code een beetje aangepast maar dan wist hij ook telkens de bovenste rij.
Wat is er verkeerd?

Code:
Sub Macro1()
    ActiveSheet.Range("$C$1:$C$20").AutoFilter Field:=1, Criteria1:="0"
    With Sheets(1).UsedRange
    .Columns(3).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C20"), Type:=xlFillDefault
    ActiveSheet.Range("$C$1:$C$20").AutoFilter Field:=1
    Range("a1").Select
End Sub
 
Laatst bewerkt:
Als je ervoor zorgt dat in kolom A en B gegevens staan:

Code:
With sheets(1).usedrange.columns(3)
  .autofilter 1, 0
  .offset(1).specialcells(xlcelltypeVisible).entirerow.delete
End With
Vermijd select en activate in VBA-code
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan