Поиск и очистка значений

[123XYZ]

Здравствуйте!

Я с VBA для Excel знаком плохо, на данный момент, и это задание вызывает некоторые трудности.

Требуется пройтись по конкретной строке (строка 6 в примере)
если находит цифру 12, то макрос должен очистить все, что идет после столбца со значением 12.
PS заместо цифры 12 может быть другое значение например [1_123]

Пример можно поглядеть тут:
http://www.sendspace.com/file/cg7oot

Заранее вмем спасибо!

[EducatedFool]

Вот весь код:

Sub test()
    On Error Resume Next
    Range(Rows(6).Find("12", , xlValues, xlWhole).Next, Cells(Columns.Count)).EntireColumn.ClearContents
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__18-30-01.zip

Смотрите также:
Надстройки и программы для поиска в Excel:
http://excelvba.ru/category/Excel/search

Надстройка для поиска на всех листах книги Excel
Надстройка для поиска в Excel с выводом результатов на новый лист
Поиск из поля на панели инструментов Excel

[123XYZ]

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

Вот весь код:

Sub test()
    On Error Resume Next
    Range(Rows(6).Find("12", , xlValues, xlWhole).Next, Cells(Columns.Count)).EntireColumn.ClearContents
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__18-30-01.zip

Спасибо большое! В описании забыл написать, что все ячейки имеют границы - их тоже нужно очищать

[EducatedFool]

забыл написать, что все ячейки имеют границы - их тоже нужно очищать

замените ClearContents на Clear

[pooli]

а как удалить все что осталось после замененного значения,если поиск и замена по правилу в одной (тут же)ячейке?

пример кода
.Replace What:="А", Replacement:="Б", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'а после этого в ячейке нужно удалить все что там осталось!

[123XYZ]

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

замените ClearContents на Clear

пробовал на другом отчете - выдает ошибку: изменить часть объедененной ячейки невозсожно.

http://www.sendspace.com/file/m6wdr0

[123XYZ]

Скажите, а если мне нужно найти не первое значение "12" а второе например или третье и тосле него удалить значения? что нужно сделать?

[EducatedFool]

пробовал на другом отчете - выдает ошибку: изменить часть объедененной ячейки невозсожно

сначала разъедините объединённые ячейки командой UnMerge, а потом очищайте

сли мне нужно найти не первое значение "12" а второе например или третье и тосле него удалить значения? что нужно сделать?

нужно написать другой макрос

[123XYZ]

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

сначала разъедините объединённые ячейки командой UnMerge, а потом очищайте


нужно написать другой макрос

последний вопрос:

как сделать так чтобы он искал значения с учетом регистра?