выделение строки по коду

[Screame]

Здравствуйте! Есть у меня небольшой код который находит в таблице нужный артикул и выделяет указанный диапазон столбцов, но никак у меня не получается приспособить его к своей таблице, может кто подскажет что исправить? Пример приложил.

[kuklp]

Private Sub CommandButton1_Click()
    For r = 2 To Cells(3, 2).End(xlDown).Row
        If Cells(r, 2).Value = Cells(3, 23).Value Then
            Range(Cells(r, 1), Cells(r, 20)).Select
            Exit Sub
        End If
    Next
End Sub

[Казанский]

1.

For r = 2 To Cells(1, 1).End(xlDown).Row

Столбец 1 пустой, так что цикл будет пробегать по всему столбцу. Данные начинаются с 4 строки, так что лучше

For r = 4 To Cells(Rows.Count, 2).End(xlUp).Row

2.

      For c = 2 To 7
        okrow = Cells(r, c) = Cells(2, c + 22)
        If Not okrow Then Exit For
      Next

Сравниваются столбцы 2-7 со столбцами 24-29. Но столбцы после 20-го пустые!

[Казанский]

Может, так?

Private Sub CommandButton1_Click()
Dim c As Range
Set c = Columns(2).Find(Cells(3, 23), , xlValues, xlWhole)
If Not c Is Nothing Then c(, 0).Resize(, 20).Select
End Sub

[Screame]

супер, все работает отлично, огромное СПАСИБО!