(excel_2010_VBA) как перейти к ячейке

[lapin912]

Доброго дня, как в скрипте прокрутить лист в excel, при нахождении ячейки с текстом "пуск", и как устранить ошибку при отсутствии данного текста?

[Казанский]

lapin912, запишите действие 'найти ячейку с текстом "пуск"' макрорекордером, перед собственно командой поиска добавьте

On Error Resume Next

[EducatedFool]

sub поиск1()
On Error Resume Next ' чтобы ошибок не было
range("a:a").find("пуск").entirerow.select ' поиск с выделением строки
end sub

или

sub поиск2()
On Error Resume Next ' чтобы ошибок не было
ActiveWindow.scrollrow = range("a:a").find("пуск").row ' прокрутка листа
end sub

или

sub поиск3()
On Error Resume Next ' чтобы ошибок не было
Application.Goto Range("a:a").Find("пуск"), True  ' переход на найденную ячейку
end sub

[lapin912]

Сообщение от EducatedFool

sub поиск1()
On Error Resume Next ' чтобы ошибок не было
range("a:a").find("пуск").entirerow.select ' поиск с выделением строки
end sub

или

sub поиск2()
On Error Resume Next ' чтобы ошибок не было
ActiveWindow.scrollrow range("a:a").find("пуск").row ' прокрутка листа
end sub

или

sub поиск3()
On Error Resume Next ' чтобы ошибок не было
Application.Goto Range("a:a").Find("пуск"), True  ' переход на найденную ячейку
end sub

Спасибо третий точно рабочий на втором пишет ошибку.