Option Button Change Cells Text Properties

[Oprichnick]

Hello, I Have a code for a userform which inserts textboxes and listboxes values each time I press ok, row by row. In the userform I have two optionsbuttons, and I would like that in one of the columns the text to appear red or green dependently what button I've chosed. My code is this: [

    Dim Rng1 As Range
    Dim NextRow7 As Long
    
    Rng1 = Cells(NextRow7, 8)
    NextRow7 = Application.WorksheetFunction.CountA(Range("H:H")) + 1
    
    If Op1 Then Cells(NextRow4, 4) = "y" 
    If Op1 Then Rng1.Font.ColorIndex = RGB (255,0,0)

It doesn't do anything... (I've just pasted the code I think that may be useful.)

---

---

 

[Boswell]

If you want to set the color by RGB use the .Color property:

Rng1.Font.Color = RGB(255,0,0) 'red
Rng1.Font.Color = RGB(0,255,0) 'green

If you want to use .ColorIndex property then use the integer typed color index:

Rng1.Font.ColorIndex = 3 'red
Rng1.Font.ColorIndex = 4 'green

 

[Oprichnick]

Nice. Thanks a lot Boswell