sorteren met lege cellen in de kolom

[vrouw]

Ik probeer een aantal regels te sorteren maar omdat er ook lege cellen in de kolom staan gaat het niet goed met het sorteren.
Ik wil kolom C sorteren op leeftijd (van jong naar oud) maar door de lege regels klopt de lijst dan niet meer.

Hoe kan ik dat het beste doen?
Mag ook met een macro.

 

[Haije]

vrouw,

wat is de betekenis van de getallen in kolom B waar geen naam in A en leeftijd in C staat?

Achtergrond van deze vraag: waarom die getallen niet opnemen in de regel met de naam? Dus per persoon 1 regel met info.

 

[vrouw]

Het bestand komt uit een vrij complex ledenadministratie programma waarin dit niet aan te passen is.
In kolom B staan de telefoonnummers van de personen.achter de naam vast nummer daaronder een 06 nummer.
Dat resulteert dus in die lege cel onder de geboorte datum.

 

[sylvester-ponte]

met vba is dat wel te doen. is dat een probleem?

 

[vrouw]

Nee hoor, dat is geen probleem.
Zou heel fijn zijn

 

[sylvester-ponte]

ik ben wel slordig vandaag. deze is beter.
ik zal die anderen verwijderen

Sub sorteer()
Dim R As Range, N As Range, Temp
Set R = Sheets("Sheet1").UsedRange.Offset(1)
Set R = R.Resize(R.Rows.Count - 1).Resize(R.Rows.Count - 1)
For Each N In R.Columns(1).Cells
    If N = "" Then N = N.Offset(-1): N.Offset(, 2) = N.Offset(-1, 2)
Next
R.Sort R(1, 3), xlDescending
For Each N In R.Columns(1).Cells
    If N = Temp Then
        N = "": N.Offset(, 2) = ""
    Else
        Temp = N
    End If
Next
End Sub

 

[vrouw]

Bedankt voor de VBA maar hij sorteert bij mij niet goed.
Jaap blijft bovenaan staan en de sortering van kolom C klopt bij mij ook niet.

 

[VenA]

Probeer het zo eens

Sub VenA()
With Cells(2, 1).CurrentRegion
  .Columns(1).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
  .Sort [A2], , , , , , , True
  .Columns(1).SpecialCells(-4123).ClearContents
End With
End Sub

 

[vrouw]

Nee dat gaat ook niet goed. Er word gesorteerd op de namen en niet op de geboorte datum.
Als ik de code aanpas dat die kolom C moet sorteren komen toch weer de lege regels onderaan te staan.

 

[sylvester-ponte]

weet je, er staat tekst in kolom C dan sorteert hij als tekst en niet als datum.

 

[vrouw]

En als ik dan eerst via eigenschappen van kolom C aanpas naar datum wil die het ook niet goed doen.

 

[sylvester-ponte]

gebruik tekst naar kolom

 

[vrouw]

Die snap ik niet.

 

[sylvester-ponte]

selecteer de datums
ga naar gegevens (boven in je menu)
ga naar tekst naar kolommen
druk overal op ok of vogende of voltooien

klaar
nu de macro draaien.

 

[VenA]

Mij lijkt het vrij onzinnig dat een export uit welk systeem dan ook niet aan te passen is.

Een sortering op datums die geen datums zijn en met lege namen.

Sub VenA()
With Cells(2, 1).CurrentRegion
  For Each cl In .Columns(3).Offset(1).SpecialCells(2)
    cl.NumberFormat = "General"
    cl.Value = DateSerial(Split(cl, "-")(2), Split(cl, "-")(1), Split(cl, "-")(0))
  Next cl
  .Columns(3).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
  .Columns(1).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
  .Sort [C2], , [A2], , , , , True
  .SpecialCells(-4123).ClearContents
End With
End Sub

 

[Piet Bom]

Als kolom D vrij is voor een hulp-kolom, dan gaat het met deze macro ook.

 

[sylvester-ponte]

Piet Bom, de jouwe doet het niet goed als er gelijke datums in staan.

VenA, de jouwe doet het maar 1 keer als je hem nog een keer laat draaien doet hij het niet meer.

maar, met een kleine aanpassing in de 4e regel:

cl.NumberFormat = "General"

wordt dan:

cl.NumberFormat = "d-mm-yyyy"

dan blijft hij het doen.

 

[VenA]

@sylvester-ponte, Bedankt voor de aanvulling, is inderdaad beter. De TS vindt het blijkbaar niet de moeite waard om nog te reageren.

 

[Piet Bom]

@Sylvester,
Goed gezien
Een kleine aanpassing aan de hulpformule geeft ook bij gelijke datums een goede sortering.
Jammer dat de TS niet meer reageert

 

[vrouw]

Ik ben wel stil maar zit niet stil. Ben er druk mee aan het stoeien maar omdat mijn werkelijke bestand toch anders is dan het voorbeeld waar ik de Topic mee gestart ben loop ik steeds weer ergens anders op vast.
Ik ging er van uit dat het simpeler was, maar dat valt vies tegen.

Ik ben nu maar "even" het werkelijke bestand aan het aanpassen (ivm de privacy van personen die daarin staan) en zal dat dan posten.