Försöker loopa så en kod med format körs på alla blad i - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

Forum

Diskussioner

VBA

Försöker loopa så en kod med format körs på alla blad i

Föregående

Nästa

2023-12-19 08:55

Sven

Medlem sedan: 2023-12-19

2 inlägg

Försöker loopa så en kod med format körs på alla blad i

Hej,

Försökt få denna kod att köras på alla blad men den funkar inte, kan ni se problemet?

Sub MakroGulTill()

' GUL

Dim ws As Worksheet

' Loop through all sheets in the workbook

For Each ws In ThisWorkbook.Sheets

ws.Range("I6:I106").FormatConditions.Add Type:=xlExpression, Formula1:="=$H6=3"

ws.Range("I6:I106").FormatConditions(ws.Range("I6:I106").FormatConditions.Count).SetFirstPriority

With ws.Range("I6:I106").FormatConditions(1).Font

.Color = -16711681

.TintAndShade = 0

End With

Next ws

End Sub

2023-12-19 10:46

Gondi

Medlem sedan: 2023-03-28

341 inlägg

Re: Försöker loopa så en kod med format körs på alla blad i

Hej och välkommen till forumet Sven!

Problemet är att du försöker skapa en regel för villkorsstyrd formatering med en relativ cellreferens.

ws.Range("I6:I106").FormatConditions.Add Type:=xlExpression, Formula1:="=$H6=3" <-- rad 6 föregås inte av $-tecknet.

Vad som händer då är att regeln för villkorsstyrd formatering skapas relativt till vilken cell du har markerat på respektive arbetsblad. För att din kod ska fungera måste du därför ha valfri cell på rad 6 markerad på respektive arbetsblad innan du kör makrot.

Lägg till nedan gulmarkerad rad så kommer koden att fungera.