• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Sorteren van kolomen met 2 ranges

Status
Niet open voor verdere reacties.

Rommyke

Gebruiker
Lid geworden
29 mrt 2007
Berichten
357
Om mijn data te sorteren gebruik ik onderstaande macro

Code:
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

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


Iemand nog een gedacht ?

Groetjes Romain
 
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
 

Bijlagen

Het is geen antwoord op de vraag, maar waarom gebruik je samengevoegde cellen?
 
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
 
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 ? :D
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
 
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
 
.
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan