İyi günler;
Ekli dosyada anasayfa üzerindeki PDF butonu ile 55AZ410 isimli sayfanın A1:K47 hücre aralığını AnaSayfa da A1 hücresindeki isimle masaüstünde Arıza Tespit Formu klasörün içerisine PDF dosyası olarak kayıt yapabiliyorum. Benim yapmak istediğim AnaSayfa içindeki ComboBox.1 e sayfa adlarını almak ve ComboBox.1 den seçilen sayfayı yine aynı klasörün içerisine ComboBox.1 deki seçilen sayfa adı ile pdf olarak kayıt yapmak. Tüm sayfaların hücre aralığı sabit (A1:K47).
Not: Sayfa çoğaltılacak. ComboBox.1 de çoğalan sayfalar görünecek. Yardımlarınızı bekliyorum. Saygılarımla
Ekli dosyada anasayfa üzerindeki PDF butonu ile 55AZ410 isimli sayfanın A1:K47 hücre aralığını AnaSayfa da A1 hücresindeki isimle masaüstünde Arıza Tespit Formu klasörün içerisine PDF dosyası olarak kayıt yapabiliyorum. Benim yapmak istediğim AnaSayfa içindeki ComboBox.1 e sayfa adlarını almak ve ComboBox.1 den seçilen sayfayı yine aynı klasörün içerisine ComboBox.1 deki seçilen sayfa adı ile pdf olarak kayıt yapmak. Tüm sayfaların hücre aralığı sabit (A1:K47).
Not: Sayfa çoğaltılacak. ComboBox.1 de çoğalan sayfalar görünecek. Yardımlarınızı bekliyorum. Saygılarımla
Kod:
Sub PDF() 'pdf yap
Beep
Application.ScreenUpdating = False
klasör = Environ$("USERPROFILE") & "\Desktop\" & "ARIZA TESPİT FORMU"
If Len(Dir(klasör, vbDirectory)) = 0 Then MkDir klasör
Dosya1 = klasör & "\" & Sheets("ANASAYFA").Range("A1") & ".pdf"
Sheets("55AZ410").Range("A1:K47").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Dosya1, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox Sheets("ANASAYFA").Range("A1") & " PDF dosyaSI kaydedildi"
Application.ScreenUpdating = True
End Sub