Log In
Register
Home
Dashboards
Power Query
November 15, 2017
Offline
So sorry. I originally posted this on the wrong category.
I have as simple module which changes the font based on the name I select inside my worksheet. The code works well when I'm in the VBE and press F5, but when I'm in the worksheet and select a choice in the cell like "YES", the font reverts back to the default font. I know I'm doing something stupid with my code, but can't figure out what. Can someone help please? See code below.
Thanks so much!
Ken Mc
</> Option Explicit Sub test() Dim cell As Object For Each cell In Range("B2:M35") If UCase(cell.Value) Like "*YES*" Or UCase(cell.Value) Like "*MODERATE*" Then cell.Font.Name = "Comic Sans MS" cell.Font.Bold = True End If ' If UCase(cell.Value) Like "*MEDIUM*" Then cell.Font.Color = vbRed Next cell End Sub </>
VIP
Trusted Members
June 25, 2016
Offline
Hi Kenneth
Most likely you place the codes in the wrong module.
In your case (auto format when cell change) the codes should be place in the worksheet module.
Please refer my example. It uses range A1:A10 as an example.
You can refer here for more details : https://www.myonlinetraininghu.....-excel-vba
Hope this helps.
Sunny
1 Guest(s)
