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

Есть отчет по посещениям сотрудниками работы. На листе результаты нужно из столбика Приход отловить первый проход за каждый из дней периода для каждого сотрудника.  
Фррмат ячеек в этом столбце Общий.  
Помогите идеями пожалуйста.

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

Здравствуйте уважаемые знатоки.  
 
Помогите пожалуйста в решении такого вопроса. Есть табличка где указаны время прихода и ухода сотрудников (лист Результаты) Возникла необходимость перенести данные в табель (лист Табель) Лист Табель появляется если выполнить встроенный Макрос 1.  
Обычно отчет снимается каждого первого числа за предыдущий месяц. С помощью макрорекордера шапку табеля и фамилии в него переносить я сумел (вышло довольно громоздко, буду рад советам как это упростить)  
Собственно не выходит самое сложное - просуммировать время в часах за каждый день по каждому сотруднику (округлять по получасу до целых часов) и внести данные в соответствующие ячейки табеля.

Нужно реализовать такую штуку. В коде макроса прописать команды для реализации следующего    
   
1. В любой ячейке вставляется первое число предыдущего текущему месяца в формате dd.mm.yy. Возможна форма с выбором месяца из выпадающего списка.    
2. Вычисляется сколько дней в этом месяце было    
3. Диапазон растягивается вправо на число дней месяца    
   
Подскажите пожалуйста как это можно реализовать?

Здравствуйте  
Имеется табель рабочего времени, выгружаемый сторонней програмой из базы SQL в Excel. С недавнего времени хронология событий в этом табеле сбилась. На мой запрос разработчик открыл Америку, что якобы можно сортировать данные по дате уже в Excel вручную ...    
Вобщем вопрос. Можно ли макросом сортировать данные по дате (2 столбец отчета) не нарушая связей между строками учитывая что дата в отчет попадает в текстовом формате?. У меня Excel почему-то сортировать не хочет... Отчет снимается еженедельно.

Здравствуйте.  
Нашел в инете макрос для отправки почты без помощи сторонних программ. Приспособил его под себя, заддав возможность аттачить к письму текущую книгу Excel.  
Не могу реализовать такую штуку. Хотелось бы для самоконтроля добавить в этот макрос задание писать в текстовый документ (txt) созданный в папке с отправляемыми отчетами строку типа "Файл такой-то (имя файла) успешно отправлен такого-то числа"    
И еще файлы у меня аттачатся почему-то с двойным расширением 06.12.2010.xls.xls. Как это исправить?    
 
 
Sub SendMail()    ' Отправка отчета по почте  
   txt = "Здравствуйте, Ольга!" & vbNewLine & _  
         "" & vbNewLine & _  
         "" & vbNewLine & _  
         "---------------------------" & vbNewLine & _  
         "С уважением Евгений"  
           
   If Send_Mail("xxx@gmail.com", "yyy@gmail.com", "Отчет СКД", txt) Then  
       MsgBox "Письмо успешно отправлено", vbInformation  
   Else  
       MsgBox "Не удалось отправить письмо", vbExclamation  
   End If  
 
End Sub  
 
Function Send_Mail(ByVal MailTo As String, ByVal MailFrom As String, _  
                  ByVal MailSubject As String, ByVal MailText As String, _  
                  Optional ByVal MailAttachment As String = "") As Boolean  
   ' функция для отправки почты без использования внешних почтовых программ  
   ' ----------------------------------------------------------------------  
   ' в качестве параметров получает:  
   ' MailTo - адрес получателя письма  
   ' MailFrom - адрес отправителя письма  
   ' MailSubject - тема письма  
   ' MailText - текст письма  
   ' MailAttachment - полный путь к файлу вложения (необязательный параметр)  
   ' ----------------------------------------------------------------------  
   ' возвращает TRUE, если отправка почты произошла успешно, и FALSE в обратном случае  
 
   Dim TempFilePath As String  
   TempFilePath = "C:\Windows\Temp\" & ActiveWorkbook.Name & ".xls"  
   ActiveWorkbook.SaveCopyAs (TempFilePath)  
     
   Const cdoConfigURL = "http://schemas.microsoft.com/cdo/configuration/"  
   On Error Resume Next: Err.Clear  
   
   smtpserver = GetSetting(Application.Name, "mail", "smtpserver", "")  
   sendusername = GetSetting(Application.Name, "mail", "sendusername", "")  
   sendpassword = GetSetting(Application.Name, "mail", "sendpassword", "")  
   If Len(smtpserver) = 0 Or Len(sendusername) = 0 Or Len(sendpassword) = 0 Then Exit Function  
   
   Set cdoConfig = CreateObject("CDO.Configuration")  
   With cdoConfig.Fields  
       .Item(cdoConfigURL & "sendusing") = 2  
       .Item(cdoConfigURL & "smtpauthenticate") = 1  
       .Item(cdoConfigURL & "smtpserver") = smtpserver  
       .Item(cdoConfigURL & "sendusername") = sendusername  
       .Item(cdoConfigURL & "sendpassword") = sendpassword  
       .Update  
   End With  
   
   Set cdoMessage = CreateObject("CDO.Message")  
   With cdoMessage  
       Set .Configuration = cdoConfig  
       .BodyPart.Charset = "koi8-r"  
       .From = MailFrom:  
       .To = MailTo  
       .Subject = MailSubject  
       .TextBody = MailText  
       .AddAttachment TempFilePath  
       .Send  
   End With  
   Set cdoMessage = Nothing: Set cdoConfig = Nothing  
'Check that file exists  
If Len(Dir$(TempFilePath)) > 0 Then  
   'First remove readonly attribute, if set  
   SetAttr TempFilePath, vbNormal  
   'Then delete the file  
    Kill TempFilePath  
End If  
   
   '    If Err.Number = -2147220973 Then MsgBox ("Отсутствует связь с интернетом")  
   '    If Err.Number = -2147220975 Then MsgBox ("SMTP сервер ответил отказом")  
   '    If Err.Number = 0 Then MsgBox ("Письмо отправлено")  
   Send_Mail = Err = 0  
End Function

Требуется макросом перебрать данные столбца B начиная с 5 строки на предмет пустых ячеек. При нахождении скопировать в пустую ячейку текст из ячейки выше. Длина столбца заранее не известна, потому выделить и задать интервал нельзя. Остановить перебор нужно на строку выше при нахождении в столбце А ячейки с текстом "Общий итог" (пример Ячейка "Общий итог" найдена с координатами A:158. Тогда перебор мы останавливаем на ячейке B:157. Ячейка В:158 должна остаться пустой)  
 
Макрос из примера http://www.planetaexcel.ru/tip.php?aid=86 видел пытался приспособить, но он при выполнении забивает донизу всю страницу...  
Заранее спасибо за ответ.

Есть файл отчета. Прямо в нем написали VBA Project (вызывается из меню Сервис/Макрос/Редактор Visual Basic/F5) для обработки. Функционирует нормально, но есть проблема. Данные отчета меняются каждую неделю, и для их отработки мне приходится вручную копировать текст из нового отчета в старый и там уже отрабатывать, что не есть удобно. Плюс результаты отработки он сохраняет в том же файле где и сам отчет, правда в другом листе. Тоесть контролирующим органам мне придется отдавать файл вместе с кодом макроса, что не есть желательно. Собственно вопрос. Как сделать так, чтобы Excel помнила этот код (скажем строка в меню или кнопка на панели инструментов) и отрабатывала текущий отчет без копирования напрямую?    
Код записан не в Модулях, а в Формах. Пробовал делать экспорт и вставить в пустую книгу - не вышло. Поскольку в исходном файле макрос отработанные данные переносил в Лист2, а в чистой книге ясное дело Листа2 нету...    
Извините если такой вопрос ранее уже задавался.