Здравствуйте!
Суть задачи: Нужно на одну кнопку привязать два события.
1. Сохранить в базу данные из листа Протокол ДЭС в Лист "Свод"
2. Сохранить Акт в *.pdf форму.
Побродил по разным форумам и сваял несколько отдельных макросов, которые потом решил повесить на одну кнопку.... По отдельности они работали (правда макрос в базу назывался не Макрос1, а что-то типа щелчок1) а когда их соединил макросом Main вместе, то работает только второй... Что-то пошло не так... (
Помогите пожалуйста поправить код
| Код |
|---|
Sub Макрос2()
'
' Макрос2 Макрос
Sheets("Протокол ДЭС").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Акты прокрутки\" + Sheets("Форма").Cells(2, 19).Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=Tru
MsgBox "Акт сохранён"
End Sub
Sub Макрос1()
'
' Макрос1 Макрос
Dim shSrc As Worksheet, shRes As Worksheet
Dim lr As Long
Set shSrc = ActiveSheet
Set shRes = Worksheets("Свод")
lr = shRes.Cells(shRes.Rows.Count, "B").End(xlUp).Row + 1
shRes.Cells(lr, "B").Value = shSrc.Range("A11").Value
shRes.Cells(lr, "A").Value = shSrc.Range("D33").Value
shRes.Cells(lr, "C").Value = shSrc.Range("G11").Value
shRes.Cells(lr, "D").Value = shSrc.Range("J11").Value
shRes.Cells(lr, "E").Value = shSrc.Range("M11").Value
shRes.Cells(lr, "F").Value = shSrc.Range("E23").Value
shRes.Cells(lr, "G").Value = shSrc.Range("G22").Value
shRes.Cells(lr, "H").Value = shSrc.Range("D19").Value
shRes.Cells(lr, "I").Value = shSrc.Range("J19").Value
shRes.Cells(lr, "J").Value = shSrc.Range("L19").Value
shRes.Cells(lr, "K").Value = shSrc.Range("N19").Value
shRes.Cells(lr, "L").Value = shSrc.Range("F25").Value
shRes.Cells(lr, "M").Value = shSrc.Range("F26").Value
shRes.Cells(lr, "N").Value = shSrc.Range("F27").Value
shRes.Cells(lr, "O").Value = shSrc.Range("F28").Value
shRes.Cells(lr, "P").Value = shSrc.Range("H14").Value
' Здесь напишите код для остальных столбцов.
MsgBox "Данные сохранены"
End Sub
Sub Main()
Call Макрос1
Call Макрос2
End Sub |
