macro die alle lege regels verwijderd?

[patriciapaj]

Weet iemand toevallig hoe ik een macro kan maken die in een excel bestand alle lege regels verwijderd (binnen een range uiteraard)?

 

[Marrosi]

Hallo PatriciaPaj

Deze macro verwijdert alle rijen met een blanco cel in een bepaalde kolom.

SELECTEER EERST DE KOLOM ALVORENS JE DE MACRO DRAAIT!!!!!

Sub Verwijder()
	On error resume next
	Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
	ActiveSheet.usedRange
End Sub

Dezelfde macro die zich baseert op blaco’s in een welbepaalde kolom (in het voorbeeld kolom A)

 Sub Verwijder2()
	On error resume next
	Columns(“A:A).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
	ActiveSheet.usedRange
End Sub

In dit derde voorbeeldje wordt er aan de gebruiker gevraagd de kolom met de blanco’s te kiezen:

Sub Verwijder3()
	Dim MijnRange As Range
	Set MijnRange = Application.InputBox(Prompt:= Selecteer een kolom, Title:=”Selecteer kolom”, Type =8)
	On error resume next
	MijnRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
	ActiveSheet.usedRange
End Sub

Wij hopen dat je daarmee iets kunt aanvangen en we hopen ook dat er in bovenstaande voorbeeldjes niet te veel typfouten staan.

Groetjes van Martin & Rosine