Юрий М, большое спасибо за помощь, работает

Юрий М, все также просит ввести пароль, то что записывается макросом выглядит так: ActiveSheet.Unprotect и все, может как-то пароль можно вписать в тело макроса,чтоб не запрашивало его,а сразу создавало копию без защиты?

Такая проблема, есть макрос который дублирует лист по нажатию на кнопку, необходимо защитить копируемый лист от изменений, а копию листа оставить не защищенную. Пробовал защиту листа, но проблема в том что копия создается тоже с защитой. Что прописать в макросе дабы копия создавалась без защиты?  
Вот содержание макроса:  
Sub    
Dim x As Variant Application.ScreenUpdating = False  
x = [P1]
On Error Resume Next    
ActiveSheet.Copy After:=Sheets(Sheets.Count)    
ActiveSheet.Name = x    
ActiveSheet.Shapes("Button 1").Select    
Selection.Delete    
Application.ScreenUpdating = True    
End Sub.

{quote}{login=ёксель-моксель}{date=11.08.2010 11:59}{thema=}{post}1. Не понятно, что меняется на листе "1"?  
2. "Откат" заменил на удаление добавленных строк на листе "2".  
3. CommandButton заменил на Кнопку - после копирования листа "1" она удаляется с нового листа, иначе при нажатии на неё на новом листе получается каша.{/post}{/quote}  
 
Никак не могу разобрать макрос Ваш по кусочкам:  
Dim x As Long  
   Sheets("2").Select  
   x = Cells(Rows.Count, 1).End(xlUp).Row  
   If x = 5 Then Exit Sub   - вот здесь 5 - это что?  
   Rows("2:" & x - 4).Select -  а здесь 2 и 4 че такое?  
   Selection.Delete Shift:=xlUp  
   Range("A1").Select  - и почему здесь необходимо выбирать эту ячейку  
   Sheets("1").Select        на листе "1"?  
   ActiveWorkbook.Save

{quote}{login=ёксель-моксель}{date=11.08.2010 11:59}{thema=}{post}1. Не понятно, что меняется на листе "1"?  
2. "Откат" заменил на удаление добавленных строк на листе "2".  
3. CommandButton заменил на Кнопку - после копирования листа "1" она удаляется с нового листа, иначе при нажатии на неё на новом листе получается каша.{/post}{/quote}  
Макрос работает на ура, большое спасибо.

{quote}{login=ёксель-моксель}{date=11.08.2010 11:59}{thema=}{post}1. Не понятно, что меняется на листе "1"?  
2. "Откат" заменил на удаление добавленных строк на листе "2".  
3. CommandButton заменил на Кнопку - после копирования листа "1" она удаляется с нового листа, иначе при нажатии на неё на новом листе получается каша.{/post}{/quote}  
 
на листе "1" изменяется количество строк в списке - добавляются\удаляются.

{quote}{login=kuciy}{date=11.08.2010 10:28}{thema=Защита отдельных листов книги}{post}Проблема следующая: есть список на листе "1",из которого, по нажатию на кнопку, копируются некоторые столбцы на лист "2" начиная с ячейки А2. Также на ту же кнопку на листе "1" прикреплен и макрос сохранения листа "1" в отдельный лист с присвоением ему имени из ячеек на листе "1"(назовем его "12июня2001"). Как сделать так чтобы лист "2" не сохранялся и принимал исходное содержание при сохранении книги после нажатия на кнопку, тобишь заполнили список на лист "1",нажали кнопку, столбцы списка скопировались на лист "2", лист "1" сохранился с именем из ячеек и при закрытии книги сохранять только лист "12июня2001", а листы "1" и "2" принимают исходное содержание. В примере кнопка еще не нажата.{/post}{/quote}  
 
Речь идет об частичном откате макроса, т.е. откат не всего макроса,а отдельных его частей.

Проблема следующая: есть список на листе "1",из которого, по нажатию на кнопку, копируются некоторые столбцы на лист "2" начиная с ячейки А2. Также на ту же кнопку на листе "1" прикреплен и макрос сохранения листа "1" в отдельный лист с присвоением ему имени из ячеек на листе "1"(назовем его "12июня2001"). Как сделать так чтобы лист "2" не сохранялся и принимал исходное содержание при сохранении книги после нажатия на кнопку, тобишь заполнили список на лист "1",нажали кнопку, столбцы списка скопировались на лист "2", лист "1" сохранился с именем из ячеек и при закрытии книги сохранять только лист "12июня2001", а листы "1" и "2" принимают исходное содержание. В примере кнопка еще не нажата.

{quote}{login=Казанский}{date=10.08.2010 02:43}{thema=}{post}С суммой, и проще в начале.  
 
Sub kuciy()  
Dim r As Range  
Set r = Union([наименфас], [кол], [бру])
 
With Worksheets("2")  
.Range(.Rows(2), .Rows(2 + r.Rows.Count)).Insert xlDown  
r.Copy  
.Range("A2").PasteSpecial xlPasteValues  
.Cells(2 + r.Rows.Count, 4) = WorksheetFunction.Sum([кол])
.Cells(2 + r.Rows.Count, 5) = WorksheetFunction.Sum([бру])
End With  
 
End Sub{/post}{/quote}  
 
Отлично, то что нужно, спасибо.

{quote}{login=Казанский}{date=10.08.2010 01:54}{thema=}{post}kuciy,  
 
тут есть такой нюанс: диапазон "наименфас" имеет 3 столбца, поэтому если копировать его целиком, то "кол" попадет не в В2, а в D2, и "бру" попадет не в С2, а в Е2.  
Можно взять для копирования один столбец из "наименфас", тогда "кол" и "бру" попадут туда, куда Вы написали:  
 
Set r = Union(.Range("наименфас").Columns(1), .Range("кол"), .Range("бру")){/post}{/quote}  
Ну ент понятно, моя ошибка, неправильно обозначил пункты вставки. А что насчет суммы?

Ещё один маленький вопрос, что дописать в макрос,дабы при вставке данных диапазонов на лист "2" считалась сумма по 3(диапазон "кол") и 4-му (диапазон "бру") столбцу и выводилась ниже вставленных диапазонов?

{quote}{login=Казанский}{date=10.08.2010 01:21}{thema=}{post}Пробуйте.  
 
Sub kuciy()  
Dim r As Range  
With Worksheets("1")  
   Set r = Union(.Range("наименфас"), .Range("кол"), .Range("бру"))  
End With  
With Worksheets("2")  
   .Range(.Rows(2), .Rows(2 + r.Rows.Count - 1)).Insert xlDown  
   r.Copy  
   .Range("A2").PasteSpecial xlPasteValues  
End With  
End Sub  
{/post}{/quote}  
 
Большое спасибо,работает.Буду терь его по кусочкам разбирать дабы применить в рабочей книге.

Вот с такой вот проблемой столкнулся, есть список на листе"1", необходимо из него копировать диапазоны "наименфас"(А3:С4),"кол"(Е3:Е4) и "бру"(G3:G4) на лист "2" начиная с ячейки А2,причом эти диапазоны на листе "2" должны идти по порядку,тобишь диапазон "наименфас" - А2,"кол" - В2,"бру" - С2. В этих диапазонах есть формулы, они не должны копироваться на лист "2",копироватья должны только их значения(результаты формул). Ячейки с данными ниже на лист "2" не должны перекрываться вставляемыми диапазонами, должны подвигаться вниз.

{quote}{login=}{date=09.08.2010 05:51}{thema=Re: Re: Re: Re: }{post}{quote}{login=}{date=09.08.2010 05:50}{thema=Re: Re: Re: }{post}{quote}{login=The_Prist}{date=09.08.2010 04:18}{thema=Re: Re: }{post}{quote}{login=}{date=09.08.2010 04:14}{thema=Re: }{post}Чет не работает макрос, копирует,но не вставляет,ошибку не выдает,просто не вставляет рисунок.{/post}{/quote}Не знаю. У меня работает. Скиньте файл, в котором не работает. Странно, что нет ошибки. Это напрягает.{/post}{/quote}  
Поправил немного код ещё,заработало,но вот вставляет его не в указанную ячейку - A5, а в F31.{/post}{/quote}забыл пример  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>{/post}{/quote}  
 
чорд,наверное кнопка много весит,исправляюсь

{quote}{login=vikttur}{date=09.08.2010 12:42}{thema=}{post}Зачем камера? При изменении исходных данных макросом обновлять их копию.{/post}{/quote}  
Необходим именно этот инструмент, непосредственно изображение,потому как в исходном редактируемом документе много позиций,которые при простой копии данных изменяют значение, необходимо именно изображение.  
2R Dmitry: фаил прикреплен правильный,максимально упрощенный пример, если макрос с камерой будет работать на этом примере,то его можно будет применить и на остальных.

Вот такая вот проблема возникла, инструмент "камера" не работает в макросе, неясно почему. Диапазон "диап" на лист1 с помощью инструмента "камера" должен копироваться на лист2 начиная с ячейки A2.

{quote}{login=}{date=06.08.2010 12:00}{thema=}{post}Пробуйте{/post}{/quote}  
 
Большое спасибо, как обычно помощь очень быстрая.

Чет не могу сообразить как енто воплотить в жизнь: есть список на лист1 со столбиком "Стоимость рубли/доллары/евро/гривны" - ячейка B1 является выпадающим списком с выбором валюты расчета. Под списком имеется "Сумма" и эта же сумма "Прописью". Не могу понять как сделать так, что-бы при изменении валюты расчета(ячейка B1) - изменялась и формула в ячейке B9, причом ячейка эта может изменяться в зависимости от изменения списка наименований и как следствие добавления строки в список. А формула должна меняться в соответствии с выбором валюты расчета - т.е.:  
Стоимость гривны - =СуммаПрописьюГривны(B*)  
Стоимость долл.США - =СуммаПрописьюДоллары(B*)  
Стоимость евро - =СуммаПрописьюЕвро(B*)  
Стоимость рубли - =СуммаПрописью(B*)  
* - изменяемый номер ячейки столбика B  
Как видно из примера применяется модуль суммыпрописью.

{quote}{login=Ёксель-моксель}{date=05.08.2010 05:54}{thema=}{post}Короче - мне самому интересно (-:  
Так что вот:{/post}{/quote}  
Спасибо большое ещё раз

{quote}{login=Ёксель-моксель}{date=05.08.2010 05:36}{thema=}{post}Правый клик по кнопке "Назначить макрос"... там макрос1 привязан к ней.  
 
К Вашей таблице можно добавить проверку на ошибку "Такой номер сч/ф. уже существует в журнале регистрации!". Если интересно - попробую.{/post}{/quote}  
 
Было бы круто,благодарствую.

{quote}{login=Ёксель-моксель}{date=05.08.2010 04:54}{thema=}{post}см.файл  
 
_____________________  
а post_143216.xls "весит" ровно 100Kb !!!  
специально ровняли? (-:{/post}{/quote}  
 
хих,да как т само собой так вышло. Спасибо за помощь,ток ещё один вопрос,а как эт Вы так на кнопку макрос этот подключили, на кнопке вроде не назначен, да и исходного кода у кнопки нет вроде, эт кнопка не такая какая т?

Вот такая вот проблема: есть данные в ячейках на листе "1" и журнал регистрации на втором листе с одноименным названием, необходимо копировать данные из ячеек на листе "1" в журнал регистрации (в примере все уже сделано вручную), причем копирование это должно происходить по нажатию на кнопку(кнопка на листе "1"). При изменении данных на листе "1" и нажатию кнопки "нажать", новый набор данных должен добавляться в журнал регистрации новой строкой. Кста на кнопку уже повешен один макрос, но не думаю что это проблема,впринципе я знаю уже как на одну кнопку два макроса повесить.

Такая вот просьба: Лист "1" продублировать в книге с изменением его имени на имя из ячейки E2 допустим, дублирование осуществляется при нажатии на кнопку "нажать" на листе "1".Помогите это реализовать через макрос.

{quote}{login=Юрий М}{date=29.07.2010 07:34}{thema=}{post}Вот результат работы макрорекордера с минимальной доработкой:  
Sub Макрос1()  
   With Sheets("2")  
       Range("рег").Copy  
       .Cells(32, 1).Insert Shift:=xlDown  
   End With  
   Application.CutCopyMode = False  
End Sub  
P.S. Почему Вы не пытаетесь использовать макрорекордер? Классная штука для познания.{/post}{/quote}  
 
Спасибо большое за код, очень помог он мне. Сам использовать макрорекордер не могу, абракадабра получается какая т.

эт другой вопрос же

{quote}{login=Юрий М}{date=29.07.2010 06:32}{thema=}{post}Именованного диапазона "рег" не нашёл. Ячейки W1:AF12 на обоих листах пустые.    
В общем случае - в предложенном ранее коде:  
Private Sub Worksheet_Deactivate()  
Application.ScreenUpdating = False  
Worksheets("Лист1").UsedRange.Copy Sheets("Лист2").Range("A1")  
Application.ScreenUpdating = True  
End Sub  
Меняйте UsedRange на диапазон с Вашим именем. Отключение обновления экрана в данном случае кажется лишним.{/post}{/quote}  
 
прошу прощения,приложил не тот фаил,в этом фаиле впринципе тоже самое,диапазон "рег" А1:J12 на странице "1" продублировать на страницу "2" начиная с ячейки А32

Товарищи, последний исправленный вариант с кнопкой очень очень мне подходит, помогите его реализовать в моём примере, различие в том, что нажатием кнопки текущая страница сохранялась бы в определенный(в макросе) каталог на жестком диске в отдельный фаил с автоматическим присвоением ему имени в виде даты(число,месяц,год). В прикрепленном примере страница,которая должна сохранятся.

Извините,может не в тему, но почитав эту статью я решил не дублировать вопросы,впринципе ситуация у меня похожая впринципе, подскажите как реализовать следующее: нажатием кнопки сохранять текущую страницу в отдельный фаил в определенное место с автоматическим присвоением ей имени в виде даты(число,месяц,год)?

{quote}{login=kuciy}{date=29.07.2010 04:47}{thema=}{post}Господа, подскажите пожалуйста как диапозон с присвоеным ему именем "рег"(W1:AF12) на странице "регистрация" продублировать на страницу "вых" начиная с ячейки А32, да так чтобы при изменении размеров этого диапазона ячейки,располагающиеся на странице "1" ниже продублированного диапазона, аккуратно подвигались,а не перекрывались им.{/post}{/quote}  
 
забыл пример

Господа, подскажите пожалуйста как диапозон с присвоеным ему именем "рег"(W1:AF12) на странице "регистрация" продублировать на страницу "вых" начиная с ячейки А32, да так чтобы при изменении размеров этого диапазона ячейки,располагающиеся на странице "1" ниже продублированного диапазона, аккуратно подвигались,а не перекрывались им.