{quote}{login=Маугли}{date=16.12.2011 02:00}{thema=}{post}Вроде бы так.5 листов не увидел.  
{/post}{/quote}  
Да, не правильно выразился, 5 страниц

Спасибо, попробую оба варианта

{quote}{login=mult_ru}{date=16.12.2011 01:01}{thema=}{post}А что он вообще делать должен? словами напиши{/post}{/quote}  
Там 5 листов, на них расположены таблички, все повторяются (по форме), но заполняются данными из таблицы на другом листе. В этих ячейках иногда текст не помещается и необходимо уменьшить шрифт (с 8 на 16 и обратно).  
Пробовал выделять все ячейки полностью, а потом менять шрифт, меняло только в последней. Решил сделать так: выделил ячейки на странице - сменил шрифт, выделил на следующей и т.д.  
Хотелось бы упростить.

Sub Макрос4()  
'  
' Макрос4 Макрос  
'  
 
'  
   Range( _  
       "H1:I1,R1:S1,H11:I11,R11:S11,H21:I21,R21:S21,H31:I31,R31:S31,H41:I41,R41:S41"). _  
       Select  
   Range("R41").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=42  
   Range( _  
       "H51:I51,R51:S51,H61:I61,R61:S61,H71:I71,R71:S71,H81:I81,R81:S81,H91:I91,R91:S91" _  
       ).Select  
   Range("R91").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H101:I101,R101:S101,H111:I111,R111:S111,H121:I121,R121:S121,H131:I131,R131:S131,H141:I141,R141:S141" _  
       ).Select  
   Range("R141").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H151:I151,R151:S151,H161:I161,R161:S161,H171:I171,R171:S171,H181:I181,R181:S181,H191:I191,R191:S191" _  
       ).Select  
   Range("R191").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H201:I201,R201:S201,H211:I211,R211:S211,H221:I221,R221:S221,H231:I231,R231:S231,H241:I241,R241:S241" _  
       ).Select  
   Range("R241").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=51  
   Range( _  
       "H251:I251,R251:S251,H261:I261,R261:S261,H271:I271,R271:S271,H281:I281,R281:S281,H291:I291,R291:S291" _  
       ).Select  
   Range("R291").Activate  
   With Selection.Font  
       .Name = "Calibri"  
       .Size = 16  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
       .TintAndShade = 0  
       .ThemeFont = xlThemeFontNone  
   End With  
   ActiveWindow.SmallScroll Down:=-276  
End Sub

Приветствую всех!    
Нашел интересующую меня тему:  
http://www.planetaexcel.ru/tip.php?aid=91  
но вот проблема, скрипт берет курс с cbr.ru, а мне нужно с nbrb.by  
попытался исправить сам, но не выходит.  
Вот сайт с курсами:  
http://www.nbrb.by/statistics/Rates/RatesDaily.asp?fromdate=2011.03.22  
Помогите пожалуйста.    
Если можно для USD, EUR, RUR

{quote}{login=Hugo}{date=17.10.2010 01:12}{thema=}{post}  
Я сомневаюсь, что эту задачу можно сделать формулами...{/post}{/quote}  
Посмотри прикрепленный файл post_77951.xls  
Только как оно работает понять не могу.

Спасибо, но в макросах я не разбираюсь.  
Нашел вот эту тему: http://www.planetaexcel.ru/forum.php?thread_id=11427,  
пробую применить в своем варианте.

Объясняю подробнее:  
  Существует таблица "Заявка" (может быть разное кол-во строк). С помощью данных из этой таблицы, а именно: "наименование", "Размер А" и "Размер В" нужно заполнить ярлыки во вкладке "Печать". Причем количество ярлыков должно быть равно количеству изделий в заявке (в данном примере = 77).  
  В итоге должно получиться: 3 ярлыка на первую позицию, 2 - на вторую, 4 - на третью и т.д.  
  Заполняться должно автоматически только при вводе данных во вкладку "Заявка".  
Меня интересует возможный способ реализации.

Внес в файле. Была идея сделать новую таблицу и разнести данные (например 5 шт) на 5 строк по 1 шт, а потом данными из новой таблицы заполнить форму для печати. Но как это сделать не знаю.

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