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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2017, 21:38   #11
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Сообщений: 209
По умолчанию

Случайно оставил диапазон тестовый. Так с правильным диапазоном
Код:
Sub CopySameData()
  Dim rg As Range
  Set rg = ActiveSheet.Range("A1:GT1004") 
  With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm")
    .Worksheets.Add After:=Worksheets(Worksheets.Count)
    rg.Copy .Worksheets(.Worksheets.Count).Range("C5")
    .Save: .Close
  End With
End Sub
Алексей М.
AlexM12 вне форума Ответить с цитированием
Старый 25.03.2017, 22:06   #12
СтаСС
Пользователь
 
Регистрация: 12.02.2017
Сообщений: 87
По умолчанию

Ну так тоже что было уже - делает все правильно но не сохраняется ширина столбцов.. да пусть уже будет мой топорный вариант )) я его несколько раз проверил все делает правильно.
Еще раз СПАСИБО!
СтаСС вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование данных из книги в другую книгу по параметрам uniturs Microsoft Office Excel 6 01.08.2015 17:45
Перенос/копирование макроса в другую книгу Olper Microsoft Office Excel 7 21.12.2011 17:34
Копирование диаграмм в другую книгу adiodas Microsoft Office Excel 0 21.03.2011 20:58
Копирование диапазона в другую книгу в цикле Drummer_SV Microsoft Office Excel 2 22.12.2010 11:27
Копирование листа в другую книгу макросом xamillion Microsoft Office Excel 9 11.10.2008 08:59