Я пытаюсь написать код для выбора ячейки, если условие выполнено. После попытки запустить мой код в результате мой код работает, но он не выделил соответствующие строки
Не могли бы вы помочь мне понять, в чем проблема с моим кодом?
Спасибо
Sub AnalysisNote()
'1. Copy the client's name and its note ranked by 4 particular conditions (20;17-20;15-17;11-15;<11)
Dim finalrow As Long, i As Long
Dim clientnote As Range 'find
Const startrowb As Byte = 6
Dim c As Byte
c = 9
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
Set clientnote = ShNote.Rows(startrowb).Find _
(What:=ShNote.Cells(startrowb, c).Value, LookIn:=xlValues, MatchCase:=False, lookat:=xlWhole)
For i = startrowb To finalrow
If clientnote.Value = 20 Then
Range(Cells(i, c)).Select
End If
Next i
End Sub
Я ожидаю, что мой макрос найдет значение 20 в столбце «I» и выберет его.
p.s: у меня есть несколько значений "20" в столбце I