[Yardım]  Listboxta Seçilen Sayfayı PDF Yapma

Kulanıcı arayüz formu

Listboxta Seçilen Sayfayı PDF Yapma

İleti#1)  Levent145 » 08 Nis 2021 15:17

Herkese merhaba aşağıdaki çalışan kod ile seçilen sayfayı xlsm yapıyorum ve çalışıyor.
Ben aynı kodlarla seçilen sayfayı PDF yapmak istiyorum ama kod hep hata veriyor.
Microsoft Dosya Uzantıları ve Kodları Sayfası nda da PDF şeklini bulamadım
Userformu konunun ekine yerleştirdim.
Yardım edebilecek olan var mı
Kod: Tümünü seç

Sub Xlsm_Yap ()
Application.ScreenUpdating = False
Dim txtmsg As String, txttitle As String
Dim txtresult As String, txtdefault As String
Dim JJ As String
JJ = Application.GetSaveAsFilename("YILDIZ", "Microsoft Excel Workbook (*.xlsm), *.xlsm", , "YILDIZ")
If JJ = "False" Then GoTo LastLine
'
Dim i As Integer, n() As String, f As Integer
Dim cnt1 As Integer, cnt2 As Integer
cnt1 = 0
For f = 0 To Me.ListBox1.ListCount
On Error GoTo 1
If Me.ListBox1.Selected(f) Then _
cnt1 = cnt1 + 1
1: Next f
ReDim n(1 To cnt1)
cnt2 = 0
For i = 0 To (Me.ListBox1.ListCount - 1)
On Error Resume Next
If Me.ListBox1.Selected(i) Then
cnt2 = cnt2 + 1
n(cnt2) = Me.ListBox1.list(i)
End If
Next i
On Error GoTo 0
Sheets(n).Copy
Sheets(n).Select
ActiveWorkbook.SaveAs Filename:= _
(JJ), _
FileFormat:=52, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
LastLine:
Application.ScreenUpdating = True
Unload Me
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Listboxta Seçilen Sayfayı PDF Yapma

İleti#2)  kanakan52 » 10 Nis 2021 14:51

Merrhaba,

Dosyayı kontrol edebilir misiniz ?

Sayfa ismini değişkene bağladım, YILDIZ ismi ile kaydettiğinizde 3 sayfayı aynı isimde kaydedeceği için üst üste yazdıracak. Dolayısı ile son oluşan .pdf dosyasını göreceksiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kanakan52
Site Dostu
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 38
İleti: 518
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: Listboxta Seçilen Sayfayı PDF Yapma

İleti#3)  Levent145 » 10 Nis 2021 20:55

Hocam elinize emeğinize sağlık. Dosya tam istediğim gibi çalıştı
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe