Sorteren van kolomen met 2 ranges

[Rommyke]

Om mijn data te sorteren gebruik ik onderstaande macro

Sub Sorteren()
Dim LastRow As Integer

LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Range("B2:c" & LastRow).Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Nu ben ik aan het proberen om een 2 de range te selecteren waarbij kolom D ongewijzigt moet blijven en kolom E weer wel gesorteerd moet worden.
Onderstaande code heb ik al proberen in e veogen maar zonder resultaat

Range(("B2:C" & LastRow), ("E2:E" & LastRow)).Select

Iemand nog een gedacht ?

Groetjes Romain

 

[Wigi]

Doe maar een voorbeeldbestandje bij.

 

[Rommyke]

hoi Wigi,

Heb een voorbeeld bestandje gemaakt.

kolommen B, C , D mogen niet gesorteerd worden en de rest moet op datum gesorteerd worden .

Bedankt .

Groetjes
Romain

 

[Wigi]

Het is geen antwoord op de vraag, maar waarom gebruik je samengevoegde cellen?

 

[Rommyke]

Het is geen antwoord op de vraag, maar waarom gebruik je samengevoegde cellen?

Is van in een vroeger stadium en voor de lay-out
Heeft allemaal te maken met kleuren van cellen in kolom B en gekleurde kadertjes rond die cellen .

Ga nog kijken wat ik kan doen om ervan af te geraken

Brengt veel ongemak mee , op programmeer vlak , enz

 

[Wigi]

Ga nog kijken wat ik kan doen om ervan af te geraken

Brengt veel ongemak mee , op programmeer vlak , enz

Rijhoogtes aanpassen, de Uitlijning via Celeigenschappen instellen, ...

 

[Rommyke]

Rijhoogtes aanpassen, de Uitlijning via Celeigenschappen instellen, ...

Oke , alles is aangepast , heb nu geen samengevoegde cellen meer .

Kan nu ook alles sorteren met 1 range.

Moest het kunnen zou ik toch nog graag de code willen zien om te sorteren op 2 aparte ranges ?
Tis maar om te weten en bij te leren , voor wie weet in de toekomst

Opstarten van file en verwerkingen zijn ook een stuk sneller geworden

Groeten
Romain

 

[Wigi]

Dat is lastig volgens mij.

Ik zou de eerste kolom tijdelijk kopiëren tot bij de andere kolommen, alles sorteren, en dan die kolom terug verplaatsen tot zijn oorspronkelijke positie.

Wigi

 

[Rommyke]

.
Ik zou de eerste kolom tijdelijk kopiëren tot bij de andere kolommen, alles sorteren, en dan die kolom terug verplaatsen tot zijn oorspronkelijke positie.

Heel goed idee Wigi , moet er maar opkomen .


Bedankt
Groeten Romain