Страницы: 1
RSS
Сохранить часть листа в отдельный файл
 
Добрый день! Прошу помочь со следующим вопросом:
В книге есть лист "Выгрузка".
Я добавил макрос сохранения листа в отдельный файл.
Макрос работает, но копирует лист с самой кнопкой макроса.

Нужно:
Откорректировать код, чтобы сохранялись столбцы A:F данной книги.
При копировании в новый лист должны переноситься значения (не формулы) и должно быть сохранено форматирование листов A:F, т.е. ровно так, как сейчас работает, только без кнопки макроса.
Имя нового файла должно быть такое же, как и с данным макросом - "Имя листа + B10 + B11"
Изменено: Maxim - 20.09.2021 15:16:27
 
Можно посмотреть в теме, созданной сегодня.
Макрос копирующий диапазон в новый лист с сохранением настроек (planetaexcel.ru)

Оставить значения можно так:
Код
Sub OnlyVal()
    Dim r As Range
    On Error Resume Next
    Set r = Intersect(ActiveSheet.UsedRange, Columns("A:F"))
    On Error GoTo 0
    If Not r Is Nothing Then
        Dim arr As Variant
        arr = r
        r = arr
    End If
End Sub
Изменено: МатросНаЗебре - 20.09.2021 15:06:04
 
МатросНаЗебре, не совсем понимаю как это сделать...там идет речь о том, чтобы не переносить макрос, а мне нужно, чтобы не был скопирован объект (т.е. кнопка)
Изменено: Maxim - 20.09.2021 15:26:22
 
Там речь про то, как перенести всё, включая форматирование.

Кнопку удалить можно так:
Код
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes(1).Delete
 
МатросНаЗебре, Это подходит, спасибо!
Страницы: 1
Наверх