Discreum
Yeni Üye
- Katılım
- 21 Mar 2021
- Mesajlar
- 152
- Aldığı beğeni
- 37
- Excel V
- Office 2019 TR
Konu Sahibi
Private Sub CommandButton6_Click()
Dim folderpath As String
folderpath = "C:\users\b.celikors\desktop\ekodemelistesi"
Sheets(Array("ekodeme")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=folderpath & "\ekodemeler", _
openafterpublish:=False, ignoreprintareas:=False
MsgBox "sayfa pdf ye çevrilmiştir."
End Sub
kodlamada sıkıntım yok ama ben sayfadaki A VE H kolonlarındaki hücre içeriklerinin pdf olarak çıkmasını istiyorum burda sadece sayfayı seçtiğim için hepsi çıkıyor lütfen aban belli kolonların çıkması için örnek bir kod gösterirmisiniz.
Dim folderpath As String
folderpath = "C:\users\b.celikors\desktop\ekodemelistesi"
Sheets(Array("ekodeme")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=folderpath & "\ekodemeler", _
openafterpublish:=False, ignoreprintareas:=False
MsgBox "sayfa pdf ye çevrilmiştir."
End Sub
kodlamada sıkıntım yok ama ben sayfadaki A VE H kolonlarındaki hücre içeriklerinin pdf olarak çıkmasını istiyorum burda sadece sayfayı seçtiğim için hepsi çıkıyor lütfen aban belli kolonların çıkması için örnek bir kod gösterirmisiniz.
