Я получил это для запуска, но он не работает должным образом. (Интересно, что только одна ячейка в указанном мной SheetB при запуске меняется на красный шрифт.) Мое предположение заключается в том, что я не указываю, какие листы и / или диапазоны следует использовать в правильных местах в сценарии, или что мой синтаксис просто неверен. Спасибо за помощь.
Sub RedBold()
'Sets color of current cell to red
With ActiveCell.Font
.Color = -16776961
.TintAndShade = 0
End With
ActiveCell.Font.Bold = True
End Sub
Option Explicit
Sub LowInventory()
Dim cell As Range
Dim deltaQ As Range
'Assign specific cell range in the Inventory Quantities sheet to variable deltaQ
Set deltaQ = Sheets("Inventory Quantities").[E3:E190]
'Conditional loop that checks for low deltaQ values and assigns a color to two specific cell ranges in the Inventory Costs, Sources sheet
For Each cell In deltaQ.Cells
'if deltaQ value is less than 2
If cell.Value < 2 Then
'Specify cell ranges in specific sheet to be affected by low inventory check loop
Sheets("Inventory Costs, Sources").Range("B3:B190, C3:C190").Select
Call RedBold
End If
Next
End Sub