VBA to change the font if condition is met

Marcia · #1 09-05-2024, 06:28 AM

Hi. I would like help in making a formula into a vba code.

In D5 until AH105 of "DTR Monitor" sheet, I would like to populate it with the following formula through a vba code.

Code:

Sub DTR_Monitor()

Dim WS As Worksheet

Set WS = Worksheets("DTR Monitor")

WS.Range("D5").Formula =_
IF(INDEX(Time,MATCH([@[Name of Employee]],Name,0),MATCH(D$4,DateMonitor,0)) is a number, enter "P" then change the font from Calibri to Wingdings2 (A check mark is the result).
Else, INDEX(Time,MATCH([@[Name ofEmployee]],Name,0),MATCH(D$4,DateMonitor,0)), retain the calibri font

End Sub

Thank you for the usual help.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA - Word how to globally change the font and font size in footnotes	thomasoj	Word VBA	3	01-15-2020 06:26 AM
Condition Icon setting help _ signage doesn't change	Haha88	Excel	2	02-17-2019 09:53 AM
Looping Macro to Change Font, Font Size, and Give Heading 1	WH7262	Word VBA	1	08-26-2014 03:46 PM
(Excel 2007) Need help with colour change when condition met in drop down list	oalrashdan	Excel Programming	1	12-13-2013 02:21 AM
Make Font Dropdown Change All Styles' Font	trevorhiller	Word	1	04-14-2012 02:14 AM