[حل شده] پی دی اف گرتن از چند شیت

[احسان رنجبر]

با سلام
فایل من جندین شیت داره که میخوام با زدن یک کلید، از یک تعدادی از آن ها فایل پی دی اف بدهد به صورت مجزا
در حال حاضر کد vba که دارم از همه شیت ها خروجی میگیره که من لازم ندارم اینو
من میخوام مثلا از 6تا شیت از 10 شیت موجود خروجی بگیرم و نکته بعدی اینکه که اسم هر قایل پی دی اف،از نام شیت و یک سلول در همان شیت تشکیل شده باشد.
ممنون میشم کمک کنید
کدی که خودم دارم رو میفرستم شاید کمک کرد:

• Sub exportPDF()
  Dim Folder_Path As String
  With Application.FileDialog(msoFileDialogFolderPicker)
  .Title = "مقصد فایل را مشخص کنید"
  If .Show = -1 Then Folder_Path = .SelectedItems(1)
  End With
  Dim sh As Worksheet
  For Each sh In ActiveWorkbook.Worksheets
  sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.Name & ".pdf"
  Next
  MsgBox "عملیات با موفقیت انجام شد", vbOKOnly
  End Sub
  
  
  
  
  
  
  
  
  
  
  
  
  

[M_ExceL]

با سلام
فایل من جندین شیت داره که میخوام با زدن یک کلید، از یک تعدادی از آن ها فایل پی دی اف بدهد به صورت مجزا
در حال حاضر کد vba که دارم از همه شیت ها خروجی میگیره که من لازم ندارم اینو
من میخوام مثلا از 6تا شیت از 10 شیت موجود خروجی بگیرم و نکته بعدی اینکه که اسم هر قایل پی دی اف،از نام شیت و یک سلول در همان شیت تشکیل شده باشد.
ممنون میشم کمک کنید
کدی که خودم دارم رو میفرستم شاید کمک کرد:

• Sub exportPDF()
  Dim Folder_Path As String
  With Application.FileDialog(msoFileDialogFolderPicker)
  .Title = "مقصد فایل را مشخص کنید"
  If .Show = -1 Then Folder_Path = .SelectedItems(1)
  End With
  Dim sh As Worksheet
  For Each sh In ActiveWorkbook.Worksheets
  sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.Name & ".pdf"
  Next
  MsgBox "عملیات با موفقیت انجام شد", vbOKOnly
  End Sub
  
  

سلام،
قسمت های قرمز رنگ رو به کدتون اضافه کنید.

Sub exportPDF()
Dim Folder_Path As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "مقصد فایل را مشخص کنید"
If .Show = -1 Then Folder_Path = .SelectedItems(1)
End With
Dim sh As Worksheet
[B][COLOR=#ff0000]tedad = 6
t = 0[/COLOR][/B]
For Each sh In ActiveWorkbook.Worksheets
sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.Name [COLOR=#ff0000][B]& sh.Range("a1") &[/B][/COLOR] ".pdf"
[COLOR=#ff0000] [B]t = t + 1[/B][/COLOR][B]
[COLOR=#ff0000] If t = tedad Then Exit For[/COLOR][/B]
Next
MsgBox "عملیات با موفقیت انجام شد", vbOKOnly
End Sub

[احسان رنجبر]

با تشکر از شما