Sorteren

[tjalk]

Goedemiddag,

Heb een vraag over sorteren namen.

Wil de namen (en hun gegevens) Bekijk bijlage test.xlsxop alfabetische volgorde zetten maar er moet wel een lege regel tussen blijven, hoe kan ik dit doen.

 

[Timshel]

Daar is geen ingebouwde functionaliteit voor. Excel kan prima sorteren maar niet met lege regels ertussen.
Waarom wil je dit?

 

[tjalk]

Daar het een lijst is van honderden namen is het voor mij overzichtelijker met een regel ertussen maar als dit niet mogelijk is moet ik wat anders verzinnen

 

[Haije]

Als je de regelhoogte nu eens op bv 20 zet en de verticale uitlijning op centreren, dan heb je visueel enige witruimte tussen twee records.

 

[gast0660]

Hoi,
Kan wel, met wat ik noem sorteer met rare kronkel
Plaats volgende code onder een knopje (test bijgevoegd vbtje)

Dim myRange As Range
Dim rngBlanks As Range

'---Verander zoals nodig---
'Waar is de data?
Set myRange = Range("A1:F27")
'---------------------------

Set rngBlanks = myRange.Columns(1).SpecialCells(xlCellTypeBlanks)

Application.ScreenUpdating = False


rngBlanks.FormulaR1C1 = "=R[1]C"

With ActiveSheet.Sort
    .SortFields.Clear
    .SortFields.Add Key:=myRange.Cells(1), SortOn:=xlSortOnValues, Order:=xlAscending
    .SetRange myRange
    .Header = xlYes
    .Apply
End With

rngBlanks.ClearContents

Application.ScreenUpdating = True

Zie maar als dit iets kan betekenen

 

[HSV]

Dat heb je mooi opgelost Philiep. :thumb:
Alleen de sorteermethode kan wat eenvoudiger.

myRange.Sort Cells(1), , , , , , , 1

 

[Piet Bom]

Ik heb nog een methode (zoals ik die vroeger ooit heb gebruikt).........

 

[gast0660]

Hoi Hsv, dank u en ja je hebt gelijk maar zoals nog steeds uw kennis van vba is nog altijd een stuk groter