Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос копирования листа (объединить между собой) / 10 сообщений из 10, страница 1 из 1
01.06.2020, 14:22
    #39965019
PlomBir1
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
Всем привет!

В файле 3 макроса (кнопки):

1. сохраняет каждый лист отдельно
2. копирует выделенный лист но не сохраняет
3. сохраняет выделенный лист в PDF

Прошу помочь объединить эти макросы:

Что бы одной кнопкой (макросом) было сохранение только выделенного листа в excel и PDF одновременно

На приложенном примере, этот макрос применяется к (листу Бланк)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 12:53
    #39965618
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
PlomBir1,

Код: vbnet
1.
2.
3.
4.
5.
Sub ВсеВместе()
    Штриховаястрелкавправо4_Щелчок
    Штриховаястрелкавправо6_Щелчок
    Штриховаястрелкавправо7_Щелчок
End Sub



ps
Пунктуация автора сохранена )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 12:57
    #39965620
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
 
big-duke
Пунктуация автора сохранена )
Как называется эта нотация? под Pascal, Camel, Snake и Kebab не подходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 17:38
    #39965827
PlomBir1
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
big-duke,

Спасибо, теперь буду знать этот способ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 17:39
    #39965828
PlomBir1
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
Подскажите как в этом макросе сделать чтоб он сохранял только выделенный лист и переименовывал его как "копия №_ от даты"

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Штриховаястрелкавправо4_Щелчок()

    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
        s.Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"
    Next
        
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 18:28
    #39965855
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
PlomBir1,
Где сохранял ? В новой книге ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 19:49
    #39965871
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
Код: vbnet
1.
2.
3.
Set wb = ActiveWorkbook
Activesheet.Copy
ActiveWorkbook.SaveAs wb.Path & "\копия №_ от даты.xlsx"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2020, 21:01
    #39965895
PlomBir1
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
big-duke,

Нужно чтоб сохранял, только выделенный лист (листы) отдельным файлом (файлами) в папку.

Сейчас макрос делит книгу на листы и каждый сохраняет отдельным файлом в папку.

(В оригинальной книге 15 листов, а сохранять требуется 1, 2)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2020, 12:15
    #39966052
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
PlomBir1
выделенный лист ( листы )
тогда так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Штриховаястрелкавправо4_Щелчок()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In ActiveWindow.SelectedSheets
        s.Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"
    Next
End Sub


но непонятно тогда с этим:"копия №_ от даты"
Если выделено более одного листа - нельзя же всем дать одно и тоже имя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2020, 15:55
    #39966184
PlomBir1
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос копирования листа (объединить между собой)
The_Prist,
Спасибо, теперь получилось

Совместными усилиями макрос выгляди так (максимально то что было задумано):

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Штриховаястрелкавправо4_Щелчок()
           
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In ActiveWindow.SelectedSheets
        s.Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "Копия_№ " & [A11] & "_" & "От " & [A12] & ".xlsx"
        s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & s.Name & [A11] & "_" & [A12] & ".pdf", Type:=x1TypePDF
    Next

End Sub



зы. идеально для одного листа, так как выделенные листы PDFка собирает все в себя и копирует под каждое имя выделенного листа xlsx (сложно написал, лучше смотреть)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос копирования листа (объединить между собой) / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 150ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2171874]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 13ms
total:  150ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]