Благодарю вас, товарищ!
Ваши две строчки наставлений, сделали счастливыми 2 мужиков)

Не подумайте плохого, если можно было бы - был бы реверанс.

Благодарю, камрад!
Рюмочка задаче не мешала, мы были в полном боевом настрое! Но вижу, что все ПРОСТО и мы просто ушли не туда)

Спасибо, баня отменяется, так соберемся)

в фото указано
Нужна заливка в красный, либо зеленый цвет исходя из предыдущей ячейки в строке

Коллеги, здравствуйте!
У меня задача в следующем:
Надо в каждой строке следующую ячейку красить в зависимости от цвета предыдущей. Если больше, то "красный", если меньше, то "зеленый".


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

Коллеги - профессионалы, помогите решить задачу! Собирать группу друзей для решения задачи в бане я не хочу)

отправлять нужно на 1 телефон (номер МТС)

а через какой онлайновый сервер можно? есть ли бесплатные?    
 
 
Может кто знает или делал уже что-то подобное?

Доброго времени суток!  
Необходим макрос, чтобы при изменении листа с данными скидывалась последняя ячейка столбца D отправлялась мне по смс на моб телефон.  
 
Кто что посоветует?

никто не поможет?

Всем доброго времени суток!  
 
Нужна помошь в решении следующей задачи:  
Необходимо организовать рассылку по E-mail, при изменении листа.  
 
Описание задачи:  
Есть 2 документа "ЖУРНАЛ УЧЁТА" и "Список E-mail".    
"ЖУРНАЛ УЧЁТА" открыт постоянно, и в него в любую секунду может может вставиться строчка с "вылетевшим клиентом". Строчка вставляется другим макрососм из другого документа.  
Необходимо после появления новой строчки в "ЖУРНАЛ УЧЁТА", обращаться по номеру портфеля (напр. 1253-238) к файлу "Список E-mail" и искать сотответствующее мыло клиента.  
На это мыло надо отправить письмо, вот текст:  
 
Уважаемый "ФИО" (берём из файла "ЖУРНАЛ УЧЁТА")!  
Вы достигли ограничительного уровня: "Уровень маржи" (берём из файла "ЖУРНАЛ УЧЁТА"). Уровень принудительного закрытия позиций 25%.  
Для снижения рисков просим Вас либо закрыть часть позиций, либо внести дополнительные денежные средства на ваш брокерский счёт.    
Для разъяснений и уточнения Вы можете связаться с нами по контактным телефонам: (8482)452312 и (8482)324235  
___________________________________________________________  
С уважением, Василевский Евгений  
 
 
Вот примерно так. Сильно не пинайте, я только начинаю разбираться с VBA. Помогите кто чем может.=)

Всем спасибо за оперативность!  
 
А можно ли сделать кнопку на листе Excel, при нажатии на которую завершалась бы работа данного макроса?

Доброго времени суток!  
 
Проблема в следующем:  
Макрос зациклен сам на себя, т.е. в самом коде есть следующее:  
Application.OnTime Now + TimeValue("00:00:15"), "Find_Copy"  
Он каждый раз обрабатывает большой объём данных, и копирует "выпавшие" в отдельную книгу.    
 
Загвоздка в том, что мне необходимо выключать этот макрос в 19.00. Как это сделать?  
Помогите пожалуйста!!  
и сильно не пинайте, я начинающий.  
 
в приложении есть код

{quote}{login=Казанский}{date=24.12.2010 11:54}{thema=}{post}> Макрос "Find_Copy" зациклен внутри себя самого  
Значит и проверку/ограничение делайте в этом макросе, а не в Auto_Open.{/post}{/quote}  
 
сделал... подождём.  
проверить возможности нет

Вот так получилось будет работать?  
Макрос "Find_Copy" зациклен внутри себя самого.  
 
Sub Auto_Open()  
'  
       Application.OnTime TimeValue("09:00:00"), "Auto_Open"  
       Application.OnTime TimeValue("10:30:03"), "Find_Copy"  
       Application.OnTime TimeValue("11:30:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("13:00:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("15:00:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("17:00:00"), "Backup_Active_Workbook"  
       Application.OnTime TimeValue("18:45:00"), "Backup_Active_Workbook"  
       If Time < #6:30:00 PM# Then Application.OnTime Now + #12:00:30 AM#, "Find_Copy"  
         
'  
End Sub

{quote}{login=слэн}{date=24.12.2010 11:01}{thema=}{post}или сразу ограничивайте:  
 
Application.OnTime Now + #12:00:30 AM#, "MyMacros", #6:30:00 PM#{/post}{/quote}  
Спасибо!

{quote}{login=Казанский}{date=24.12.2010 10:55}{thema=}{post}Добавьте проверку туда, где назначается новое время запуска макроса:  
 
Sub MyMacros()  
' действия  
If Time < #6:30:00 PM# Then Application.OnTime Now + #12:00:30 AM#, "MyMacros"  
End Sub{/post}{/quote}  
 
Спасибо!

Всем доброго времени суток!  
 
Задача в следующем:  
Есть макрос который Запускается в 10.30 и работает с периодичностью в 30 сек.  
Необходимо чтобы макрос "выключался" в 18.30 по окончании рабочего дня  
 
Подскажите как это сделать?

{quote}{login=sva}{date=09.12.2010 12:30}{thema=}{post}Вот так вставка маржи(обе книги должны быть открыты)  
 
А по-поводу закраски - однако долго это будет, может лучше выводить то чего нет на отдельный лист?{/post}{/quote}  
 
 
Огромное спасибо!  
А может можно курсивом выделять?  
Просто в исходном документе удобно было бы смотреть что вылетело.  
Если невозможно, добавьте вставку выпавших на отдельный лист  
Заранее спасибо!

Всем доброго времени суток!  
Помогите пожалуйста со следующей проблемой!  
 
Есть два файла с большими таблицами.  
Необходим макрос, который бы брал строку в файле "Для вставки в регистр.xls" и осуществлял поиск строки в файле "РЕГИСТР ВН. УЧЕТА СДЕЛОК.xls" по ячейкам столбцов:  
"Наименование/Код клиента",    
"Вид сделки",    
"Тип сделки"    
"Цена одной ЦБ",    
"Количество ЦБ".  
 
При совпадении всех условийо копировал ячейку "Уровень маржи" из одного файла в другой  
Если одно из условий не совпадало он переходил к следующей строке в файле "РЕГИСТР ВН. УЧЕТА СДЕЛОК.xls" пока не просмотрел бы все.  
Если он дошёл до конца, а подходящей ячейки так и не нашёл он заливает всю строку в файле "Для вставки в регистр.xls" красным цветом.  
 
Вот такой макрос. Помогите кто чем может.  
Файлы в приложении.

начинал писать, ответа не было..)  
 
всё отлично, работает. только при отправке выходит плашка, где нужно нажимать ОК, Надо как-то от неё избавиться, а то нету должного автоматизма!(((  
Поможете?

.Attachments.Add ("\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229\m 3173-229 " & Format(Now - 1, "DD.MM.YY") & ".xls")  
 
вот ответ

Когда описываешь приложение письма нужно прописать путь к файлу:  
.Attachments.Add ("\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229\m 3173-229 ДАТА-1.xls")  
А так как макрос запускается неоднократно, путь кажды раз меняется (а именно дата в имени файла).  
Имя каждый раз такое: "m 3173-229 (Текущая дата - 1 день).xls"  
Как вставить это в путь для приложения?

Sub Рассылка()  
 pt = "\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229\"  
 fn = "m 3173-229 " & Format(Now, "DD-1.MM.YY") & ".xls"  
 On Error Resume Next  
 Application.DisplayAlerts = False  
 Workbooks.Open pt & fn  
 If Err.Number > 0 Then  
   Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = fn & " - не найден, ошибка:" & Err.Number  
 Else  
   Application.Run "Отправка"  
 End If  
 Application.DisplayAlerts = True  
End Sub  
 
Sub Отправка()  
Dim OutApp As Object  
Dim OutMail As Object  
Dim cell As Range  
 
Application.ScreenUpdating = False  
Set OutApp = CreateObject("Outlook.Application")  
OutApp.Session.Logon  
On Error GoTo cleanup  
Set OutMail = OutApp.CreateItem(0)  
On Error Resume Next  
 
With OutMail  
.To = "123@yandex.ru"  
.Subject = "Отчёт о совершенных сделках"  
.Body = "Добрый день Василий Александрович! Предоставляем вам, отчет брокера по операциям за предыдущий торговый день. С уважением, клиентский отдел УФО ОАО НТБ. Тел. 8(8482)952816"  
.Attachments.Add ("\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229\m 3173-229 ДАТА-1.xls")  
'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой  
.Send  
End With  
 
On Error GoTo 0  
Set OutMail = Nothing  
 
cleanup:  
Set OutApp = Nothing  
Application.ScreenUpdating = True  
End Sub  
 
 
Как сделать так, чтобы в когда описываешь путь приложения письма он вставлял "текущую дату - 1 день"?

{quote}{login=The_Prist}{date=26.11.2010 10:26}{thema=}{post}Т.е. синтаксис VBA вы вообще не знаете...Супер.  
{/post}{/quote}  
 
Москва не сразу строилась, начинаю разбираться потихоньку

{quote}{login=The_Prist}{date=26.11.2010 09:59}{thema=}{post}Здравствуйте.  
А Вы уже научились отправлять файл из Excel? Если нет - идите в Приемы - там оно есть.  
А проверить файл на его наличие в папке просто:  
Dim sFileName as string  
sFileName = m 3173-229 " & Format(Date,"dd.mm.yy") & ".xls"  
If Dir("\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229\" & sFileName,vbDirectory) <> "" Then  
'Отправляем письмо  
Else  
'Записываем строку о ненайденном файле в последнюю ячейку столбца А  
Cells(rows.count,1)end(xlup).offset(1).value =  sFileName & " не найден"  
End if{/post}{/quote}  
 
 
Некоторые строки в коде красные... непойму где ошибка.  
в приложении принтскрин

Всем доброго времени суток!  
 
Помогите с макросом: необходимо каждый день в 16-00 идти по заданному пути (\\Depo\RsBank51\Reports\Отчёты бэк-офиса\3173-229) и искать там файл за сегодняшнюю дату.  
Формат файла который ищем: m 3173-229 26.11.10.xls (то есть m 3173-229 "текущая дата".xls)  
Если файл есть - отправляем его точно по адресу (например 123@yandex.ru)  
Если файла нет, находим последнюю пустую строчку на листе откуда происходил макрос и пишем "m 3173-229 26.11.10.xls не найден"  
Помогите пожалуйста!!!

{quote}{login=EducatedFool}{date=22.11.2010 10:40}{thema=}{post}А вам что, лень поискать? На форуме сотни подобных тем... <BR>http://www.planetaexcel.ru/forum.php?thread_id=7157 <BR>http://www.planetaexcel.ru/forum.php?thread_id=3961 <BR>http://www.planetaexcel.ru/forum.php?thread_id=5412 <BR>http://www.planetaexcel.ru/forum.php?thread_id=21001{/post}{/quote}  
 
То есть, правильно ли я понимаю, чтобы запускать макрос в течении неопределённого времени с периодичностью 20 сек. нужен следующий код:  
Sub TimerForSave()  
Application.OnTime Now + TimeSerial(0, 0, 20), "ИМЯ МАКРОСА"  
End Sub

Помогите с кодом макроса, который запускал бы другой макрос каждые 15 секунд?  
 
если лень писать просто дайте ссылку  
 
Заранее спасибо!

Помогите написать макрос  
Происходит постоянный импорт данных  
Из отфильтрованного массива данных необходимо скопировать все строки (кроме заголовка) в отдельную Книгу на последнюю пустую строку.  
 
 
Исходный фаил: Альфа-директ  
Конечный Файл: Журнал учёта маржи  
 
Помогите пожалуйста!

Доброго времени суток!  
Нужен макрос при активации которого он будет "анализировать" столбец G и при нахождении значений меньше 35% будет добавлять эту строку в отдельный документ.  
 
Исходный Файл:Альфа-Директ  
Конечный файл:Журнал учёта  
 
Помогите пожалуйста!

вот файлы