Страницы: 1
RSS
Не работает обновление форму
 
Доброго всем времени суток. Срочно прошу помочь с макросом.
Макрос долже перебирая печатать листы обновляя все ссылки. Но он не все успевает обновить( я так думаю)
Когда обновляешь каждый лист все норм, но когда по макросу не все ячейки успевает обновить.
Очень нужна помощь. До утра много работы надо сделать
Код
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
Страницы: 1
Наверх