Sorteren zonder layout te veranderen

[BattleChip]

Hallo, benk weer,

Om een lijst met gegevens overzichtelijk te houden is de eerste regel wit en de tweede regel lichtgrijs enz enz enz. Om en om dus.

Als ik nu een kolom sorteer worden de regelkleuren ook meegenomen en wordt het dus een onregelmatige bende.

Ik moet dus zien te voorkomen dat de layout (opvulkleuren van cellen) meegesorteerd worden.

Wie, o wie ?

 

[Docwell]

Hallo BattleChip


De volgende macro ( in dit voorbeeld 1 kolom gesorteerd, maar dat sorteerbereik is uiteraard aan te passen)
Ik ga er van uit, dat blad 2 leeg is (hulpblad)
De opmaak van blad 1 blijft nu ongewijzigd
Succes

Sub Macro3()
'
' Macro3 Macro
' De macro is opgenomen op 27-9-2004 door AMD.
'
' Sneltoets: CTRL+h
'
Columns("A:A").Select
Selection.Copy
Sheets("Blad2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Cut
Sheets("Blad1").Select
Columns("A:A").Select
Sheets("Blad2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad2").Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Blad1").Select
End Sub

 

[LucHeyndrickx]

Hallo Battlechip,

Kleur uw rijen met voorwaardelijke opmaak. Dan kan je sorteren; rijen verwijderen; rijen toevoegen enz. zonder dat de opmaak veranderd.

Selecteer uw werkblad(alle cellen), en dan ga je via Opmaak naar Voorwaardelijke opmaak.

Daar kies je voor 'Formule', en bij formule zet je dit:

=RIJ(A1)/2=INTEGER(RIJ(A1)/2)

Luc

 

[BattleChip]

Tis wat ingewikkelder allemaal.

Er is al 3x een voorwaardelijke opmaak gebruikt dus die optie is helaas niet meer mogelijk.

Eigenlijk is 3x ook veel te weinig voor zo'n programma als dit.

Die andere oplossing geeft ook niet het gewenste resultaat. Iedere keer als er wat verandert moet ik een nieuwe macro maken.

We hebben gewoon een nieuwe optie "sorteren zonder layout" nodig.