Alleen inhoud cellen sorteren, niet de opmaak.

[corvdh]

Ik heb een Excel bestand met ongeveer 60 werkbladen, blad 1 is de index.
Ik heb een aantal rijen (1 t/m 125) in deze index om en om opgemaakt met een achtergrondkleur,
Rij 1 geel, rij 2 wit, rij 3 geel, rij 4 wit, enz. enz.

In elke rij staat in kolom G een drukknop waardoor ik via een macro makkelijk naar een werkblad kan navigeren.
Als ik nu op regel 100 iets intyp wil ik de index daarna sorteren van A t/m Z.
De knoppen in kolom G worden keurig mee gesorteerd maar helaas ook de achtergrondkleuren van de cellen, en dat is nou net wat ik niet wil.

Kan ik (eventueel via een macro) regelen dat alles word gesorteerd behalve de letterkleur en de achtergrondkleur van de cellen?

 

[HSV]

Wis je gele opmaakrijen, en probeer uit deze code eens iets in te voegen in jouw code.

Sub tst()
Dim i As Integer
  With Range("A1:A" & Cells.SpecialCells(xlCellTypeLastCell).Row).EntireRow
   .Interior.ColorIndex = xlNone
   .Font.ColorIndex = 1
  End With
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
  With Cells(i, 1)
   .Sort [A1], xlAscending
   .EntireRow.Interior.ColorIndex = 6
   .EntireRow.Font.ColorIndex = 3
  End With
 Next
End Sub

 

[popipipo]

Of via voorwaardelijke opmaak.

 

[corvdh]

Ik heb beide Excelbestanden getest.
Sorteren via de macro werkt wel maar de knoppen worden nu ook niet meer mee gesorteerd, en dat moet nu juist wel.

Voorwaardelijke opmaak werk alleen als je nog geen voorwaardelijke opmaak hebt ingesteld op een cel.
In 2 kolommen is al een voorwaardelijke opmaak ingesteld.

Het mooiste zou zijn dat alle oneven rijen (rij 2 t/m rij 125 en van kolom A t/m kolom M) door middel van een macro kunnen worden opgemaakt met een kleur.
En dit dan ook voor de even rijen.
Dit zou ik dan samen met het sorteren van rij 2 kolom A t/m rij 125 kolom M in een macro kunnen zetten.
Kan dit? zoja dan is mijn probleem opgelost.

 

[popipipo]

Met een xls bestandje (inclusief jouw VO) dan krijg je vaak sneller een antwoord,

 

[corvdh]

Ik ben er inmiddels uit dankzij de volgende macro:

Sub Index_sorteren ()

Range("B4:L125").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Dim Counter As Integer
    For Counter = 1 To Selection.Rows.Count
        If Counter Mod 2 = 0 Then
            Selection.Rows(Counter).Interior.ColorIndex = 6
        End If
    Next

For Counter = 1 To Selection.Rows.Count
        If Counter Mod 2 = 1 Then
            Selection.Rows(Counter).Interior.ColorIndex = 4
        End If
    Next

End Sub

De index word gesorteerd en vervolgens de achtergrondkleur van de cellen in alle even rijen binnen de selectie geel opgemaakt, alle oneven rijen blauw.

Mijn vraag is dus opgelost