Hej!

Sökte lite i forumet men hittade inget om detta.

Sitter i ettt excelflak där jag har rutor som är 8 celler i höjd och 4 celler i bredd.
Jag vill färgsätta dessa celler baserat på ett av värdena.

Om vi tar ruta ett så ligger den P4:S11, värdet jag vill färgsätta baserat på ligger i Q7.
Jag har fem olika färger som ska användas.
Funkar detta att göra med villkorsstyrd formattering eller blir det för avancerat och det är VBA som gäller för mig nu?
Gissar att jag skulle behöva skapa fem separata regler, hittills har jag lyckats få till noll regler som funkar.

Rutorna följer med en rads mellanrum nedåt eller tre kolumners mellanrum åt höger. Men det kanske inte spelar någon roll för reglerna?

Tack på förhand!

 Det där fungerade ju fint, tack!
Problemet är ju bara att jag kan komma att behöva applicera regeln på upp emot 100 olika rutor.
Går det på något sätt att skriva formeln så att den flyttas när jag flyttar formatteringen?

Jag testade Q7= istället $Q$7= men då färgsattes endast cellen längst upp i vänstra hörnet av varje ruta. Även om själva användningsområdet för formatteringen flyttas med så vill den inte.

 Eftersom det var så svårt att mata in reglerna manuellt så får du ett makro som loopar igenom cellerna i markeringen ooch petar in de 5 reglerna i varje cell (anpassa färger och regler).

Varje cell inehåller bara sina egna regler och man slipper sammanslagningarna som blir är man matar in manuellt

Sen kan du kopiera området med reglerna eller använda formatpenseln för att kopiera

OBS!  markera området P4 till S11 innan du kör makrot.

Sub tjoho()

Dim rEnCell As Range

' markera P4 till S11.

' Radera gamla regler i området

Selection.FormatConditions.Delete

' loopa igenom de 32 cellerna och lägg till 5 regler i varje cell

For Each rEnCell In Selection.Cells

    With rEnCell

        .FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=1)"

        .FormatConditions(.FormatConditions.Count).Interior.Color = vbRed

        .FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=2)"

        .FormatConditions(.FormatConditions.Count).Interior.Color = vbGreen

        .FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=3)"

        .FormatConditions(.FormatConditions.Count).Interior.Color = vbMagenta

        .FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=4)"

        .FormatConditions(.FormatConditions.Count).Interior.Color = vbYellow

        .FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=5)"

       .FormatConditions(.FormatConditions.Count).Interior.Color = vbCyan

     End With

Next

End Sub

https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/color-constants

https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/rgb-function

Får upp ett fel när jag försöker köra makrot.
Excel ger körfel nr 5, ogiltigt proceduranrop eller argument.

Vad misslyckas jag med? Är ingen stjärna på VBA.

Den kör fram till " Selection.FormatConditions.Delete "

Testat att stega igenom med F8 nu.
Det är på när jag kommer till
.FormatConditions(.FormatConditions.Count).Interior.Color = vbRed
som den inte vill längre, testat att köra färger som RGB men samma strul då med.