Страницы: 1
RSS
Копирование и вставка
 
Добрый день. Подскажите пожалуйста макрос для копирования выделенного диапазона и вставки в определенную ячейку спец вставкой.

Допустим выделяем определенный диапазон, нажимаем сочетание в клавиш и выделенный диапазон скопировался в ячейку "L2"
У меня в макросе копируется только диапазон который стоит с Range, как сделать чтобы так можно было сделать с любым выделенным диапазоном.

Код
Sub Макрос1()
'
'   Range("A1:B11").Select
    Selection.Copy
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
Код
Sub Макрос1()
    Selection.Copy
    Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
 
Я бы добавил:
Код
Sub Макрос1()
    If TypeName(Selection) <> "Range" Then Exit Sub
    'тот же код, что выше
End Sub

Справка по PasteSpecial, Paste:=возможные варианты
 
Спасибо
Страницы: 1
Наверх