Копирование в файл-шаблон и пересохранение под другим именем

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование в файл-шаблон и пересохранение под другим именем (Макросы/Sub)

Raven2009

Дата: Понедельник, 16.12.2019, 21:27 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.

Есть вот такая задумка, которая частично реализована.

Есть файл Запуск, в котором на Листе1 кнопка.
По нажатию на нее:

- копируются со второго листа этого файла номера коробов, которые имеют индикатор "x" во втором столбце
- открывается файл Образец и на лист Выгрузка копируются эти коробки

- далее задумано сохранение файла с подгруженными данными под именем Скан и закрытие файла Образец без сохранений.

Путь ThisWorkbookPath

Подскажите пожалуйста, как мне дописать код правильно на кнопке?

И еще момент. Если книга Скан уже существует, нужно перезаписывать ее с заменой...

К сообщению приложен файл: 5966933.rar (54.8 Kb)

Сообщение отредактировал Raven2009 - Понедельник, 16.12.2019, 21:29

Ответить

Pelena

Дата: Вторник, 17.12.2019, 09:06 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Так хотели?

К сообщению приложен файл: 5300776.xlsb (47.7 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Raven2009

Дата: Вторник, 17.12.2019, 09:19 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Pelena, 17.12.2019 в 09:06, в сообщении № 2 ()

Так хотели?

Здравствуйте) Именно так, спасибо вам большое! И дописать всего ничего оставалось)))

Ответить

RAN

Дата: Вторник, 17.12.2019, 11:45 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

С таким образцом зачем он вообще нужен?
[vba]

Код

Sub мяу()
    Dim wb As Workbook, st As Boolean
    With ThisWorkbook.Worksheets("Разбивка").ListObjects(1)
        st = .ShowTotals
        .ShowTotals = False
        .Range.AutoFilter Field:=2, Criteria1:="x"
        Set wb = Workbooks.Add
        .ListColumns(1).Range.SpecialCells(12).Copy wb.Sheets(1).Cells(1)
        .Range.AutoFilter Field:=2
        .ShowTotals = st
    End With
    Application.DisplayAlerts = False
    wb.SaveAs ThisWorkbook.Path & "\скан.xlsx", 51
    wb.Close False
    Application.DisplayAlerts = True
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Копирование в файл-шаблон и пересохранение под другим именем (Макросы/Sub)

Страница 1 из 1
1