Выберите ячейку, если условие выполнено - PullRequest
0 голосов
/ 14 мая 2019

Я пытаюсь написать код для выбора ячейки, если условие выполнено. После попытки запустить мой код в результате мой код работает, но он не выделил соответствующие строки

Не могли бы вы помочь мне понять, в чем проблема с моим кодом?

Спасибо

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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...