Копирование данных между листами с условием

[igorMalov]

Помогите макросом: нужно с листа 1 копировать данные о суммах на лист 2, по сумкам (желательно в окрашенные желтым ячейки)

[EducatedFool]

Думаю, в вашем случае можно обойтись без макросов - хватит и формулы
(единой для всех ячеек):

  Ячейка: B9      Формула  (стиль A1):   =ЕСЛИ($A9>0;ВПР($A9;Лист1!$A:$AM;B$7+1;0);"")
                  Формула  (стиль R1C1): =ЕСЛИ(RC1>0;ВПР(RC1;Лист1!C1:C39;R7C+1;0);"")

Пример - в прикреплённом файле test1.rar

[igorMalov]

Спасибо громадное.Вот еще бы нули не ставил в пустых ячейках

[Serge 007]

Сообщение от igorMalov

Спасибо громадное.Вот еще бы нули не ставил в пустых ячейках

=Если(формула=0;"";формула)