rij verwijderen indien cel I = waarde 0

[grema]

Kreeg een code van Wigi onder het oog die ik lichtjes aanpaste..

====gevolg werkt niet.======

  Sub DelEmptyRows()
    Application.ScreenUpdating = False
    On Error Resume Next
    Range("I2:I19500").SpecialCells(xlCell.Value = 0).EntireRow.Delete
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

de bedoeling is dat wanneer de waarde in kolom I = 0 de rij mag verdwijnen.

iemand die m'n fout ziet ???

alvast dank


grema

 

[Finch]

Bedoel je dit grema?

Sub DelEmptyRows()
    Application.ScreenUpdating = False
    On Error Resume Next
    Range("I2:I19500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

 

[grema]

neen;


dit is de code die ik ergens tegenkwam.


wil nu alleen dat indien de waarde in cel I = 0
de rij verdwijnt.

 

[Wigi]

Neen, dat gaat niet.

Je zit constanten in VBA te wijzigen, dat mag niet.

Het zal wel werken als je de nullen eerst in een regel code door "" vervangt met Replace.

Wigi

 

[grema]

wigi,

jou code draait effectief ; alleen komt mijn cel inhoud van een geimporteerd bestand onder txt.
Dit heeft tot gevolg dat m'n cel niet leeg is . Ik krijg zo een groen driehoekje boven m'n cel rechts.
Als ik de cel inhoud verwijder via rechtermuisknop cel inhoud verwijderen ; dan draait jou formule.

Kan ik op een of andere wijze deze cellen eerst " leeg " maken

grema

 

[Wigi]

Dat kan goed zijn.

Dan moet je nagaan wat er effectief in die cel staat.

En dat in een regel code Vervangen door "" (niets dus, een lege cel).

Dan heb je allemaal lege cellen en is de volgende regel code mijn code. Die is enkel toepasselijk op lege cellen, vandaar.

Wigi

 

[Wigi]

Gebruik de 2de regel code in de 2de post van deze topic:

http://www.helpmij.nl/forum/showthread.php?t=330482

Maar vervang dan geen 0 maar wel hetgeen in jouw cellen staat.

Wigi