{quote}{login=vikttur}{date=19.04.2011 09:19}{thema=}{post}1. Поставить английскую версию Офиса.  
2. Добавить (создать) свой календарь на форме.  
По второму пункту можете поискать по форуму.{/post}{/quote}  
 
Скажите, правильно ли я понимаю, что если файл с русским календарем будет запущен в англ. версии офиса, о календарь будет отображаться на английском?

Добрый день!  
 
В приемах описан способ использрвания выпадающего календаря (на русском языке). Есть ли возможность выводить выпадающий календать на английском языке?  
 
Заранее спасибо!

{quote}{login=Serge 007}{date=30.12.2010 10:15}{thema=}{post}Здравствуйте.  
28,5 Кб{/post}{/quote}  
 
Спасибо! :)

Доброго дня суток уважаемые!  
 
Задача следующая: в приложенном файле (лист "Форма") при внесении значения С1 (выпадающий список) - в ячейках Н14:Н22 проставляются исполнители с листа "Карточка" соответственно значениям ячеек С14:С22 (т.е. при выборе из списка в ячейке С1 значения "Город 2" в ячейках с формулами должны проставиться фамилии отвественных исполнителей)  
 
Как проставить исполнителей в зависимости от выбранного города?  
 
Спасибо!

{quote}{login=Hugo}{date=24.11.2010 09:02}{thema=}{post}http://www.planetaexcel.ru/forum.php?thread_id=21654{/post}{/quote}  
 
Спасибо! Помогло!

Доброго дня суток, Уважаемые!  
 
Подскажите пожалуйста как с помощью формул отформатировать текст в ячейке:  
Пример текста: "ПрочиеРасходыНевозврНДСНеУменьшающНалогооблПрибыль"  
Необходимо проставить пробелы перед всеми заглавными буквами.  
 
Заранее благодарю!

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

{quote}{login=ciklon}{date=17.08.2010 11:16}{thema=Найти второе, третье и др слова в ячейке}{post}Проблема в следующем: Есть столбец, в нем значения состоящие из нескольких слов разделенных пробелом. Как вытащить на другие ячейки эти слова отдельно от всей ячейки? Первое слово достаточно просто найти - =ПСТР(A1;1;НАЙТИ(" ";A1)-1), а остальные чет не допираю. Помогите пожалуйста.{/post}{/quote}  
 
Здравствуйте! Мне вот это очень помогло: http://www.planetaexcel.ru/tip.php?aid=54

{quote}{login=The_Prist}{date=10.08.2010 11:34}{thema=}{post}Там нужно только имя "Список". Все остальное не задействуется.    
И остальные имена вообще не играют никакой роли в данной задаче и мешать не могут. У меня они тоже с ошибками(кстати, это не мои имена, а остались от файла того, кому пример делал).  
 
На всякий случай удалил все лишние.{/post}{/quote}  
 
Спасибо! Пригодилось очень! Как всегда все гениальное просто!

{quote}{login=Казанский}{date=02.08.2010 03:06}{thema=}{post}Да, моя ошибка. Err надо сбрасывать перед каждым поиском:  
 
   For Each dummy In Array("Helsinki", "Stockholm", "Tallinn")  
       Err.Clear  
       dummy = WorksheetFunction.Match(dummy, Range("G12:G23"), 0)  
       If Err = 0 Then sBCC = sBCC & "адрес2; ": Exit For  
   Next{/post}{/quote}  
Стыдно мне, могла бы и сама догадать!  
Спасибо, все работает!

{quote}{login=Казанский}{date=02.08.2010 02:01}{thema=}{post}Tanita, вот файл. Если захотите изменить параметры - вроде понятно, как это сделать.{/post}{/quote}  
Спасибо за помощь, не смотря на то, что я так "проштрафилась".  
В двух случаях отрабатывает отлично, вот только с массивом отрабатывает не корректно:  
For Each dummy In Array("Helsinki", "Stockholm", "Tallinn")  
       dummy = WorksheetFunction.Match(dummy, Range("G12:G23"), 0)  
       If Err = 0 Then sBCC = sBCC & "адрес1;": Exit For    
 
Адрес1 проставляется в ВСС только в случае, если значение ячейки в диапазоне  G12:G23 "Helsinki" - на другие элементы массива не реагирует?

{quote}{login=Юрий М}{date=02.08.2010 11:56}{thema=}{post}Tanita, Казанский,- ну сколько можно напоминать?!{/post}{/quote}  
 
простите! Со мной такое впервые!

{quote}{login=Казанский}{date=02.08.2010 09:16}{thema=}{post}Пробуйте. На присутствие "междугород" проверяется только ячейка А15.  
Если надо проверять все ячейки между "Событие" и "заявку оформил" - сообщите.{/post}{/quote}  
 
Спасибо за участие! В том-то и загвоздка, что проверять на выполнение условий необходимо диапазон A12:A23 на "межгород", а диапазон G12:G23 на "Helsinki, Tallinn, Stokholm". проверяю например T4=если(ПОИСКПОЗ("Междугород.перевозки")<>0;A12:A23;0);адрес1;"") и проставляю значение ячейки Т4 в макрос .ВСС=Range("T4").value, но если условие не выполняется то ф-ция в ячейке  T4 возвращает #Н/Д и вся "отправка" лентит в тар тарары.  
 
Что делать?

Доброго дня, Уважаемые!  
Отправка книги Excel посредством Outlook организована макросом. Как добавить необходимый адрес в скрытую копию сообщения. Адрес задается при выполнении некоторых условий причем возможно выполнение нескольких условий одновременно.  
Файл прилагаю, красным шрифтом описаны условия и адрес, который необходимо проставить в копию сообщения!  
Заранее благодарю!  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=The_Prist}{date=26.07.2010 10:39}{thema=}{post}Здравствуйте.  
Как вариант, перед очисткой данных провести замену всех знаков "="(равно) на какой-нибудь нейтральный знак(типа | или #). А после формирования таблицы заменить знак обратно на равно.  
 
В параметрах замены, естественно:  
Область поиска: формулы  
Снять галку с ячейка целиком{/post}{/quote}  
 
Спасибо за идею! Подойдет!

Добрый день, Уважаемые!  
 
Есть книга Excel, с несколькими страницами, которые в общем режиме заполняются разными сотрудниками. Есть страница "Statistic", со сводной таблицей, используется формула СУММПРОИЗВ данные беруться со страницы "FULL DATA", которая формируется при объединении всех страниц (макрос объединения страниц книги).  
При каждом новом объединении (создании общей таблицы на страничке "FULL DATA"), требуется очистить эту страницу, чтобы объединить новые данные для статистики.  
 
Проблема: После очистки листа "Full data", для нового объединения - ссылки на странице "Statistic" не сохраняются и приходиться все ссылки писать заново.    
 
Организовать добавление только новых записей на страницу "FULL DATA", не очищая предыдущие записи достаточно сложно, т.к. приходиться проверять все страницы на новыю и старую информацию.  
 
Вопрос: Существует ли возможность сохранить ссылки на диапазон данных после его очистки?  
 
С Уважением!

Добрый день, Уважаемые! Есть книга с множеством однотипных по струтуре таблиц, но с разным кол-ом заполненных строк. Макросом объединяю все листы в одну таблицу. но, объединение происходит дважды, т.е. таблицы с кажного листа дублируется. В чем подвох? Файл прилагаю. Заранее благодарю! <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]

Доброго дня суток, Уважаемые!  
Задача следующая: В приложеном файле при нажатии на кнопку "Start" макрос записывает текущее время в заданную ячейку (то же при нажатии кнопки "Finish"), как изменить макрос, чтобы текущее время записывалось в текущую ячейку.  
 
Заранее благодарю!

{quote}{login=webley}{date=14.07.2010 09:52}{thema=}{post}попробуйте так:  
if cells(1,1)="текст" then .BCC="tatyana.osipova@fortum.ru;" 'Кому скрытая копия{/post}{/quote  
 
Спасибо! Все красиво работает!

Добрый день, Уважаемые!  
Отправляю макросом книгу Excel по средством Outlook:  
.......  
 
           .To = "tatyana.osipova@fortum.ru" 'Кому  
           .CC = "tatyana.osipova@fortum.ru;" 'Кому копия  
           .Subject = "Тема" 'Тема  
           .Body = "Отправка" 'Текст письма  
           .Attachments.Add sFileName 'Вложение  
           '.Send  
            .display '- если необходимо показать письмо  
........  
 
Можно ли отправить так же и скрытую копию сообщения, при выполнении определенного условия, заполнения заданной ячейки в книге.  
 
Заранее благодарю!

{quote}{login=The_Prist}{date=13.07.2010 11:01}{thema=}{post}Вы в одну строку что ли все это записали? Я специально разделил строки аж через строку, чтобы понятно было - записывать надо в разные строки:  
 
Первая строка:  
.Range(.Cells(11, 1), .Cells(последняя заполненная строка, 27)).Copy  
 
Следующая строка:  
Worksheet("Общий").Cells(iLastRowBaza, 1).PasteSpecial xlPasteValues  
Уже все поправила!!! Учу!!! Спасибо!!!  
 
Учите синтаксис....{/post}{/quote}

{quote}{login=The_Prist}{date=13.07.2010 10:11}{thema=}{post}Здравствуйте.  
.Range(.Cells(11, 1), .Cells(последняя заполненная строка, 27)).Copy  
 
Worksheet("Имя_листа").Cells(последняя заполненная строка, 1).PasteSpecial xlPasteValues{/post}{/quote}  
 
Спасибо! Прописала все так :".Range(.Cells(11, 1), .Cells(iLastRowTempWb, 27)).Copy Worksheet("Общий").Cells(iLastRowBaza, 1).PasteSpecial xlPasteValues"  
Только что-то вот на это:"xlPasteValues" - ругается вот так " End of statement" .

Доброго дня суток, Уважаемые!  
Есть можество книг Excel (Заявки), макросом собираю все файлы в общий реестр. Ячейки файла-заявки содержат формулы, как скопировать в общий файл только значения ячеек?  
 
Копиирую так:    
.Range(.Cells(11, 1), .Cells(последняя заполненная строка, 27)).Copy Destination:=Worksheet.Cells(последняя заполненная строка, 1)  
 
Подразумеваю, что где-то необходимо добавить Value, только вот где?  
 
Заранее благодарна!

Вопрос снят! Разобралась сама на свежую голову!

Отправка по почте листов книги Excell - вставить тело сообщения    
Добрый день, Уважаемые!  
 
Нашла макрос отправки по почте листов книги - все работает - спасибо автору!    
При отправке сообщения автоматически можно вставить тему письма  
.SendMail sh.Range("A1").Value, _  
"Subject"  
Вопрос, как автоматически вставить не только тему письма, но и тело сообщения

Добрый день, Уважаемые!  
 
Нашла макрос отправки по почте листов книги - все работает - спасибо автору!    
При отправке сообщения автоматически можно вставить тему письма  
.SendMail sh.Range("A1").Value, _  
                         "Subject"  
Вопрос, как автоматически вставить не только тему письма, но и тело сообщения!

Скажите, а можно ли при отправке макросом в Excel задать имя отправляемого файла (например дату и время отправки)?

Здравствуйте!  
Есть макрос - (отдельное спасибо создателю), который сохраняет вложения сообщений Outlook в указанную папку, не открывая сообщений.  
 
Option Explicit  
 
Sub Search(ByVal oFld As MAPIFolder, SrchFld As String)  
 
Dim oOutlook As New Outlook.Application  
Dim oNamespace As Outlook.NameSpace  
Dim oFolder As Outlook.MAPIFolder  
Dim message_number, attachment_number, col_attachments As Integer  
Dim oAttachedFile As Outlook.Attachment  
Dim SavedPath As String  
 
 
Set oNamespace = Outlook.GetNamespace("MAPI")  
col_attachments = 0  
 
For Each oFolder In oFld.Folders  
 Debug.Print oFolder.Name  
 If oFolder = SrchFld Then  
   MsgBox ("Найдена папка" & " " & SrchFld)  
   'После этой строчки помещаем код (процедуру), который сохраняет вложения  
   For message_number = 1 To oFolder.Items.Count  
   For attachment_number = 1 To oFolder.Items.Item(message_number).Attachments.Count  
   SavedPath = "c:\temp\" & oFolder.Items.Item(message_number).Attachments.Item(attachment_number).FileName  
   oFolder.Items.Item(message_number).Attachments.Item(attachment_number).SaveAsFile (SavedPath)  
   col_attachments = col_attachments + 1  
Next  
Next  
MsgBox ("Всего сохранено вложений " & col_attachments & vbCrLf & "Сохранения находятся в папке C:\temp")  
 
 
     
 End If  
 Search oFolder, SrchFld  
Next  
 
End Sub  
 
Как изменить макрос, чтобы при копировании вложений на локальный диск, имя вложения присваивалось - например дата и время создания?    
 
SavedPath = "c:\temp\" & oFolder.Items.Item(message_number).Attachments.Item(attachment_number).FileName  
   oFolder.Items.Item(message_number).Attachments.Item(attachment_number).SaveAsFile (SavedPath)  
 
Заранее благодарю!

{quote}{login=The_Prist}{date=01.06.2010 10:10}{thema=}{post}Здравствуйте.  
Я Вам тут - <EM>http://forum.msexcel.ru/microsoft_excel/rassylka_soobscheniy_iz_excel-t3523.0.html</EM> - ответил...  
 
А вообще это есть в приемах.{/post}{/quote}  
Считаю, что спасибо мало! Но спасибо еще раз, пока на словах!    
Вы очень помогаете!

Добрый день!  
 
В Excel заполняется книга "Заявка", после заполнения этот файл необходимо отправить с заданной (по умолчанию) темой, заданному (по умолчанию) адресату и заданному (по умолчанию) получателю копии сообщения, посредством OutLook  
 
После запуска "макроса Отправки":  
- тема сообщения  должна заполняться автоматически и начинаться со слова - "Заявка ......", а дальше не важно  
- адрес получателя сообщения и получателя копии письма также проставляется автоматически  
(без возможности редактирования)  
 
Т.е. Заданные адресаты  
должны получить сообщение с заданной темой  
 
Спасибо за Ваше внимаю к моей задаче