Выделите диапазон ячеек на основе условного значения

Question

Я пытаюсь найти код VBA, который бы выделил соответствующую строку в диапазоне «A7: AD100», если ячейка в столбце «AB» имеет значение «Выборочный».

Sub highlight()    
    Dim cell As Range
    Range(Range("AB7"), Range("AB7").End(xlDown)).Select
    For Each cell In Selection
        If cell = "Elective" Then Cells.Range($A7, $AD7).Interior.ColorIndex = 10
    Next cell
End Sub

Подсвечиваются только строки 1, 11, 21, 23, так как они имеют Admit Type = "Elective". Строки подсвечиваются только в диапазоне «A: AD» (я не хочу, чтобы выделялась вся строка).

Answer 1

Я нашел этот код, который работает для меня

Sub HighlightCells ()

Dim rngMyCell  As Range
Dim lngLastRow As Long

Application.ScreenUpdating = False

lngLastRow = Cells(Rows.Count, "AB").End(xlUp).Row

For Each rngMyCell In Range("AB7:AB" & lngLastRow)
    If StrConv(rngMyCell, vbProperCase) = "Elective" Then
        Range("A" & rngMyCell.Row & ":AD" & rngMyCell.Row).Interior.Color = RGB(240, 240, 240)
    End If
Next rngMyCell

Application.ScreenUpdating = True

End Sub