Excel копирование данных из одного листа в другой при условии.
Добрый день ! Помогите пожалуйста с кодом. Имеется книга в которой 31 - 34 листа в зависимости от месяца. Листы называются: шаблон,1,2,3,4...29,режим,жидкость
в листе шаблон имеется ячейка ("C2") с датой . необходимо при нажатии на кнопку "закрытие суток" происходило копирование диапазона("B1:E18") в лист совпадающий дате ячейки ("C2")
( если дата 9.02.2012) то соответственно в лист 9.
Заранее благодарен.
в листе шаблон имеется ячейка ("C2") с датой . необходимо при нажатии на кнопку "закрытие суток" происходило копирование диапазона("B1:E18") в лист совпадающий дате ячейки ("C2")
( если дата 9.02.2012) то соответственно в лист 9.
Заранее благодарен.
В Вашем случае, если использовать имя рабочего листа, то :
а ежели его индекс, то :
Код:
Range("B1:E18").Copy Worksheets(CStr(Day(Range("C2")))).Range("B1")
Код:
[B1:E18].Copy Worksheets(CStr(Day([C2]))).[B1]
а ежели его индекс, то :
Код:
Range("B1:E18").Copy Worksheets(Day(Range("C2")) + 1).Range("B1")
Код:
[B1:E18].Copy Worksheets(Day([C2]) + 1).[B1]
Цитата: Oxana33
если это еще актуально)
Через почти 4 года — вряд ли ;-)