Merhaba,
Derdimi şöyle anlatayım,
Yaklaşık 320 çalışma sayfasından oluşan bir dosyam var.
Bunlardan yaklaşık 120 tanesini PDF uzantılı olarak kaydetmem gerekiyor.
Dosyamda bir tane user form var. bunun içindeki listeden seçtiğim çalışma sayfalarını ters sırayla yazdırıyorum.
Buna benzer mantıkta;
listeden seçtiğim çalışma sayfalarını, ayrı ayrı PDF dosyası yapacak ve
dosya adını da çalışma sayfalarındaki BA1 (Örneğin) hücresinden alacak bir user forma ihtiyacım var.
Elimdeki user forma internetten bulduğum ve anladığımı zannettiğim kodları entegre etmeye çalıştım, ancak makro konusunda deneyimsiz olduğum için değişik hatalar yaşadım,
en sonunda pes ettim, kafam buna basmadı.
Yardımcı olunursa memnun olurum.
Saygılar.
NOT: Yazdırmayla ilgili mevcut user formun kodu aşağıdadır.
Derdimi şöyle anlatayım,
Yaklaşık 320 çalışma sayfasından oluşan bir dosyam var.
Bunlardan yaklaşık 120 tanesini PDF uzantılı olarak kaydetmem gerekiyor.
Dosyamda bir tane user form var. bunun içindeki listeden seçtiğim çalışma sayfalarını ters sırayla yazdırıyorum.
Buna benzer mantıkta;
listeden seçtiğim çalışma sayfalarını, ayrı ayrı PDF dosyası yapacak ve
dosya adını da çalışma sayfalarındaki BA1 (Örneğin) hücresinden alacak bir user forma ihtiyacım var.
Elimdeki user forma internetten bulduğum ve anladığımı zannettiğim kodları entegre etmeye çalıştım, ancak makro konusunda deneyimsiz olduğum için değişik hatalar yaşadım,
en sonunda pes ettim, kafam buna basmadı.
Yardımcı olunursa memnun olurum.
Saygılar.
NOT: Yazdırmayla ilgili mevcut user formun kodu aşağıdadır.
Kod:
Private Sub CheckBox1_Click()
Dim liste As Integer
For liste = 1 To ListBox1.ListCount
ListBox1.Selected(liste - 1) = CheckBox1.Value
Next
End Sub
Private Sub CommandButton1_Click()
Dim liste As Integer
For liste = 1 To ListBox1.ListCount
If ListBox1.Selected(liste - 1) = True Then
Sheets(ListBox1.List(liste - 1, 0)).PrintOut
ListBox1.Selected(liste - 1) = False
End If
Next
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
ListBox1.ListStyle = 1
ListBox1.MultiSelect = fmMultiSelectExtended
For i = ActiveWorkbook.Sheets.Count To 1 Step -1
ListBox1.AddItem Sheets(i).Name
Next i
End Sub