Sorteren met behoud van kleuren en bold gedrukt

[Jorisdriepinter]

Hallo ik heb een bestand waar ik een knop sorteren bij heb gemaakt. Nu sorteert de knop prima. De bedoeling is alleen het kamer nummer te veranderen en de resterende info over te nemen.
Het probleem is echter dat hij ook de gekleurde cellen meeneemt en dat dan de standaard layout opmaak niet meer is zoals in het begin van de sheet.
Ik wil ook dat de bold gedrukte zaken altijd bold zijn en de niet bold gedrukte letters moeten hetzelfde blijven.
Ik hoop dat ik het duidelijk heb uitgelegd, zo niet dan hoor ik het graag. Bekijk bijlage 210581

 

[gbouck]

Maak voor die cellen gebruik van de functie "voorwaardelijke opmaak".
Moet goed te doen zijn.

 

[Jorisdriepinter]

Hallo Geert,

Ik heb gekeken naar voorwaardelijke opmaak maar kom er niet uit. De cellen moeten om en om geel en grijs blijven en als bijv een cel tussen b3 tot b24
de tekst IVIP1, IVIP2, VIP1 of VIP2 bevat automatisch de rijen A tot R de tekst bold zijn. Vermoedelijk moet het met e.o.a. formule.
De celwaarde H6-H24 heeft al een formule en deze moet zo blijven.

 

[gbouck]

dit alles is te doen met voorwaardelijke opmaak, maar beter nog in vba

 

[Jorisdriepinter]

tot nu toe heb ik dit:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B5:B24").Select
    ActiveWorkbook.Worksheets("Smarthouse").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Smarthouse").Sort.SortFields.Add Key:=Range( _
        "B6:B24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Smarthouse").Sort
        .SetRange Range("A5:M24")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B5").Select
End Sub

Dit heb ik opgenomen met macro opnemen. Weet iemand misschien wat ik toe moet voegen?

 

[sylvester-ponte]

zo iets met voorwaardelijke opmaak:

 

[Jorisdriepinter]

Hey Silvester

Je ben een kanjer man. Het werkt nu als een trein.