Macro die 'lege' regel automatisch overslaat

[Pannekoek1]

Kan iemand mij misschien helpen??

Op dit moment is het mij gelukt om cijfers met een punt over ze zetten naar een komma.
Nu moet alleen nog dat de in de kolom waar een bedrag in staat wordt overgeslagen als er geen bedrag is. Is dit mogelijk?

bijvoorbeeld:
kolom 1 kolom 2 kolom 3 kolom 4 etc. (in mijn geval 11 kolommen)
rij 1 A122 23,45 euro 1-1-2009 John
rij 2 A123 0 euro 1-1-2009 kees
rij 3 A124 12,34 euro 1-1-2009 piet

nu zou ik willen dat rij 2 met 0 euro, automatisch er uit wordt gehaald en dat rij 1 en 3 overblijven, en dat dit automatisch rij 1 en 2 worden.

Bij advies maak je van mij een HEEL blij persoon,

Groeten, Mark

 

[oeldere]

Welkom op dit forum.

Vaak wordt je met een voorbeeldbestandje, ontdaan van gevoelige info, beter geholpen.

1) Waarom (op welke criteria) dient rij 2 te worden verwijdert?

Zonder criteria is het moeilijk een goed antwoord te geven.

Alternatief
Je kunt natuurlijk wel links op cijfer 2 klikken.

Cijfer 2 wordt opgelicht. De hele cel wordt geselecteert.

Daarna rechtermuisknop en kies voor verwijderen.

De hele rij wordt verwijdert.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[oeldere]

Omdat je zelf geen voorbeeld bijvoegd en naderhand je tekst hebt aangepast met de criteria op 0, heb ik zelf een bestandje gemaakt.

Onderstaande code heb ik opgenomen met de macro-recorder.

Het kan vast mooier en korter.

Run onderstaande macro en de nul bedragen in kolom D worden verwijderd.

Sub Kolom_D_O_bedragen_verwijden()

    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$4").AutoFilter Field:=4, Criteria1:="0"
    Rows("2:1000").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$N$3").AutoFilter Field:=4
    Range("A1").Select
End Sub

De VBA vragen laat ik graag aan andere over.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[Pannekoek1]

Beste oeldere,

Bedankt voor de snelle reactie! Heel erg bedankt voor het helpen! waardeer het echt heel erg, was precies wat ik nodig had!

Groeten,

Mark

 

[oeldere]

Graag gedaan.

Als je vraag is opgelost, zet je de vraag dan op opgelost.

Als je nog wilt wachten op andere oplossingen van VBA-kenners is dat uiteraard ook goed.