Выборочное копирование диапазонов таблицы в 4 разные книги
китин
Дата: Понедельник, 11.04.2016, 08:48 |
Сообщение № 21
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
[vba][/vba]после Range("A3") не проходит
[vba][/vba]после Range("A3") не проходит китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение [vba][/vba]после Range("A3") не проходит Автор - китин Дата добавления - 11.04.2016 в 08:48
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]Прошу прощения
Нет, так: [vba]Код
Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy _ Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").sheets("ИмяЛиста").Range("A3")
[/vba] [moder]Сергей, где теги?[/moder]Прошу прощения KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Понедельник, 11.04.2016, 09:27
Ответить
Сообщение Нет, так: [vba]Код
Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy _ Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").sheets("ИмяЛиста").Range("A3")
[/vba] [moder]Сергей, где теги?[/moder]Прошу прощения Автор - KuklP Дата добавления - 11.04.2016 в 08:53
китин
Дата: Понедельник, 11.04.2016, 08:54 |
Сообщение № 23
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
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 прикрутить?
[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
Ответить
Сообщение [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 прикрутить? Автор - китин Дата добавления - 11.04.2016 в 08:54
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]вопрос Copy есть, а Paste нет
Это такой способ копирования - если после Copy пробел и диапазон - копирует туда. но я такой способ редко использую.
Так? [vba]Код
Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").Sheets("апрель").Range("A3").PasteSpecial xlPasteValues
[/vba]вопрос Copy есть, а Paste нет
Это такой способ копирования - если после Copy пробел и диапазон - копирует туда. но я такой способ редко использую. SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Понедельник, 11.04.2016, 09:31
Ответить
Сообщение Так? [vba]Код
Intersect(.Range("A:E,AEU:AEW,AEZ:AEZ,AFC:AFC"), .Range("14:" & n)).Copy Workbooks("диспетчерская таблица АПРЕЛЬ 2016г. опыт.xlsm").Sheets("апрель").Range("A3").PasteSpecial xlPasteValues
[/vba]вопрос Copy есть, а Paste нет
Это такой способ копирования - если после Copy пробел и диапазон - копирует туда. но я такой способ редко использую. Автор - SLAVICK Дата добавления - 11.04.2016 в 09:25
китин
Дата: Понедельник, 11.04.2016, 09:30 |
Сообщение № 25
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
странно, но УФ , которое есть в исходной таблице сохраняется
странно, но УФ , которое есть в исходной таблице сохраняется китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение странно, но УФ , которое есть в исходной таблице сохраняется Автор - китин Дата добавления - 11.04.2016 в 09:30
SLAVICK
Дата: Понедельник, 11.04.2016, 09:40 |
Сообщение № 26
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
странно, но УФ , которое есть в исходной таблице сохраняется
Конечно сохраняется, просто Вы же писали:Попробовал копипастом.формулы убивает УФ смещается и не работает
Я не проверял как оно сохраняется - решил проще удалить лишние столцы - тогда формулы у УФ изменятся.
странно, но УФ , которое есть в исходной таблице сохраняется
Конечно сохраняется, просто Вы же писали:Попробовал копипастом.формулы убивает УФ смещается и не работает
Я не проверял как оно сохраняется - решил проще удалить лишние столцы - тогда формулы у УФ изменятся.SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение странно, но УФ , которое есть в исходной таблице сохраняется
Конечно сохраняется, просто Вы же писали:Попробовал копипастом.формулы убивает УФ смещается и не работает
Я не проверял как оно сохраняется - решил проще удалить лишние столцы - тогда формулы у УФ изменятся.Автор - SLAVICK Дата добавления - 11.04.2016 в 09:40
китин
Дата: Понедельник, 11.04.2016, 09:48 |
Сообщение № 27
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
Всем спасибо.Очень помогли.
Всем спасибо.Очень помогли. китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение Всем спасибо.Очень помогли. Автор - китин Дата добавления - 11.04.2016 в 09:48