Доброго всем времени суток. Срочно прошу помочь с макросом.
Макрос долже перебирая печатать листы обновляя все ссылки. Но он не все успевает обновить( я так думаю)
Когда обновляешь каждый лист все норм, но когда по макросу не все ячейки успевает обновить.
Очень нужна помощь. До утра много работы надо сделать
Макрос долже перебирая печатать листы обновляя все ссылки. Но он не все успевает обновить( я так думаю)
Когда обновляешь каждый лист все норм, но когда по макросу не все ячейки успевает обновить.
Очень нужна помощь. До утра много работы надо сделать
Код |
---|
Sub АОСР() Dim c As Range, el Application.ScreenUpdating = False Sheets(Array("СИМФразработка", "СИМФотсыпкаТРАНШ", "СИМФразрабКОЛ", "СИМФотсыпкаКОЛ", "СИМФобмазГИДР", "СИМФмотажТРУБ", "СИМФзищитный", "СИМФзамок", "СИМФгидрКОЛ", "СИМФзасыпка", "СИМФмонтКОЛ")).Select With Sheets("ФормаСети") For Each c In .Range(.Range("F57"), .[F57].End(xlDown)).Cells Sheets("ФОРМА").Range("DL123") = c.Value Application.Calculate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & Application.PathSeparator & c.Value & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next End With Application.ScreenUpdating = True End Sub |