Conditional format

[trebor1956]

Is it possible to format text to white in column A if column B is unhidden but then format the text in column A to black when column B is hidden?
All help gratefully received

 

[Special-K99]

Links here refer to indentifying if a CELL is hidden or unhidden, but you'd have to read more deeper than I have to see if anything like this works.

https://superuser.com/questions/885159/excel-function-determine-if-a-cell-is-visible

https://stackoverflow.com/questions/28537332/formula-to-decide-if-cell-is-visible

 

[Kamolga]

Rigt click your sheet name, click on "code" and paste this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet: Set sh = ActiveSheet
'Last Row
 Dim lr As Long: lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row

If Columns("B:B").Hidden = True Then
    Columns("A1:A"&lr).Font.ThemeColor = xlThemeColorDark1
    Else
    Columns([COLOR=#222222][FONT=Verdana]"A1:A"&lr[/FONT][/COLOR]).Font.ColorIndex = xlAutomatic
End If 'Column B visible
End Sub

When you hide column B and select a cell, A font is white. Unhide and click a cell, A font is black again.

 

[Kamolga]

Sorry, code above is wrong. I applied the formula to columns("A:A") but this is not really good, it is better to apply it from A1 to last cell from A (so a range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet: Set sh = ActiveSheet
'Last Row
 Dim lr As Long: lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
If Columns("B:B").Hidden = True Then
    Range("A1:A" & lr).Font.ThemeColor = xlThemeColorDark1
    Else
    Range("A1:A" & lr).Font.ColorIndex = xlAutomatic
End If 'Column B visible
End Sub

 

[trebor1956]

Hi Kamolga,

Works a treat, thank you so much.