Regel kleuren met macro

[Logistiek]

Hallo,

ik ben bezig met het maken van een order overzicht.

nu wil ik via een knop ( macro) een kleur te geven aan een bepaalde regen, die voor een bepaalde status staat.

alleen lukt het me om de hele ( liever een selectie) te selecteren via wat ik nu heb gemaakt.
wie weet hier wat voor ?

Sub keuze_kleuren ()

Dim rng As Range
Dim y As Long

' beveiliging er afhalen
' ActiveSheet.Unprotect

With Sheets("Orders 2022")

For Each rng In .Range("a3:A50")

If rng = "x" Then
'With rng
y = Sheets("Orders 2022").Cells(Rows.Count, "A").End(xlUp).Row + 1
rng.Offset(, 2).Interior.ColorIndex = 10

End If

Next rng


'beveiliging weer aan zetten
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End With

End Sub

 

[edmoor]

Is dit wat je zoekt?

Sub keuze_kleuren()
    Dim cl As Range
    
[COLOR="#008000"]    'beveiliging er afhalen
    'ActiveSheet.Unprotect[/COLOR]
    
    With Sheets("Orders 2022")
        For Each cl In .Range("A3:A50")
            If cl = "x" Then
                .Range("C" & cl.Row & ":V" & cl.Row).Interior.ColorIndex = 10
            End If
         Next cl

[COLOR="#008000"]    'beveiliging weer aan zetten
    'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True[/COLOR]
    
    End With
End Sub

 

[Logistiek]

Yes

Ja dat is wat ik zocht super !

bedankt
kan ik weer ff door