Здравствуйте! Очень интересная тема! Вот хотел спросить, возможно ли как-то усовершенствовать макрос файла post_184038, так чтобы:  
1) при создании договоров поставить еще и кнопку их удаления, потому что макросом можно создать лишь какое-то количество листов, по-этому приходится переименовывать файл. Как такое избежать?  
2) Как макросом сделать чтоб в списке автоматически ставились ссылки на созданные листы?

очень интересно, а по проще нельзя формулу использовать какую-нибудь???

спасибо, нужная штука!

{quote}{login=}{date=27.01.2010 10:39}{thema=}{post}Да, спасибо огромное!!! Именно то, что надо!{/post}{/quote}  
 
По какой-то причине, в 2003 екселе все работало, в 2007 стала вылетать ошибка.  
на некоторых форумах пишут, что ошибка отрабатывает только в процедурах.

Спасибо ОГРОМНОЕ! Постараюсь сам разобраться. В поиске смотрел, честно, такого не видел.

Вы все правильно сделали! скажите пожалуйста как сделать чтобы скажем в ячейке G1, G2.....я указывал одно или несколько уникальных имен из столбца F и в столбце H появлялся тотже столбец F за исключением имен указанных в G1, G2.....?? Подскажите пожалуйста, очеееень надо. Спасибо

Уважаемые Гуру!  
Помогите решить задачку с сортировкой уникального списка, часть задачи уже решалась на форуме но вот дальше моих познаний не хватает. Помогите пожалуйста!

{quote}{login=Марчук}{date=23.10.2009 03:40}{thema=}{post}"С:\" & namef & "_1.dbf"  
namef  - недостающий кусок имени файла{/post}{/quote}  
 
не получается namef не понимает, в итоге получаем файл с названием:   _.dbf

Пример необходимо открыть файлы находящиеся по адресу:  c:\*_1.dbf  
 
КАК КОРЕКТНО ДАТЬ ПОНЯТЬ ЭКСЕЛЮ 2003, что открывать любой файл на диске C:\ с окончанием имени на _1.dbf

!!!имеется в виду Excel 2003!!!

Я открываю файл работа_2365.dbf с помощью макроса:  
p = Worksheets("Страница управления").Cells(3, 2).Value  
   Workbooks.Open Filename:=(p)  
 
Вопрос: Как прописать макрос, чтобы с помощью гего открывался файл с изменяющимся названием, допустьм Работа_*.dbf, а так же макрос который бы открывал *_2365?  
Напишите пожалусто, код для этих двух вариантов макроса.

У меня есть ряд значений которые должны быть заданы определенным образм, поскажите как пишется макрос выведения того или иного сообщения на экран, допустим при проверке правельности задания условий.

{quote}{login=}{date=19.10.2009 05:38}{thema=}{post}Если формулами, то так =ОКРУГЛВНИЗ(ссылка на расчёт платежа;2), последняя строка сумма-округлвниз(ссылка;2)*(количество-1).  
Так же можно добавить расчёт последней через если(строка()>строка(х);"";если(строка=строка(х);сумма;округлвниз())  
Если не понятно, но понять хочется-выложите пример.{/post}{/quote}  
 
Да очень хочется узнать по подробнее, выкладываю заготовку с расчетом который должен получится в итоге работы макроса. Если не сложно пропишите макрос, заранее спасибо.

так чтобы S= сумме "n"

Пример:    
 
"Задолженность по выплате кредита в банке составляет "S" (123 567,00 руб. допустим), количество периодов возврата долга "n" (16 допустим).  
 
Вопрос:  «Необходимо составить макрос, который бы, округлял расчетное значение  по выплате долга приходящегося на «n»-ый период до двух знаков после запятой, а последним платежом устранял погрешность такого округления, так чтобы S=Σn ???»  
 
Может кто сталкивался с таким вопросом, за ранее спасибо !

{quote}А суммировать значения, я так полагаю, надо тоже с листа 2?  
with Worksheets(2).  
.Cells(e + 3, 2) =Application.sum(.range(.Cells(3, 2), .Cells(e + 2, 3)))  
end with{/post}{/quote}  
Да тоже с листа 2, я попробовал так выдает следующее:    
Complite error:    
Expected: Syntax error

почему то вот так не выходит:  
 
Worksheets(2).Cells(e + 3, 2) =Application.sum(range(Cells(3, 2), Cells(e + 2, 3))

{quote}{login=The_Prist}{date=19.10.2009 03:23}{thema=}{post}Кстати, чет не глянул. Тупо поменял.  
Вы не заметили, что здесь  
ДАТА(ГОД(G4),1,1-1)  
последний аргумент нулю равен? Зачем вычитание единицы из единицы?  
Может так хотелось?  
=ДАТА(ГОД(G4),12,31)-(ДАТА(ГОД(G4),1,1)-1){/post}{/quote}  
"-1" это для того чтобы за место 364 получалось 365 дней в году, так вроде правельнее )).

У меня стоит задача посчитать количество дней в году приходящихся на определенную дату, пишу макрос:  
 
Worksheets(2).Cells(3, 5).Formula = "=ДАТА(ГОД(G4),12,31)-ДАТА(ГОД(G4),1,1-1)"  
Cells(3, 5).Select  
   Selection.AutoFill Destination:=Range(Cells(3, 5), Cells(e + 2, 5)), Type:=xlFillDefault  
 
В итоге в заполненых ячейках проставляется "#ИМЯ?", хотя если проделывать данную операцию в ручную все нормально значения считаются корректно, причем если вщелкуться в ячейку с любым "#ИМЯ?" все становится нормально, как можо решить проблему?

Подскажите, пожалуйста, как сюда дописать пароль  
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _  
       False  
А то вводить 150 раз обламывает:)

{quote}{login=avnsanto}{date=25.07.2009 11:53}{thema=}{post}такой вопрос:{/post}{/quote}  
такой ответ

Решить систему:

Raptor большое спасибо я понял как это делать!!!!!!

SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS

SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS

Raptor,  
там еще одна проблема возникла...  
посмотри пожалуйста файл если не трудно  
(прикрепил выше)

Извиняюсь если непонятно объяснил.  
Прилагаю файл.

Елки-палки, быть такого не может...  
Может быть макрос нужно написать?    
помогите пожалуйста

Люди добрый помогитееееее!!!!!!!

Уважаемые форумчане!  
Подскажите пожалуйста кто знает по ситуации:  
есть 11 одинаковых (почти) книг, лежащие в одной папке, одна из книг сводная. В эту сводную должны попадать данные через ВПР из остальных 10 книг...  
Совсем не хочется писать такую гусеницу: = впр(книга1)+ впр(книга2)+...+впр(книгаN)  
Как решить проблему?  
Заранее спасибо