sorteer op aanwezig getal in regel

[paul1950]

beste,
de crux zit hem in het tegelijkertijd tonen van naam in combinatie met hcp getal in één regel
dank
P

 

[JEC.]

Test het eens zo. Wat doen al die figuren over je bestand heen:shocked:

Sub jveer()
Application.ScreenUpdating = False
jv = Range("AB9", Cells(9, 28).End(xlDown))
 ReDim ar(UBound(jv))
  For i = 1 To UBound(jv)
   ar(i - 1) = Trim(Right(Replace(jv(i, 1), " .", ""), 2))
  Next
  With Cells(9, 29)
   .Resize(UBound(jv)) = Application.Transpose(ar)
   .Sort Cells(9, 29), 1, , , , , , xlNo
   .CurrentRegion.Offset(, 1).ClearContents
  End With
End Sub

 

[paul1950]

al die lappen en vakjes waren ter afscherming van dikke vingers die het sheet om zeep helpen.
in eerste instantie sheet voor iemand anders gemaakt, en als de bladbeveiliging aanstond liep een macro niet meer.
wat ik zei, met beperkte kennis moet een list het maar doen

 

[paul1950]

beste Jveer

miraculeus, HIJ DOET HET !!

Een kleine stap voor JVeer, maar een groete vooruitgang voor het sheet

danK met een grote K

 

[HSV]

Sorteren van een array.

Sub hsv()
sv = Range("ab9", Range("ab9").End(xlDown))
For i = 1 To UBound(sv)
    For j = i + 1 To UBound(sv)
     If Application.Trim(sv(i, 1)) <> "" And Application.Trim(sv(j, 1)) <> "" Then
       If Right(Replace(sv(i, 1), " .", ""), 2) > Right(Replace(sv(j, 1), " .", ""), 2) Then
            tmp = sv(j, 1)
            sv(j, 1) = sv(i, 1)
            sv(i, 1) = tmp
        End If
      End If
    Next j
Next i
Range("ab9").Resize(UBound(sv)) = sv
End Sub

Als je die cellen met die ene spatie echt leeg maakt kan het iets korter ook nog.

 

[paul1950]

allen hartelijk dank,
een van mijn voorvaderen kon over water lopen en deed iets met wijn en brood,
maar dit vond ik beter.
ik zal de boel op afgehandeld (proberen) te zetten

grt
P

 

[snb]

Ik denk dat je vraag illustreert, dat je met een goed doordacht concept en een correcte struktuur veel restauratie-code kunt voorkomen.
Mijn suggestie is om juist daaraan aandacht te besteden.
Beschouw de opleukende vormgeving als allerlaatste 'toegift' op iets wat data-technisch robuust in elkaar zit.

 

[HSV]

Inderdaad @snb, gewoon gescheiden in twee kolommen en sorteren.
Geen Vba voor nodig.