Добрый день!
Возможно ли написать макрос подобного характера:необходимо из таблицы Excel (при условии что "шапка" таблицы не изменится)автоматически выбирать по фильтру отсортированную определенную строку и сохранить полученный файл в формате pdf в определенной папке?
У меня получилось примитивно в таком виде:
Sub Макрос1()
'
' Макрос1 Макрос
'

'
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2, Criteria1:="Орг. 1"
ChDir "C:\Users\OrlovA\Desktop\Новая папка"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\OrlovA\Desktop\Новая папка\Орг. 1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2
Range("B5").Select
ActiveCell.FormulaR1C1 = "Орг. 2"
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2, Criteria1:="Орг. 2"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\OrlovA\Desktop\Новая папка\Орг. 2.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2
Range("B6").Select
ActiveCell.FormulaR1C1 = "Орг. 3"
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2, Criteria1:="Орг.3"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\OrlovA\Desktop\Новая папка\Орг. 3.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2
Range("B7").Select
ActiveCell.FormulaR1C1 = "Орг. 4"
ActiveSheet.Range("$A$3:$D$7").AutoFilter Field:=2, Criteria1:="Орг. 4"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\OrlovA\Desktop\Новая папка\Орг. 4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Проблема в том, что организаций больше сотни, соответственно макрос в подобном виде будет гигантский.Возможно ли его сократить как-то?

For ... Next