Шаблон табеля

Пользователь

Сообщений: 26 Регистрация: 01.01.1970

28.11.2012 09:48:20

Здравствуйте!
Решение очень облегчало бы мне работу.
В конце каждого месяца выгружаю из системы 15 табелей по разным участкам. И форматирую их так чтобы они читались на распечатанном А3. Что занимает много времени((.
Высылаю два файла первый шаблон табеля, который я отформатировала сама, и не отформатированный табель .
Прошу помочь перенести формат отформатированного табеля в не отформатированный. Проблема в том что в каждом табеле разное количество людей и если я делаю через специальную вставку вставка форматов то там получается кавардак , можете сами попробовать.
С надеждой жду ответа.

Прикрепленные файлы

post_381269.zip (84.86 КБ)

Zhuldyz

Guest Гость	#2 28.11.2012 11:39:25 Sub fff() dda = [R7] ddd = DateValue("1" & Mid(dda, 3, Len(dda) - 5)) mmm = Month(ddd) yyy = Year(ddd) lr = Range("C12:C1200").Find("И Т О Г О :", , xlValues, xlWhole).Row - 1 For i = 0 To Day(DateValue("1" & "." & IIf(mmm = 12, 0, mmm) + 1 & "." & yyy) - 2) If Weekday(ddd + i, 2) > 5 Then Range(Cells(12, 6 + i), Cells(lr, 6 + i)).Interior.Color = 65535 Next End Sub

Zhuldyz Пользователь Сообщений: 26 Регистрация: 01.01.1970	#3 28.11.2012 12:59:48 А как им пользоваться ? Сначала копировать формат потом запускать макрос? Zhuldyz

Guest Гость	#4 28.11.2012 13:02:10 код сам берет из листа период отчета и кол-во строк потом на этих данных форматирует

Zhuldyz Пользователь Сообщений: 26 Регистрация: 01.01.1970	#5 28.11.2012 13:07:00 этот код только закрашивает выходные, а мне нужно перенести форматы из табеля шаблона в не отформатированный табель. Zhuldyz

Guest Гость	#6 28.11.2012 13:52:14 ну если это так принципиально, то макрорекордер а потом причешем

Читают тему