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.

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