Поиск в выделенной ячейке текста. Макрос

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в выделенной ячейке текста. Макрос (Макросы Sub)

Alto666

Дата: Вторник, 14.01.2014, 12:29 | Сообщение № 1

Группа: Заблокированные

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Нужно осуществить поиск в выделенной ячейке текста "Всего"...если искомый текст БЫЛ найден тогда окончить работу макроса, если не был найден осуществлять поиск дальше(уже будет инная выделенная необходимая для поиска ячейка)
Большое спасибо за помощь
Вот код по которому осуществляеться именно та ячейка где осуществлять поиск:

[vba]

Код

Sheets("azsgas.com.ua").Select
Sheets.Add
Sheets("azsgas.com.ua").Select

' сюда возвращать поиск если текст Всего не был найден

Cells.Find(What:="УЕГГ", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Лист1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Selection.End(xlDown).Offset(2).Select
Sheets("azsgas.com.ua").Select
Selection.End(xlDown).Offset(3).Select
' - тут выделяется ячейка где необходимо осуществлять поиск текста Всего
Application.CutCopyMode = False

[/vba]