VBA - Sub select all, but add exceptions

[cozzagiorgi]

Hi

I have this sub wich transforms all my unchecked boxes in checked boxes (R) in column B.

Sub allewählen()
 
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
 
    Range("B12:B" & lastrow).Value = "R" 'R = checkedbox
 
End Sub

How can I add exceptions to this sub?

Some rows will contain the value “S” and those should not be touched by this sub.

 

[Fluff]

You start with

Evaluate(Replace("if(@=""S"",""S"",""R"")", [COLOR=#ff0000]"@"[/COLOR], [COLOR=#0000ff].Address[/COLOR]))

Replace replaces the part in red with the part in blue which gives

Evaluate("if(.address=""S"",""S"",""R"")")

. address is the address of the cell being looked at eg B12 which gives

if(B12=""S"",""S"",""R"")

ie a normal excel formula which is then calculated by evaluate