мне нужно знать отдельно сумму ячеек в стобцах L,.. соответствующих филиалу

Во вложенном файле макрос; он подтягивает данные из других файлов.    
Как записать процедуру суммирования ячеек чтобы по каждому филиалу считалась итоговая сумма в столбцах L,M,N,O,P?

Доброе время суток!  
 
Не могу понять почему While Wend заканчивает работу открытием первого найденного файла удовлетворяющего условию "да"???  
 
Есть список к примеру:  
 
1.xls     нет  
2.xls     нет  
3.xls     да  
4.xls     нет  
5.xls     да  
 
прописываю первым While Wend просматривать список (да, нет) пока не равно пусто;  
вторым (внутренним) While Wend - искать выполнение условия "да" и при положительном результате открывать соответствующий файл.  
 
Результат открывается только 3.xls и работа макроса заканчивается до 5.xls не доходит :(  
 
А почему??? что я не так делаю???    
 
 
a = 4  
While Cells(a + 1, i + 1) <> ""  
a = a + 1  
s = a  
While Cells(s + 1, i + 1) = "да"  
s = s  
ff = Sheets("Проверка поступления").Cells(s + 1, 2)  
Workbooks.Open Filename:="\\file\документы\" & ff  
Wend  
Wend

Спасибо!!!буду пробовать...

может проще записью формулы записать?

{quote}{login=The_Prist}{date=30.10.2009 03:52}{thema=}{post}А не пробовали так  
If Range("h3") <> Range("h4") Or Range("i3") Then  
MsgBox "Вы не правильно указали период отчета. Период недели должен быть календарным"  
MsgBox "Или Вы пытаетесь мне пихнуть отчет позопрошлой недели?!"  
MsgBox "Позновато как-то...Вы уже наказаны..."  
 
SaveAsUI = False: Cancel = True: Exit Sub  
End If{/post}{/quote}  
 
 
SaveAsUI = False: Cancel = True: Exit Sub - с этой фенькой лучше стало.  
Только ниже приведены циклы, которые всегда не верны, т.е. в любом случае вылетает MsgBox. или это только у меня так? что там ни так?  
 
If Year(Date) <> GOD Then  
MsgBox "Вы неправильно указали год периода"  
SaveAsUI = False: Cancel = True: Exit Sub  
End If  
 
 
If Range("h3") <> Range("h4") Then  
MsgBox "Вы не правильно указали период отчета..."  
MsgBox "..."  
MsgBox "..."  
SaveAsUI = False: Cancel = True: Exit Sub  
End If  
If Range("h3") <> Range("i3") Then  
MsgBox ".."  
SaveAsUI = False: Cancel = True: Exit Sub  
End If

{quote}{login=The_Prist}{date=30.10.2009 03:36}{thema=}{post}А я не нашел у Вас условий. Последнее условие с Exit Sub вот это  
'Задаем папку периода отчета  
If Range("h3") <> Range("h4") Or Range("i3") Then  
 
Т.е. если папка периода задана верно, то файл сохраниться.{/post}{/quote}  
 
Там несколько циклов If при не выполнении Exit Sub должен работать без сохранения файла  
 
'Задаем папку периода отчета  
If Range("h3") <> Range("h4") Or Range("i3") Then  
Этот цикл при <> или = выдает MsgBox, который должен выдаваться только в случае если текущая неделя не равна неделе заданной периодом.  
 
При этом когда нажимаешь OK в MsgBox по идее макрос должен прикратиться и не сохранять файл, а он все-равно сохраняется. Проверить можно выставив например Выбор Филиала

Что не работает и ето (перезагрузка Exel с восстановлением файлов при этом "Сохранить как..." можно и прописывается файл туда куда нужно с именем нужным:  
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
Application.EnableEvents = False  
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1").Value & ".xls"  
Application.EnableEvents = True  
 
Вообще какая-то хрень получается: закладываю выполнение условий; условие не выполняется Exit Sub, но при этом документ автоматически сохраняется.  
 
Вызывает бешенство условие с периодом дат: ни при каких условиях (<>, =) условие не выполняется...  
 
Посмотрите плиз...

{quote}{login=uvexx}{date=29.10.2009 05:31}{thema=}{post}ThisWorkbook.Path - текущий путь нахождения сохраняемого файла  
 
А если мне надо сохранять в разных местнах, я задаю переменную, например,    
Full = "\\file\документы\..." и т.д. соответсвенно код должен быть следующим (по идее)  
 
ThisWorkbook.SaveAs Filename:=Full.Path & "\" & Range("A1").Value & ".xls"  
 
Одноко VBA говорит Run-Time error "424"  
                  Object required  
 
 
а почему?{/post}{/quote}  
 
А понял надо без Path...Правда не полный путь поставил...хотя разницы быть не должно...  
 
СПАСИБО ЗА ПОМОЩЬ!!!!

ThisWorkbook.Path - текущий путь нахождения сохраняемого файла  
 
А если мне надо сохранять в разных местнах, я задаю переменную, например,    
Full = "\\file\документы\..." и т.д. соответсвенно код должен быть следующим (по идее)  
 
ThisWorkbook.SaveAs Filename:=Full.Path & "\" & Range("A1").Value & ".xls"  
 
Одноко VBA говорит Run-Time error "424"  
                  Object required  
 
 
а почему?

что-то немного то с кодом...сохранять сохраняет, но вызывает ошибку Exel-я с восстановлением файлов...

Можно ли сделать так чтобы файл сохранялся только под определенным именем?  
 
Т.е. есть выпадающий список названий; выбрав из списка одно из названий и сохраняя документ, имя документа будет соответствовать названию из списка...  
 
Такое вообще реально? или как-то по другому?

{quote}{login=Лузер™}{date=28.10.2009 10:01}{thema=}{post}А Вы смотрели post_72286.xls?  
Там это реализовано.  
полный_путь_к_файлу = аргумент1 & аргумент2 & аргумент3 & аргумент4 & аргумент5  
наличие_файла = IIf(Dir(полный_путь_к_файлу) = "", "нет", "да"){/post}{/quote}  
 
Круто СПАСИБО ОГРОМНОЕ!!!  
 
Теперь надо для себя понять код и все-таки разобраться с пользовательскими функциями...  
 
ЕЩЕ РАЗ ОГРОМНОЕ СПАСИБО!!!!

есть вот такая страка формулы:  
 
ActiveCell.FormulaR1C1 = _  
       "=наличие_файла(""\\file\44-я 26.10-01.11\""&RC[-1])"
 
Подскажите как правильно записать RC[-1] чтобы работал счетчик, например,
a = 1  
Do  
a = a + 1  
Loop ...

Начальную позицию для отработки функции понял как сделать...  
 
Ребят помогите сделать так чтобы проверка по пользовательской функции работала!!!  
 
Пробовал ActivateCells.FormulaR1C1 = "=наличие_файла(...)"  
 
Не работает...

{quote}{login=Лузер™}{date=27.10.2009 05:55}{thema=}{post}1. Читаем правила относительно формата файлов. У меня 2003-й, хоть и с конвертером, но работать не хочет.  
2. Что Вы хотите от недели? Каким образом она связана с наличием отсутствием файлов в папке?  
3. Функция в отличие от процедуры запускается при пересчете. Ее не надо запускать кнопкой.{/post}{/quote}  
 
Хотелось бы следующее:  
1. при нажатии кнопки "Нажмите для открытия..." открывалось диалоговое окно - работает  
2. при выборе в ComboBox записи и нажатии кнопки "Подтвертите выбор" работал макрос включающий функцию проверки наличия_файла при этом результат проверки отражатся должен в соответствующем столбце, который соответствует выбранной в диалоговом окне записи - не работает :-(  
 
Примечание:  работа функции осложняется еще тем, что файлы, которые проверяются на наличие расположены не в одной папке, а в папках ответственных  
 
Пожалуйста помогите!!!

Есть список файлов наличие которых необходимо проверить при этом задается временной интервал поиска (он же по сути папка).    
Помогите плиз с кодом!!!  
И как мне изменить внешний вид кнопки запуска???

не получается завязать у меня проверку :-(  
 
есть кнопка, которая вызывает меню проверки; выбираю временной интервал в combobox далее надо подтвердить или отменить проверку...  
 
а как сделать?

Все понял в чем причина...  
 
А еще вопрос можно сделать так чтобы с кнопки в листе началась проверка??? Для это я так понимаю надо в Sub ... End Sub заключать функцию, но в итоге ошибка...

\\ пробовал... не работает...я полностью копирал путь...

А еще вопрос можно сделать так чтобы с кнопки в листе началась проверка??? Для это я так понимаю надо в Sub ... End Sub заключать функцию, но в итоге ошибка...

HELP!!! HELP!!! HELP!!!

Огромное спасибо за помощь!!! Но появилась новая проблема: дело в том, что вся информация хранится не на локальном диске а на сервере и соответственно данный вариант не работает поскольку установив путь и создав нужный файл: результат "нет"  
 
:-(

Я правильно записал код? скорее всего нет...  
 
Sub tyj()  
Function наличие_файла(полный_путь_к_файлу As String) As String  
наличие_файла = IIf(Dir(полный_путь_к_файлу) = "C:\Documents and Settings\Кабанов Павел\Рабочий стол\12.10-18.10", "нет", "да")  
End Function  
End Sub  
 
Если без Sub то как он работать будет? Можно прописать код макроса во вложенном файле?

Спасибо!!!  
А как это завязать с моим рабочим файлом чтобы на листе шло отражение результата отработки макроса?

Есть папка с файлами 1.xls, 2.xls, 3.xls и т.д. Папка еженедельно обновляется, т.е. после обработки старые файлы удаляет и в понедельник получаем новые. Список файлов, которые д.б. в папке известен.  
Можно ли открыв рабочий файл где консолидируется информация файлов из папки получать информацию о лежащих в папке файлов? и как это сделать?  
 
Пример:  
Папка: 1.xls, 2.xls, 3.xls и т.д.  
Рабочий файл:  
Список   Отметка наличия  
1.xls          да  
2.xls          нет  
3.xls          да