VBA - font size for column 1 based on value in column 2

[SteamedHams]

Hi everyone,

I'm trying to change font size of a cell based on the text of another cell.

For example,
Cell A1 can contain the text "High, Medium, or Low" and cell B1 consists of a dot symbol.
I want the dot symbol in B1 to change font size depending on the value in A1.
Where High = font size 36, Medium = font size 26, and Low = font size 16.

Been trying to figure it out but I am very inexperienced with VBA.

Thanks in advance.

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 6/18/18 9:20 PM EDT
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value = "High" Then Target.Offset(1).Font.Size = 36
If Target.Value = "Medium" Then Target.Offset(1).Font.Size = 26
If Target.Value = "Low" Then Target.Offset(1).Font.Size = 16
End If
End Sub

 

[SteamedHams]

Thanks for the response. I cannot seem to get it to work. Furthermore, does the code above take into consideration the whole column A or just the single cell? - sorry, I should have been clearer in my description.

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 6/19/18 12:05 PM EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value = "High" Then Target.Offset(, 1).Font.Size = 36
If Target.Value = "Medium" Then Target.Offset(, 1).Font.Size = 26
If Target.Value = "Low" Then Target.Offset(, 1).Font.Size = 16
End If
End Sub

 

[SteamedHams]

Thank you very much. Appears to work as intended.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you very much. Appears to work as intended.