[CODE
Sub Сохранение_книги()
'
' Сохранение_книги Макрос
'
'
Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4")).Select
Sheets("INFO").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
"r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
"r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
"r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
"r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod")).Select
Sheets("INFO").Activate
Sheets("sved_otchetnost").Select Replace:=False
Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
"r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
"r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
"r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
"r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod")).Select
Sheets("r1_p1_p1_ostatki_5").Activate
Sheets("sved_otchetnost").Select Replace:=False
Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
"r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
"r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
"r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
"r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod", "sved_otchetnost")).Copy
Sheets("_DICT").Select
ActiveWindow.SelectedSheets.Visible = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sved_otch_org").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("INFO").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATE").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_oboroty_1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_oboroty_2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_oboroty_3").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_oboroty_4").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_oboroty_5").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_sved_KO").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_ostatki_1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_ostatki_2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.TabRatio = 0.942
Sheets("r1_p1_p1_ostatki_3").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_ostatki_4").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p1_ostatki_5").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p2_oboroty_1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p2_oboroty_2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p2_oboroty_3").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("r1_p1_p3_1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r1_p1_p3_2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r2_p2_p1_oboroty").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r2_p2_p2_oboroty").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("r2_p2_p1_ostatki").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sved_rukovod").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sved_otchetnost").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q23").Select
Sheets("sved_rukovod").Select
Range("I19").Select
Sheets("r1_p1_p1_ostatki_4").Select
Range("D12").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-2
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("INFO").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets(Array("INFO", "DATE", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
"r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
"r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
"r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
"r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod", "sved_otchetnost")). _
Select
Sheets("INFO").Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H20").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets(Array("INFO", "DATE", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
"r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
"r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
"r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
"r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod", "sved_otchetnost")). _
Select
Sheets("INFO").Activate
Range("B28").Select
Sheets("sved_otch_org").Select
Range("D23").Select
Windows("!Формирование 0420011.xlsm").Activate
Range("J15").Select
Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
"r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
"r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
"r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
"r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
"r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
"r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod")).Select
Sheets("r1_p1_p1_oboroty_5").Activate
Sheets("sved_otchetnost").Select Replace:=False
Sheets("r1_p1_p1_oboroty_5").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Общий лист").Select
Range("M10").Select
End Sub[/COdE] |