Выборочное копирование диапазонов таблицы в 4 разные книги - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборочное копирование диапазонов таблицы в 4 разные книги (Макросы/Sub)

Выборочное копирование диапазонов таблицы в 4 разные книги

китин

Дата: Понедельник, 11.04.2016, 08:48 | Сообщение № 21

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

[vba]

Код

ActiveSheet.Paste

[/vba]после Range("A3") не проходит

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

KuklP

Дата: Понедельник, 11.04.2016, 08:53 | Сообщение № 22

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Нет, так:
[vba]

Код

Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy _
Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").sheets("ИмяЛиста").Range("A3")

[/vba]
[moder]Сергей, где теги?[/moder]Прошу прощения

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 11.04.2016, 09:27

Ответить

китин

Дата: Понедельник, 11.04.2016, 08:54 | Сообщение № 23

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

[vba]

Код

Sub perenos()
    Dim n&
    '    On Error Resume Next
    With ThisWorkbook.Sheets("апрель")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy _
        Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").Sheets("апрель").Range("A3")
    End With
End Sub

[/vba] отлично работает!!! вопрос Copy есть, а Paste нету. а если захочу только значениями вставлять??? как мне PasteSpecial прикрутить?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

SLAVICK

Дата: Понедельник, 11.04.2016, 09:25 | Сообщение № 24

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Так?
[vba]

Код

Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy
Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").Sheets("апрель").Range("A3").PasteSpecial xlPasteValues

[/vba]

Цитата китин, 11.04.2016 в 08:54, в сообщении № 23

вопрос Copy есть, а Paste нет

Это такой способ копирования - если после Copy пробел и диапазон - копирует туда. ^_^