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

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

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

Поиск текста в выделенной ячейке. Макрос (Формулы)

Alto666

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

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

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

Сообщений: 5

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

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

Excel 2003

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

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
[moder]Тема закрыта. Причина: нарушение п.п. 3, 5F, 5R Правил форума[/moder]

Ответить

Поиск текста в выделенной ячейке. Макрос (Формулы)

Страница 1 из 1
1