Sorteren

[zanfa11]

Beste

Als ik op het knopje "Alfabetisch" klik wordt alles alfabetisch bovenaan mooi gesorteerd. Maar als ik volgens "functie" wil sorteren dan wordt alles onderaan gesorteerd. Ik zou graag hebben dat ook via knopje "functie" alles bovenaan gesorteerd wordt. ZIE BIJLAGE Bekijk bijlage Opvolging.xlsm

Met vriendelijke groet

Zanfa

 

[HSV]

Sorteren op kolom F.

 ActiveSheet.Range("A5").CurrentRegion.Sort Range("f5"), , , , , , , 1 'Sorteer Functie.

 

[zanfa11]

Beste

Bedankt voor uw oplossing. Mijn bedoeling is dat "Range E5" gesorteerd wordt,en niet "F5" want in het originele bestand zijn er formules voorzien en bepaalde gegevens worden automatisch ingevuld in kolom "E5". F5 wordt manueel ingevuld.

Mvg

Zanfa

 

[HSV]

Beste,

Maak dan een zo goed mogelijk voorbeeld ipv zo maar iets.

 

[zanfa11]

Beste

ZIE BIJLAGE Bekijk bijlage Opvolging.xlsm

Mvg

Zanfa

 

[VenA]

Probeer het eens zo:d

Edit obv van het eerste bestandje

Edit2 werkt ook met het tweede bestandje.

 

[HSV]

@VenA,

Waar heb je de formules gelaten van kolom E.

 

[VenA]

typex:d

Is een beveiligd werkblad en dan vul je bij de onwaar wat onzinnigs in waardoor de sortering weer zou kunnen kloppen. Met VO de ongein verbergen en het lijkt net echt. Een cel met een formule met als resultaat 0 of "" blijft bovenaan staan in mijn testje. En daarom maar wat anders verzonnen.

 

[HSV]

typex:d

:d:d :thumb:

 

[sylvester-ponte]

of zo:

 

[VenA]

Volgens mij is deze eigenlijk wel voldoende. Er even een frisse blik op geworpen.:d

Sub VenA()
With ActiveSheet
    .Unprotect "adam"
    .Range("A5:J" & Application.CountA(.Columns(2)) + 3).Sort [E5]
    .Protect "adam"
End With
End Sub

 

[zanfa11]

Beste Excel Experts

Jullie zijn SUPER. Alle codes werken perfect.:thumb::thumb:

Hartelijk bedankt