Спасибо!

Есть таблица, первая колонка в которой - дата. Как при помощи VBA вставить между разными датами по три строки без границ с определенным текстом? Заранее спасибо. Пример прикладываю...

Спасибо!!! то что надо!

Да, если такие ячейки имеются вывести сообщение и прекратить дальнейшее выполнение макроса, если таких ячеек нет продолжить выполнение макроса.

Подскажите как при помощи VBA определить наличие пустой ячейки (не заполненной = ""  в диапазоне (например А1:С300) или ячейки с значением = 0 ?

Спасибо!!!

Как сделать в макросе условие: если в книге есть лист "Лист1" макрос выполняется, если листа с таким именем в текущей книге нет - макрос не выполняется. Заранее спасибо!

ВСЕМ СПАСИБО, ТО ЧТО НАДО!!!

Юрий М  
Точно! :)

Юрий М .да в колонке "B", а значение вставить допустим в последнюю незаполненную строку (ячейку B?)  
vikttur дело  том что файлов оч много и количество строк межу 4 и 5 разделом постояно меняется. Хотелось файлы обрабатывать макросом, т.к. в ручную оч. долго.

Подскажите пожалуйста, можно ли макросом просуммировать значение ячеек в столбце "С" при условии что в противоположной ячейке столбца "А" содержится значение "ORG"  и только те ячейки которые находятся между разделом IV и V. Количество строк постоянно меняется от 500 до 1000. Для наглядность прилагаю небольшой пример файла.

Подскажите пожалуйста, в макросе для загрузки данных есть строка    
.InitialFileName = "BAL*.dbf"    
А как установить несколько масок имен?

А можно по подробнее? Заранее благодарен!

Подскажите пожалуйста, можно в excel создавать подсказки в виде текста или цвета, но так чтобы это не отображалось при печати?

{quote}{login=Serge 007}{date=21.04.2010 09:28}{thema=}{post}Ух Вам сейчас за такое :-))){/post}{/quote}  
За что!!! Я жтолько прошу совета?

пример

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

Всем спасибо.  
Dophin первый вариант вполне подошел.  
Спасибо огоромное.

Подскажите пожалуйста как разбить текст ячейки на две, таким образом чтобы чтобы впервой ячейки было не более 20 знаков, но переносился бы текст не с середины слова, а слова полностью(если умещается 3 слова, то 3,если два слова, то два - т.е. не разрывая слов), а во второй строке все остальные слова.

Спасибо!!!

Dophin Юрий М  
Спасибо огромное, и первый и второй метод пригодится.Пример уважаемого Dophin как раз для той части файлов которые нельзя изменять, и лист в них приходится удалять.Теперь пытаюсь прикрутить к вашему макросу еще и перенос шапки таблицы - это постоянный диапазон Range("A1:H24").Select, только куда его подставить?

Юрий М  
Всегда толь эти два города.

пример

Здравствуйте Ув.форумчане.  
Прошу вашего совета. На работе приходится обрабатывать огромный объем файлов. Из каждого файла надо распечатать таблицу, но не полностью а только те строки в которых находятся значения удовлетворяющие условия отбора.Файлы изменять нельзя, поэтому формулы отпадают. Я начал потихоньку мудрить с макросом, который выделеные строки копирует на временный лист, отправляет таблицу на печать, а после удаляет временный лист.Но до этого удерживая Сtrl приходится вручную выделять нужные строки (таблицы примерно имеют в среднем 2000-3000 строк)и таких файлов в день надо обрабатывать штук 50-70. Подскажите можно будет доработать макрос, чтобы можно было выделять строки по определенному условию? Тогда можно былоб макрос повешать на кнопку в меню и пол дела сделано... Заранее спасибо. Часть такой таблицы в примере, там же макрос.

ZVI  
Спасибо!

Подскажите пожалуйста.Записал макрос, который выделенные данные с основного листа собирает в один временый "temp", передает на печать а потом его удаляет.  
Sub Макрос1()  
   Selection.Copy  
   Sheets.Add.Name = "temp"  
   Sheets("temp").Select  
   ActiveSheet.Paste  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
   Sheets("temp").Select  
   ActiveWindow.SelectedSheets.Delete  
End Sub  
 
Как избавиться от предупреждения "что на листе могут находиться данные" и лист удалялся сразу без лишних вопросов?

Ситуация такая есть таблица в которой колонка А это эталонные значения ФИО, а вторая, т.е. колонка В - это подгружаемые значения из реестров.Так вот теоретически данные расположенные напротив друг друга должны быть идентичны (например А1"Иванов И.И." = В1"Иванов И.И."), но бывает когда в подгружаемых данных содержатся ошибки (например А1"Иванов И.И." = В1"Ивонов И.И." не совпадает 1 буква) или (например А1"Иванов И.И." = В1"Ирванов И.И." одна лишняя буква) или совсем (например А1"Иванов И.И." = В1"Сидоров С.С." полность другое слово). Подскажите какими способами можно сравнить данные (на какое количество знаков расхождение) если взять колонку А за основу. Пробывал пользовательскую функцию которая сравнивала первую букву в ячейке А с первой буквой в ячейке В, потом вторую букву и т.д., но если в самом начале слова введен лишний символ то функция все последующие буквы в ячейке считала не верными и кол-во не совпавших символов равнялась количеству символов с слове хотя слова не совпадают на одну букву (например А1"Иванов И.И." = В1"Ирванов И.И." одна лишняя буква).

Dophin  
Спасибо. То что надо.

Dophin  
Подскажите где можно посмотреть про такой макрос?

Может не по теме, поскажите пожалуйста, можно сделать сравнение таким образом: если в ячейке А1="Петров" а в В1="Петров" различие 0 знаков тогда выделение например зеленое, А1="Петоров" а в В1="Певров" различие 1 знак, тогда выделение например желтое и т.д.