огромное спасибо за помощь. На счет удаления в столбце это я перепутал ))

Отлично всё работает. Спасибо огромное за помощь. Я уже думал что это невозможно. Если можно, ещё вопрос. Что изменить в макросе чтобы значения удалялись на всех листах не в столбце H, а например в D? Спасибо

вот пример

Извините, не удается прикрепить файл.

Добрый день форумчане! Подскажите пожалуйста, можно ли решить следующую задачу? Есть книга с большим количеством листов, каждый лист содержит данные не встречающиеся на других листах. Например, на листе с названием А1 в каждой строке в столбце "H" содержатся значения: А, АА, ААА, АААА и т.д., на листе с названием В2 в каждой строке в столбце "H" содержатся значения: В, ВВ, ВВВ и т.д. На последнем листе есть список всех значений. Наверно нужен макрос с помощью которого будет произведена проверка по всем листам книги на наличие значений из последнего листа и если попадуться совпадения удалить строки на листах, в которых они находятся? Подскажите пожалуйста в какую сторону копать, искал на форуме но в основном написано в рамках одного листа. Прикрепляю фрагмент файла с примером, в оригинале строк и листов намного больше. Excel 2007.  
Заранее благодарю всех кто ответит

{quote}{login=}{date=12.12.2012 03:45}{thema=}{post}А при чем тут СЖПРОБЕЛЫ?  
 
=СЦЕПИТЬ(A2;" г. ";B2;" ул. ";"д. ";C2;ЕСЛИ(D2<>"";"/";"");D2;ЕСЛИ(E2<>"";" кв. ";"");E2){/post}{/quote}  
Огромное спасибо за помощь, всё работает отлично! Отличный сайт, отличные форумчане! Удачи всем и ещё раз СПАСИБО!!

прошу прощения, не указал что у меня Excel-2007

Добрый день форумчане. Выручайте, нужна Ваша помощь. Есть некая таблица, в столбцах А, В, С, D, E находятся данные с названиями населенного пункта и улицей, номером дома, корпуса и квартиры. Необходимо склеить значения ячеек, но с условием к названию города добавить "г.", к названию улицы - "ул.", номер дома с корпусом отобразить через "/" и к номеру квартиры добавить "кв.". Всё работает с помощью формулы =СЦЕПИТЬ(A2;" ";"г.";" ";B2;" ";"ул.";" ";"д.";" ";C2;"/";D2;" ";"кв.";" ";E2)  
Но при объединении значений где не указан корпус и квартира отображается результат вида: Львов г. 25 Октября ул. д. 118/ кв. , а должно быть Львов г. 25 Октября ул. д. 118  
Помогите решить проблему или поверните в нужном направлении. Заранее благодарю всех кто откликнется.  
Прикрепил пример для сравнения. В столбце "G" то что хочется получить в конечном итоге

да, чёто всё работает как и работало... Что с кодом что без кода  
 
Sub Main()  
For i = 100 To 3 Step -1  
If Range(Cells(i, "A")).Text = "" Then Rows(i).Delete  
Next  
ActiveWindow.DisplayZeros = False  
End Su  
 
Вот по этому коду макрос проверяет ячейки в столбце А на нулевые значения. Если пусто либо ноль тогда удаляется строка. Может быть можно как нибудь подправить чтобы при внесённых значениях ячейка блокировалась от изменений, а если пустая то оставалясь открытой для изменений

Помогите реализовать следующее. В ячейках A1:A100 прописан путь к другой книге через список. Т.Е. при нажатии на ячейку есть возможность фабрать наименование из списка. Возможно ли защитить каким то образом ячейку от изменений после того как в неё добавили значение из списка. Если ячейка пустая - то должна быть не защищена.

Всё отлично работает. Вот рабочее решение сохранения в туже папку откуда был запущен файл:  
Sub Main()  
For i = 100 To 3 Step -1  
If Range(Cells(i, "B"), Cells(i, "O")).Text = "" Then Rows(i).Delete  
Next  
ActiveWindow.DisplayZeros = False  
Range("O3:O100").Select  
Selection.Copy  
Range("B3:B100").Select  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
Range("C3:C100,E3:G100").Select  
Application.CutCopyMode = False  
Selection.ClearContents  
Name = Application.GetSaveAsFilename(ThisWorkbook.FullName)  
ActiveWorkbook.SaveAs Filename:=Name, _  
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
ReadOnlyRecommended:=False, CreateBackup:=False  
End Sub  
Ура!! Всем спасибо!!

{quote}{login=LightZ}{date=29.03.2012 08:36}{thema=}{post}так?  
 
Name = Application.GetSaveAsFilename(ThisWorkbook.FullName)  
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.FullName, _  
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
ReadOnlyRecommended:=False, CreateBackup:=False{/post}{/quote}  
К сожалению не работает так как хотел. После запуска макроса появляется запрос на сохранение файла, в папке из которой был запущен файл и с именем предыдущего файла. Но даже после переименования пишет что такой файл уже существует и предлагает заменить его. Мне же необходимо чтобы отчёт-донор закрылся, а новый сохранился с новым именем. В том коде, что я привёл выше, всё работает идеально, только по умолчанию предлагает сохранить в папку Мои документ, т.е. в ту папку которую считает по умолчанию в параметрах Excel рабочим каталогом.

спасибо за строчку:  
Name = Application.GetSaveAsFilename(ThisWorkbook.Path)  
Всё сохраняется именно в той папке из которой был запущен файл. Проблемма в том, что в этом варианте нет названия файла при сохранении. С файлом будут работать много народа, поэтому если файл будет называться "29.03.2012_отчёт ООО Рога и копыта_Иванов.xls" проще будет исправить только дату и фамилию при сохранении чем набирать название заново.  
С    
ChDir ThisWorkbook.Path & "\"  
Name = Application.GetSaveAsFilename  
работает так же как и до изменения. Может быть проблема в версии Excel ? У меня 2003

а это куда?

Подскажите что нужно изменить в коде чтобы по запуску макроса новый документ сохранялся в той же папке откуда был запущен предыдущий. На данный момент макрос работает следующим образом. При запуске проверяет и удаляет строки с нулевым значением, копирует значения из столбца ВСЕГО в столбец НАЧАЛО ДНЯ, очищает "вчерашние" данные из отчёта, закрывает вчерашнюю форму отчёт и предлагает сохранить файл, но по умолчанию он предлагает это сделать в Моих документах. Можно ли макросом заставить его предлагать ту же папку откуда был запущен предыдущий отчёт? ниже привожу код макроса, поправьте кто может. снятие защиты "123"  
Sub Main()  
For i = 100 To 3 Step -1  
If Range(Cells(i, "B"), Cells(i, "O")).Text = "" Then Rows(i).Delete  
Next  
ActiveWindow.DisplayZeros = False  
Range("O3:O100").Select  
Selection.Copy  
Range("B3:B100").Select  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
Range("C3:C100,E3:G100").Select  
Application.CutCopyMode = False  
Selection.ClearContents  
Name = Application.GetSaveAsFilename  
ActiveWorkbook.SaveAs Filename:=Name, _  
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
ReadOnlyRecommended:=False, CreateBackup:=False  
End Sub

вставил, появился пункт в контекстном меню, но при нажатии Добавить скопированные ячейки выдаёт сообщение что необходимо снять защиту. Можно ли добавить скопированные ячейки(строку) без снятия защиты? Может быть нет такой возможности в Excel?  
Excel-2003.

Доброго дня вам гуру Excel. Есть вот такой макрос:  
Private Sub Workbook_Open()  
   Dim wsSh As Object  
   For Each wsSh In Me.Sheets  
       Protect_and_Structure wsSh  
   Next wsSh  
End Sub  
Sub Protect_and_Structure(wsSh As Object)  
   wsSh.Unprotect Password:="admin"  
   wsSh.EnableOutlining = True  
   wsSh.Protect Password:="admin", Scenarios:=True, UserinterfaceOnly:=True  
End Sub  
Т.е. при запуске файла включается защита листа с возможностью работать с группировкой. Но при этом нет возможности вставлять скопированные строки. Какую команду необходимо дописать для того чтобы разрешить вставлять строки без снятия защиты?

вот в чём проблема была:    
ActiveWorkbook.SaveAs Filename:=Name & "xls", _  
       FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
       ReadOnlyRecommended:=False, CreateBackup:=False  
Правильное значение FileFormat:=xlNormal  
 
Сейчас попробую ещё доделать и отпишу. Спасибо вам за сайт и за советы ваши. Обожаю Excel ))))

{quote}{login=lexey}{date=16.02.2012 06:28}{thema=}{post}Следовательо мой вариант не заорабтал?{/post}{/quote}  
Неа.. У меня уже мозг кипит, ещё чуть чуть и я напишу макрос для удаления Excel... Сори за оффтоп. Но ошику выкидывает всё там же

опять с ошибкой... Может быь я чтото не так и не туда вставляю? Прикрепите пожалуйста свой вариант. Примного благодарен

вот тут что то не так:  
BazaWB.SaveAs sPath, xlNormal  
выкидывает ошибку(((

Прошу помочь дописать макрос. С горем пополам слепил следующий макрос:  
Sub Main()  
   Dim i As Integer: Application.ScreenUpdating = False  
   Sheets("отчёт").Copy  
   ActiveWindow.DisplayZeros = False  
   For i = 25 To 3 Step -1  
       If Range(Cells(i, "B"), Cells(i, "N")).Text = "" Then Rows(i).Delete  
   Next  
   ActiveWindow.DisplayZeros = True  
   Range("N3:N100").Select  
   Selection.Copy  
   Range("B3:B100").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Range("C3:G100").Select  
   Application.CutCopyMode = False  
   Selection.ClearContents  
End Sub  
Т.е. по нажатию на кнопку происходит копирование листа с переносом значений из столбца N в столбец B через спец.вставку. При этом удаляются строки с нулевым значением и значения в ячейках С3:G100. Необходимо чтобы при нажатии Книга-донор закрывалась без изменений, а для новой книги выводилось сообщение для сохранения под новым именем с выбором директории

Уважаемый модератор Юрий М, мне это нисколько не мешает

{quote}{login=lexey}{date=16.02.2012 12:51}{thema=}{post}Посмотри, только путь измени в макросе( у меня стоит "C:\Обмен\", измени на тебе нужный) вроде как работает))){/post}{/quote}  
даёт ошибку Run-time error 1004  
Method SaveAs of object _Workbook failed  
на этом моменте  
ActiveWorkbook.SaveAs Filename:="C:\Обмен\" & name & ".xls", FileFormat:= _  
     xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _  
     , CreateBackup:=False

Необходима Ваша помощь, т.к. голову уже сломал...  
Суть. Есть некий файл отчёта, Отчёт1 в котором присутствует столбец N с формулами в каждой ячейке.  
Нужен макрос для автоматического создания нового файла, точно такого же но с другим именем, например Отчёт2.  
В Отчёт2 в столбец В должны попасть данные из столбца N Отчёта1, но не с формулами а только значения. Я так понимаю необходимо использовать специальную вставку.  
Да, и ещё. Во всех файлах при запуске включается защита листа на колонки М и N. Если нет готового ответа, прошу навести хотябы на мысль в правильном направлении. Заранее спасибо всем кто откликнется.  
Во вложении файл Отчёта1 и файл Отчёта2 который необходимо сгенерировать из Отчёта1