Rijen verwijderen

[Naus]

Hallo allemaal,

Ik ben mooie pagina's tegengekomen bv autofilter aanpassen enz.
Helaas verbergt deze de gegevens en neemt de berekeningen op andere pagina's toch de verborgen informatie mee.
Daarom moeten er rijen worden verwijdert.


In kolom AW moeten de rijen waarin 0 staat worden verwijdert.
In kolom AY moeten de rijen waarin 0 staat worden verwijdert.
In kolom O moeten de rijen waarin N staat worden verwijdert.

Kan iemand mij een duwtje in de goede richting geven.
Alvast bedankt voor jullie moeite.

Groetjes Hans

 

[snb]

Als de rijen moeten worden verwijderd:

with columns(49)
  .replace 0,""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(51)
  .replace 0,""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(15)
  .replace "N",""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

 

[Naus]

with columns(49)
  .replace 0,""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(51)
  .replace 0,""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(15)
  .replace "N",""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

Als ik deze uitvoer, maakt hij alleen de cel leeg en bij de tweede loopt mijn computer vast??
Misschien kunnen we wat aan de code veranderen dat deze de gehele rij verwijdert.

Groetjes hans

 

[Wigi]

Gebruik aub code tags, geen html tags.

 

[Wigi]

Als de rijen moeten worden verwijderd:

with columns(49)
  .replace 0,""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(51)
  .replace 0,""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(15)
  .replace "N",""
  .specialcells(xlcelltypeblanks).entirerow.delete
End with

En wat ga je doen met cellen die 0 hebben als resultaat van een formule? Die worden niet verwijderd met de code.

En wat met rijen die al leeg zijn? Die worden dan weer ten onrechte verwijderd.

Wigi

 

[Naus]

with columns(49)
.replace 0,""
.specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(51)
.replace 0,""
.specialcells(xlcelltypeblanks).entirerow.delete
End with

with columns(15)
.replace "N",""
.specialcells(xlcelltypeblanks).entirerow.delete
End with

Deze werkt perfect.
In een klein bestand werkt deze.
In een groot bestand loopt mijn computer vast.
Heeft hier iemand ervaring mee.

Groetjes

 

[Wigi]

Heeft hier iemand ervaring mee.

Ja.

Wat is "groot"?

Schakel je de berekeningswijze (tijdelijk) uit?

Heb je al geprobeerd om dit op kleinere bereiken toe te passen en niet op een hele kolom tegelijk?

Wigi

 

[Naus]

[Schakel je de berekeningswijze (tijdelijk) uit?

Heb je al geprobeerd om dit op kleinere bereiken toe te passen en niet op een hele kolom tegelijk?/QUOTE]

Hoe kan ik de berekeningswijze tijdelijk uitschakelen??
In een kolom staan ongeveer 6500 regels door elkaar met daarin de gatallen die ik graag wil verwijderen.

Groetjes]

 

[Avalondra]

je kunt via de opties van excel de functie auto berekenen uit zetten zodat hij als je iets veranderd in een cel niet gaat berekenen wat de andere cellen moeten worden.
dat is heel fijn met groote bestanden waar het lang duurt om iets te berekenen.


Greetz AVA

ps. de opties staan bij 2003 onder extra en bij 2007 moet je op de office knop klikken en daar staat dan helemaal onderaan opties.

 

[snb]

    Application.Calculation = xlCalculationManual
        with Range("AW:AW,AY:AY")
            .Replace 0, "", xlValues
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        end with
        with Range("O:O")
            .Replace "N", "", xlValues
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        end with
    Application.Calculation = xlCalculationAutomatic