День добрый! Подскажите, пожалуйста, как написать макрос, который бы находил ячейки с разными фомулами, которые возвращают #ДЕЛ/0! и исправлял бы это на "0". Если это делать в ручную, то приходится в каждую ячейку (если разнве формулы) вводить:  =если(еошибка(А1/А2);0;А1/А2). Заранее спасибо . . .

Не подскажите как сделать с помощью каких-либо формул десятичное значение из челого числа? Например из 1 - 0,1

Worksheets.Add.Name = k,  
 
где k - текстовая переменная  
Так вот если k больше чем 31 символ - имя не присваивается.  
 
Подскажите пожалуйста как сделать чтобы присваивалось столько символов сколько поместилось, а остальные отбрасывались.  
Спасибо

Знающие люди исправьте, пожалуйста код  
 
jLastRows = Worksheets(sheet.Name).Cells(Rows.Count, 1).End(xlUp).Row  
cell2.Formula = "=SUMIF(sheet.Name!Cells(4,1).Resize(jLastRows,1),'02',sheet.Name!Cells(4,4).Resize(jLastRows,4))"

Господа подскажите как вставить лист после существующего  
если имеется такая строчка  
Worksheets.Add.Name = fio  
Пробовал через After:=WorkSheets(WorkSheetsCount), добавляет и те имена и нумерованные листы, как сделать чтобы именованные листы добавлялись в конец при существующем коде  
Worksheets.Add.Name = fio  
Спасибо

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

Есть условие при выполнении которого происходит какое-либо действо. Например если дата 7 марта 2008г. входит в диапазон  
дат 3 марта по 3 апреля то чт-то делаем, однако код  
If (.Cells(5, 7) > Sht.Cells(1, 25)) And (.Cells(5,7) < Sht.Cells(1, 26)) Then ...  
почему-то не работает, т.е. делает вид что дата всегда попадает в нужный диапазон  
 
Что не так? (формат ячеек - дата)  
 
Пробовал ставить условие разности заданной даты с граничными точками диапазона и при условии что эта разность положительная двигаться дальше, но и здесь он не отраьбатывает верно

Господа! Подскажите как с помощью макроса указать файлы в какой директории должны обрабатываться?  
Т.е. файлы не нужны. Нужен путь. Что-то типа  
Aplication.GetOpenFileName((.txt),(txt),*.xls) , только GetOenDir.  
Есть такое?  
Спасибо

Многоуважаемые спецы! Подскажите как при помощи макроса  
разбить прикркпленный файл на листы.  
На листе "Итог" имеется таблица как реализовать макрос который разобьет таблицу на листы.(частичная сумма по ФИО, вид у услуги и третьему параметру)  
Частичную сумму реализовать теперь могу(благодаря вашему сайту), но как это автоматизировать, реализовать программно ума не приложу  
Очень надеюсь на вашу помощь, спасибо!

Пишет "502 Bad Gateway"  
Не знаю что и делать

Ребят, помогите у кого есть время, желание, знания.  
На диске D есть папка с именем qqq. В ней лежит большое кол-во файлов(один из них прикреплен). Необходим файлик в котором две ячейки для дат, кнопка и такая же таблица. Вводим период за который считать жмем на кнопку и макрос идет в эту папку и начинает по порядку открывать файлы. Если дата в файле входит в нужный нам диапазон, то начинаем  считать сколько потратил ФИО на вид опреции за данный период, приплюсовывая данные к конечной таблице (файл где вводим период).  
Спасибо за помощь

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

Подскажите пожалуйста как скопировать данные из одного файла в другой. Второй файл при этом закрыт. Если можно то не через windows_имяфайла_activate, потому как данных мног и мигать придется очень долго

Подскажите пожалуйста, что не так  
 
Sub Êíîïêà18_Ùåëêíóòü()  
Dim jLastRow As Long  
Dim i As Long  
Application.ScreenUpdating = False  
jLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
     For i = 7 To jLastRow  
        If Cells(i, 1) <> "" Then  
         Cells(i, 7) = "=SUM(C[i]:F[i])"
        End If  
     Next  
End Sub  
Реализовывать через  Cells(i, 7).Value = Cells(i, 3).Value + Cells(i, 4).Value не хочется. Как можно это сделать первым способом? Спасибо.

Подскажите пожалуйста что не так.  
Макрос при нажатии на кнопку "II квартал" должен взять первый номер счета из "Листа 1" пробежаться по листу "Itog"  
если номер счета найден то занести значение (кол-во денег) во второй квартал напротив этого счета и т. д. берет следующий счет, опять ищет и так с каждым листом кроме итога. Если же такого счета в листе итог нет то должно выскакивать сообщение о необходимости внести данный счет в список.  
Помоему у меня какие-то косяки с ифами и ендами

В первом случае получается список по возрастанию, а во втором случае по убыванию. Как исправить?  
Select Case c  
         Case 0  
           Range("Êðàñíàÿ_ëèíèÿ").EntireRow.Insert Shift:=xlDown  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(-1, 0) = iSht.Cells(j, 1)  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(-1, 1) = iSht.Cells(j, 6)  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(-1, 2) = iSht.Cells(j, 4)  
         Case 1  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(1, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(1, 0) = iSht.Cells(j, 1)  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(1, 1) = iSht.Cells(j, 6)  
           Range("Êðàñíàÿ_ëèíèÿ").Offset(1, 2) = iSht.Cells(j, 3)  
         End Select

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

Добрый день!  
Подскажите в какую сторону копать. Есть книга с рабочим первым листом, на котором находится кнопка при нажатии на которую просматривается заданная директория(например D:\1) на предмет нахождения в ней текстовых файлов. Если таковые имеются, то они добавляются каждый на новый лист в этой книге, для дальнейшей обработки.  
Буду рад любой помощи!

Приветствую всех.  
Excel позволяет вводить 15 значимых цифр в ячейку, далее выдает нули :(.  
Это как-то корретируется или приговор окончательный?  
Буду благодарен за помощь (можег уже кто-нибудь спрашивал, но поскольку поиска по форуму нет, то найти не смог).