[okshef]

BURJ, назначьте макрос (программу) кнопке. И версию Office озвучьте, пожалуйста.

[Delirium]

как автоматом сделать то что вынес на обговор surgutfred о переводах каретки »

Совсем забыл, что обещал скинуть решение. Во вложении файл, 1 кнопка. При нажатии выбираем диапазон, строку поиска, в какой столбец выводить количество совпадений. В примере в первом столбце нет данных с переводом каретки, вставьте сами. Файл в формате 2007 Excel

[BURJ]

okshef, все назначил, это все понятно. КАК АВТОМАТИЗИРОВАТЬ процесс назначения этой кнопки? Т е создать такую надстройку которая при добавлении все делала.
ЗЫ. 2000

[okshef]

2000 »

В нем можно создать свою кнопку на панели с назначенным макросом, причем, независимо от файла. Единственное, не знаю, какой файл в отвечает за пользовательские шаблоны. Берете этот файл и копируйте его на все компьютеры, и у каждого пользователя в Excel будет эта кнопка. За пояснением лучше обратиться в форум Microsoft Office.

[RUVATA]

кострукция

цикл Do while (сам определись до какого момента выполнять)

конструкция if - Else (проверишь пуста или нет такая-то Range, Offset - сместишься)
н\п

Код:

Sub First ()
Dim EndWhile As Variant

Set EndWhile = Range("A1")  

'цикл "пока выполняется условие", в данном случае проверяется адрес EndWhile
Do while EndWhile.Address <> "$C$4"
'проверка пустая ли ячейка
       If  EndWhile.value <> "" Then
'если нет то выбираем для проверки следующую
Set EndWhile = EndWhile.Offset(1,0)
       Else
'если да, то что-то там ей присваиваем и переходим к следующей ячейке
EndWhile.Value = "что-то там"
Set EndWhile = EndWhile.Offset(1,0)
       End If

Loop

...А вообще если задумались писать макросы, то для начала возьмитесь за учебник, для совсем новичка очень неплох Уокенбах

[Delirium]

RUVATA, к чему ваше последнее сообщение, дублирующее 69 сообщение ? Если предлагаете решение проблемы, озвучивайте хотя бы вкратце просьбы, иначе непонятно, к чему относить текст.

[RUVATA]

извиняюсь...
э-т ответ на #10...
я че-т проглазел, что тут ужо 8 страниц...
гость недавний... уж прощайте