Консультация № 109670
16.11.2007, 11:38
0.00 руб.
0 1 1
Здравствуйте!
Подскажите пожалуйста макрос для создания копии скрытого листа. Заранее спасибо!
Подскажите пожалуйста макрос для выполнения следующей задачи: имеется 200 листов на каждом листе имеется сводная таблица (примечание один лист это одна отработанная смена где сформирована сводная таблица, расположение данной таблице на всех листах одинаково и располагается в одну строчку 10 значений) необходимо сформировать сводную таблицу чтобы значения с листов формировались в последовательности дат т.е. шапка таблице ниже данные за первое число, ниже данные за второе число, ниже за третье число и т.д.

Обсуждение

Неизвестный
16.11.2007, 15:56
общий
это ответ
Здравствуйте, Рудяков Андрей Анатольевич!
1. команда создает копию скрытого листа
2. из вопроса я понял, Вам нужно на листе организовать подобие прайса, код в приложении.

Евгений.


Приложение:
1. Sheets("ИмяСкрытогоЛиста").Copy After:=Sheets("ИмяСкрытогоЛиста")2.Sub Price_list()Dim iCol%iCol = 5 ‘ колонка группировки, по ней выполните сортировку Application.ScreenUpdating = False iLastRow = ActiveSheet.Range("E65000").End(xlUp).Row For i = iLastRow To 2 Step -1 If Cells(i, iCol).Value <> Cells(i - 1, iCol).Value Then Rows(i).Insert Shift:=xlDown With Cells(i, 2) .Value = Cells(i + 1, iCol).Value .Font.ColorIndex = 0 .Font.Bold = True End With End If Next i Application.ScreenUpdating = TrueEnd Sub
Форма ответа