Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2019, 21:56   #1
СтаСС
Пользователь
 
Регистрация: 12.02.2017
Сообщений: 87
По умолчанию Копирование только значений диапазона

Привет всем!
Надо с листа1 скопировать диапазон A-T с последних 15-и строк и вставить на лист2 и это я делаю с помощью:

Код:
 Sub PROBA()
 Windows("Книга1.xlsm").Activate
 With Sheets("1")
 Set ra = Range(.Range("A" & .Rows.Count).End(xlUp), .Range("AA" & Rows.Count).End(xlUp))
 End With
 ra.Offset(-14).Resize(15).Copy Sheets("2").[A3]
 End Sub
Но дело в том что копируется с исходным форматированием, а понадобилось чтоб просто значения.. добавляю
Код:
  .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
но или не то добавляю или не туда...
Подскажите как правильно это сделать и чтоб копировать не в туже книгу а в "Книга2"
СтаСС вне форума Ответить с цитированием
Старый 19.01.2019, 00:00   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Код:
Sub PROBA()
    Windows("Книга1.xlsm").Activate
    With Sheets("1")
        Set ra = Range(.Range("A" & .Rows.Count).End(xlUp), .Range("AA" & Rows.Count).End(xlUp))
    End With
    a = ra.Offset(-14).Resize(15).Value
    Workbooks("Книга2").Sheets("2").[A3].Resize(UBound(a), UBound(a, 2)).Value = a
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 19.01.2019, 00:44   #3
СтаСС
Пользователь
 
Регистрация: 12.02.2017
Сообщений: 87
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Код
Большое Спасибо!
СтаСС вне форума Ответить с цитированием
Старый 19.01.2019, 01:12   #4
СтаСС
Пользователь
 
Регистрация: 12.02.2017
Сообщений: 87
По умолчанию

Упссс..
Добрался до компа и в єтой строке ошибка віскакивает
Код:
Workbooks("Книга2").Sheets("2").[A3].Resize(UBound(a), UBound(a, 2)).Value = a
Цитата:
Run-time error '9':
Subscript out of range
СтаСС вне форума Ответить с цитированием
Старый 19.01.2019, 14:56   #5
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Если на компе отключена опция "Скрывать расширения для зарегистрированных типов файлов", имя книги надо указывать с расширением - так, как оно отображается в окне Project.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 19.01.2019, 20:58   #6
СтаСС
Пользователь
 
Регистрация: 12.02.2017
Сообщений: 87
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
Если на компе отключена опция
Даже мысли такой не было.. хотя даже визуально напрашивается в код - ведь первая книга с .xlsm
Спасибо!!! Вопрос решен !

Последний раз редактировалось СтаСС; 19.01.2019 в 21:00.
СтаСС вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование диапазона. riniks17 Microsoft Office Excel 7 16.04.2013 17:47
Копирование диапазона Kvint_Sertoriy Microsoft Office Excel 4 27.02.2012 21:37
Поиск и копирование диапазона Wind-up Bird Microsoft Office Excel 3 16.11.2011 23:25
Копирование выделенного диапазона 6306617 Microsoft Office Excel 7 24.03.2011 15:49
Копирование динамического диапазона vik85 Microsoft Office Excel 3 27.06.2010 14:40