Cellen leeg maken

[Ben1956]

Hallo,
Ik heb een stukje vba code waarvan ik me afvraag of het sneller en handiger kan.
Er staan formules in de cellen G2 t/m N2. In N2 staat de formule: =ALS(G2-H2>0;G2-H2;"")
In een vba procedure kopieer ik dat naar alle rijen die van toepassing zijn (laatste rijnummer staat in variabele x).
Range("G2:N2").Copy Range("G3", Cells(x, "N"))
Columns("G:N").Copy
Columns("G:N").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Als de waarde in kolom G gelijk is aan de waarde in kolom H, dan moet de cel leeg zijn, maar dat is het niet. Het is een cel met een string met lengte 0.
Om die weg te halen gebruik ik een lus
For y = 2 To x
If Len(Cells(y, "N")) = 0 Then Cells(y, "N").ClearContents
Next y

Dat is nogal omslachtig en mijn vraag is: kan dit sneller/handiger?
Het is dus niet de bedoeling dat er een uitkomst 0 in komt te staan.

 

[OctaFish]

Ik zou zo zeggen, en ik ben zo te zien niet de enige die dat denkt: waar blijft het bestandje?

 

[Ben1956]

Het is een bestand van ruim 24 mb, dus het leek me handiger alleen het stukje te plaatsen waar het om gaat.

 

[VenA]

Is inderdaad een verstandige keus.

 

[E v R]

Dat is nogal omslachtig en mijn vraag is: kan dit sneller/handiger?

Allereerst lijkt het mij handiger om alle berekeningen in het geheugen uit te voeren en niet eerst door formules te plakken en dan om te zetten in waarden.
Maar dan is het handig zoals reeds gemeld om daar een voorbeeldje bij te maken, gaat nml enkel om de formules in G2-N2
Dat laatste loopje zou je ook middels

Range("N:N").SpecialCells(xlCellTypeConstants, 2).ClearContents

kunnen ondervangen

 

[OctaFish]

Het is een bestand van ruim 24 mb, dus het leek me handiger alleen het stukje te plaatsen waar het om gaat.

Een klein deel ervan met wat data is al genoeg hoor. Als we maar kunnen zien wat er moet gebeuren.

 

[Ben1956]

Dat laatste loopje zou je ook middels

Range("N:N").SpecialCells(xlCellTypeConstants, 2).ClearContents

kunnen ondervangen

Dank je Eric, dit is precies wat ik zocht.