Namen sorteren

[alsoft]

Wie kan mij helpen, ik kom er niet uit.

Ik wil in een bereik D5:E33 de namen onder elkaar krijgen , maar dan zonder lege cellen.

Hoe kan ik dit bereiken met een Macro.

B.v. Hartelijk dank

 

[Ad Becude]

Zet deze in een module.

Sub VerwijderRijen()
 Dim lng As Long
    For lng = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
     If Application.WorksheetFunction.CountA(Rows(lng)) = 0 Then
        Rows(lng).Delete
         End If
    Next
End Sub

 

[alsoft]

Helaas kan ik hier nog niet veel mee, daar er in het bereik D5:E33 de namen naar boven moeten zoals in voorbeeld

 

[Wigi]

Sub ff()

    Dim l As Long
    
    For l = 32 To 5 Step -1
    
        If WorksheetFunction.CountBlank(Range("D" & l).Resize(1, 2)) = 2 Then
            
            Range("D" & l).Resize(1, 2).Delete shift:=xlShiftUp
            
        End If
    
    Next
    
End Sub

Wigi

 

[alsoft]

Geweldig

Hartelijk dank WIGI, het werkt . Hoera

 

[Wigi]

Hartelijk dank WIGI, het werkt . Hoera

Plaats de vraag dan maar op opgelost aub :thumb: