Копирование диапазона ячеек макросов в зависимости от положения курсора

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

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

21.04.2015 16:37:21

Здравствуйте, помогите с макросом. Необходимо записать следующую последовательность.
1. кликнуть на определенную ячейку (например в столбце В)
2. кликнуть на кнопку "1"
3. при нажатии кнопки происходит копирование диапазона ячеек по строке (на которой был курсор) , но в определенном диапазоне (см. пример)
4. переход на страницу "В"

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

проба345.xlsx (12.44 КБ)

KuklP

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

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

E-mail и реквизиты в профиле.

21.04.2015 18:28:33

В модуль листа 1.

Код
Public Sub www() If ActiveCell.Column <> 2 Then Exit Sub ActiveCell.Resize(, 5).Copy Sheets("В").[a1] Sheets("В").Activate End Sub

Изменено: KuklP - 21.04.2015 18:35:22

Я сам - дурнее всякого примера! ...

teplo_gaz Пользователь Сообщений: 24 Регистрация: 11.03.2015	#3 22.04.2015 14:27:16 Спасибо, а как будет выглядеть команда вставить как значение, а не просто "вставить"??

Юрий М

Модератор

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

Контакты см. в профиле

22.04.2015 14:32:06

Запишите рекордером Специальную вставку - значения и посмотрите код. Или не копировать, а присваивать значения:

Код
ВторойДиапазон.value = ПервыйДиапазон.value

teplo_gaz Пользователь Сообщений: 24 Регистрация: 11.03.2015	#5 22.04.2015 16:26:31 К сожалению не получается( Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False