cellen verwijderen via macro

[buckeru]

Hallo mensen,

ik heb een bereik met wat data en lege cellen.
deze lege cellen wil ik met een macro knop verwijderen,
zodat ik van boven af aan, in iedere kolom een gevulde cel heb.

wie kan mij helpen met een code?

ik heb reeds

Sub delete()
For Each cell In Range("B5:H20")
If cell = "" Then cell.delete Shift:=xlUp
Next cell
 
End Sub

deze doet het wel, maar niet in 1 run.
ik moet steeds de macro opnieuw starten totdat alle gevulde cellen
bovenin staan.

grtn ptr

 

[Joske2000]

Deze doet wat je vraagt.

Sub LegeCellenVerwijderen()
    Range("B5:H20").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Groet,

Joske

 

[buckeru]

De code is denk ik bijna goed ,maar hij doet het nog niet goed.
de cellen die leeg zijn, ziet hij niet als leeg.
de cellen zijn nl afkomstig van een ander tabblad.
ze zijn vandaaruit gecopieerd naar dit blad, zonder de formule die er in stond.
dus alleen de waarde die in de cel stond, dus ook leeg.
op een 1 of andere manier denkt hij dat de cel niet leeg is.

het copy paste heb ik gedaan met de volgende code

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Joske2000]

Post dat bestandje even, zonder gevoelige informatie, anders wordt het niet simpel om een oplossing te vinden.

Gr,

Joske

 

[buckeru]

Hierbij de bijlage zonder gevoelige info

jouw code doet het wel, maar op 1 of andere manier komen de cellen
na copieren niet echt leeg.

 

[exhelp]

Neem hier eens een kijkje, daarmee geraak je alvast een heel eind op weg.