С помощью VBA, разумеется, чтобы страничка всякий раз оформлялась сама после нажатия кнопки

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

Мне бы только понять как правильно записать  
PivotItem "Март". PivotItem "Апрель".Group  
Не получается никак...

Добрые люди!  
Подскажите, пожалуйста как мне написать код, который группировал бы два столбца сводной таблицы.  
Название столбца "Март", Название столбца "Апрель" нужно объединить в "Группа1".  
Пробовал найти в прошлых записях - не получилось.  
Спасибо!

Не могу найти ничего похожего

Уважаемые форумчане!  
Помогите, пожалуйста, советом.  
У меня на рабочем листе в файле еженедельного отчета есть кнопка "Выложить в сеть. Разослать уведомления", после нажатия на которую макрос формирует и рассылает через Outlook уведомления но разным адресам, о том, что отчет готов и можно им пользоваться.  
Каким образом можно вставить в тело каждого письма гиперссылку на этот  excel файл, из которого и формируется рассылка в Outlook.  
Был бы очень признателен за совет!  
Sub send_email()  
Dim OutlookApp As Outlook.Application  
Dim MItem As Outlook.MailItem  
Dim cell As Range  
Dim Subj As String  
Dim EmailAddr As String  
Dim Recepient As String  
Dim Msg As String  
 
Set OutlookApp = New Outlook.Application  
For Each cell In Range("D2:D5").Cells.SpecialCells(xlCellTypeConstants)  
   Subj = "Еженедельный отчет"  
   Recepient = cell.Offset(0, -2).Value  
   EmailAddr = cell.Value  
     
     
   If cell.Offset(0, -1).Value = "F" Then  
       Msg = "Дорогая "  
   Else  
       Msg = "Дорогой "  
   End If  
   Msg = Msg & Recepient & "!" & vbCrLf & vbCrLf  
   Msg = Msg & "Отчет готов. Перейдите по ссылочке:" & vbCrLf & vbCrLf  
   Msg = Msg &  
                 ВОТ ЗДЕСЬ БЫ И ВСТАВИТЬ ГИПЕРССЫЛКУ  
     
   Set MItem = OutlookApp.CreateItem(olMailItem)  
   With MItem  
       .To = EmailAddr  
       .Subject = Subj  
       .Body = Msg  
       .Send  
   End With  
Next  
End Sub

Subtlety!  
Поклон Вам и a lot of thanks!

Уважаемые форумчане!  
Подскажите, пожалуйста, можно ли создать такой код, чтобы он сохранял обычную рабочую книгу в нужное место и при этом данная книга становилась бы доступной для работы одвременно нескольким пользователям.  
То есть то? что в Excel 2007 вручную делается с помощью команд:  
Рецензирование-Доступ к книге-Разрешить изменять файл нескольким пользователям одновременно.  
Пробовал проделать этот путь под запись макроса - не проходит...

Помогите, пожалуйста, решить задачку.  
Диапазон A2:A10 листа "Лист1" заполнен числовыми значениями. В ячейках A4, A6 и A9 - отрицательные значения. Как сделать так, чтобы при активации только этого листа все эти три ячейки (Value < 0) мигали разным цветом (неважно, interior или font)?  
Код для мигания нашел такой (см. ниже), а как его применить одновременно к трем ячейкам?  
А еще было бы здорово, чтобы такой макрос выполнялся только при активации листа "Лист1" и прекращался бы при активации любого другого листа. (Если поместить код в ЭтаКнига, то макрос запускается при переходе на любой лист, а надо бы, чтобы только на одном).  
Спасибо!  
For Each c In e.Cells  
If c.Value < 0 Then  
   Dim fl As Boolean  
   Dim old As Long  
   old = Timer  
   Do  
   fl = Not fl  
   If fl Then  
   c.Interior.Color = RGB(255, 0, 0)  
   Else  
   c.Interior.Color = RGB(255, 255, 255)  
   End If  
   delay  
   DoEvents  
   Loop  
   End If  
Next c  
End Sub  
__________________________________________________________  
Sub delay()  
Dim old As Long  
old = Timer  
Do  
DoEvents  
Loop While Timer - old <= 0.5  
End Sub

Уважаемые коллеги, помогите, пожалуйста, решить "школьную" задачку.  
На листе работает формула ПОИСКПОЗ (MATCH). Область поиска находится в разное время на разных листах. В зависимости от ситуации задаю через INPUTBOX вставку листа и столбца, где искать значение. Не работает!  
Подскажите, плиз!  
 
Dim inpt As String  
   inpt = InputBox("Напишите название листа") & "!" & "C5"  
   Range("K2").FormulaR1C1 = "=MATCH(RC[-6],inpt,0)"
   Range(Cells(2, 11), Cells(Range("A1").CurrentRegion.Rows.Count, 11)).Select  
   Selection.FillDown  
End Sub

Дорогие коллеги! Большое Вам спасибо за ответы. Мысль о переводе всей таблицы (1250 строк, 64 столбца) из Excel в ACCESS отпускает меня только на период с 01 часа ночи до 07 часов утра. Однако, пока трудно себе представить всю структуру будущей базы. Уж больно много нюансов.

Уважаемые специалисты! Помогите бедному клерку создать автоматизированный еженедельный отчет, увязав удобство EXCEL и мощь ACCESS.  
Суть проблемы вкратце такова. Имеется огромная таблица в EXCEL, в которой содержатся данные о всех заключенных Договорах. У каждого Договора есть свой ответственный (исполнитель).Договоры имеют срок действия и когда он подходит к концу, необходимо продлевать этот Договор или заключать новый, ну в общем что-то делать.  
Моя задача "выцеплять" из общей массы такие Договоры, выносить их на отдельный листик и выкладывать в сеть. Далее исполнители, видя в этом листе каждый свой Договор, пишут в ячейку "Комментарии" свои замечания, типа "на этой неделе начаты переговоры о продлении", "оговаривается изменение цены", "Договор продлен" "или "Договор расторгнут" или, чаще всего, какие-то более пространные фразы.  
Так повторяется из недели в неделю. Проблема в том, что эти ячейки - "Комментарии" разрастаются до неимоверных размеров. Читать или листать их крайне неудобно, не говоря уже о том как тяжелеет сам файл. Хотел было заменить эти ячейки с комментариями внедренными в виде значков файликами WordPad, но народ образумил, указав на еще больший вес файла.  
Как бы сделать так, чтобы строки списка самих проблемных договоров (там указание номера, контрагента, суммы, срока и еще нескольких атрибутов) остался в excele, а вот это поле "Комментарии" перенести в ACCESS. При этом необходимо учесть, что объекты меняются - какие-то Договоры уходят, провисев несколько недель, им взамен приходят новые.  
Если есть у благородных светлых голов какие-либо мысли по этому поводу, буду безмерно благодарен. Файлик прилагаю. Спасибо!

Народ, подскажите плиз, исли кто знает.  
Проблема: есть книга на 10 листах. На каждом из этих 10 листов в ячейках столбца "K" (примерно со 2-ой по 30-ю)множество разных людей на протяжении долгого времени пишет свои пространные комментарии. Ячейки столбцов "K" на всех листах разрослись неимоверно и вширь и ввысь и было принято решение заменить их внедренными объектами в виде значков.  
Задача: вставить внедренный объект WordPad, скопировать содержимое ячейки "K2" и вставить его в этот, только что внедренный, WordPad. Ячейку "K2" уничтожить. WordPad свернуть, написав на его значке слово "Комментарии". Нереходим к ячейке "K3". Повторяем всю процедуру. И так до "K29" (или сколько их там есть). Переходим на следующий лист. Повторяем все сначала. И так на всех листах книги.  
Может быть у кого-нибудь есть светлые идеи на этот счет, кроме как механически делать Copy - Paste? Буду очень благодарен

Спасибо большущее, Алексей!

Как заставить работать одну и ту же процедуру одновременно на всех листах книги?  
Sub format_single_worksheet()  
Dim rng As Range  
Dim c As Range  
Dim i As Integer  
Dim d As Date  
Dim v As Integer  
Dim x As Integer  
   v = Cells(1, 1).CurrentRegion.Columns.Count  
   x = Cells(1, 1).CurrentRegion.Rows.Count - 1  
   d = Date  
   Set rng = Cells(1, 1).CurrentRegion.Columns(v).Offset(1, 0).Resize(x)  
   For Each c In rng.Cells  
       With c  
           If .Value > 0 Then  
           .Value = c.Value & Chr(10) & d & "-"  
           .Font.Color = RGB(0, 0, 0)  
           .Font.Bold = False  
       i = c.Characters.Count  
           .Characters(i - 11, i).Font.Color = RGB(255, 0, 0)  
           .Characters(i - 11, i).Font.Bold = True  
       Else  
           .Value = d & "-"  
           .Font.Color = RGB(255, 0, 0)  
           .Font.Bold = True  
       End If  
    End With  
   Next  
   rng.Rows.AutoFit  
End Sub