Копирование данных в другую книгу

[СтаСС]

Здравствуйте, снова прошу помощь у знатоков! В этот раз попробую описать задачу четко чтоб даже мне было понятно
Нужен макрос который:
1. скопирует с активного листа (рабочей книги) данные (диапазон A1:GT1004)
2. откроет другую книгу (она уже существует) из той-же папки что и активная.. код типа -

With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm"

3. создаст там (в CHECK BASE.xlsm) новый лист (с любым названием типа Лист1 - название будет потом все равно переименовано вручную)
4. вставит скопированное в этот новый лист в ячейку С5
5. сохранит и закроет книгу (CHECK BASE.xlsm) ... ну и - End Sub

Но ОЧЕНЬ ВАЖНО чтоб данные были 1 в 1 с оригиналом (шрифт, окраска, ширина столбцов и тд включая условное форматирование)
НО вместо формул только их ЗНАЧЕНИЕ!
(особо акцентирую внимание на этих двух пунктах так как у меня постоянно какие то косяки тут возникают )
Похожих тем много встречал но присобачить что то готовое к своим потребностям не получается.. ПЛИЗ ХЕЛП МИ )

[IgorGO]

Sub CopySameData()
  Dim rg As Range, ar
  Set rg = ActiveSheet.Range("A1:GT1004"):  ar = rg.Value
  With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm")
    .Worksheets.Add
    rg.Copy .Worksheets(.Worksheets.Count).Range("C5")
    .Worksheets(.Worksheets.Count).Range("C5").Resize(UBound(ar), UBound(ar, 2)).Value = ar
    .Save: .Close
  End With
End Sub

[СтаСС]

IgorGO, Ваш макрос вроде работает, вроде потому что он создал новый Лист1 но вставил в уже существующий ( где были данные ) и сохранил так.. "говорила мне мама" надо делать всегда копии..

ВОПРОС ПОЧТИ ПО ТЕМЕ- сегодня вылетал ексель когда была открыта и книга CHECK BASE.xlsm после этого он предлагал
сохраненные версии книг но я нажал что не нужны так как ничего тогда не менял в ней.. сам ВОПРОС те копии утеряны окончательно или
как то можно их еще поискать? просто там были важные довольно таки данные в единственном екземпляре..

[IgorGO]

вижу я ничего серьезного не Вы не Ваша мама еще не теряли.
я делаю еще вторую копию на альтернативном носите
реально: компьтер, сервер, флэшка и лет 20-25 ни одной проблемы с моими персональными данными.

[СтаСС]

ну про маму это цитата
а та книга просто рабочая и я делаю ее копию раз в день.. верней перед сном.. а сегодня как раз было много чего в ней сделано.. ну как то так.. короче искать уже бесполезно?

[СтаСС]

IgorGO, можете как то подправить Ваш макрос чтоб он все же вставлял данные в новый лист?

[AlexM12]

Замените строку .Worksheets.Add на .Worksheets.Add After:=Worksheets(Worksheets.Count)
Не забывайте о резервных копиях.

[СтаСС]

AlexM12, большое Вам спасибо!!!
Теперь копирует в новый лист и вроде все сохраняет как надо но кроме ширины столбцов..
А про копии спасибо за напоминание ) Когда то пропавший свет научил автосохранению 2мин. теперь сделаю как IgorGO - по три копии + несколько раз в день сохранять.. а пропавшие данные - большую часть восстановить удасться и 2-4 дня работы будут не большим уроком за свою халатность..

[AlexM12]

В коде есть лишние строки. Пробуйте так

Sub CopySameData()
  Dim rg As Range
  Set rg = ActiveSheet.Range("A1:B5") 
  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

Пробуйте так

Нет.. так что то совсем не то - скопировало всего 8 ячеек и пару границ ячеек
Но я как раз только что разобрался с со своей задачей - слепил несколько макросов в один вышло "немного" )) топорно (копированием всего листа в другую книгу.. там удаление всего не нужного.. затем вставка нужных данных но уже только значения.. потом формат по образцу.. и тд) короче содом и гомора но выходит шустро и все как надо.
Но Спасибо и Вам и IgorGO за постоянную помощь и трату личного времени, Ваша помощь всегда не оценима!!!