Soru Listboxta Süzülen Veriyi Farklı Kaydetmek

[TURKOLOG]

Herkese merhaba
Listbox1 de süzdüğüm veriyi
SABİTLER sayfası B10 daki yola
SABİTLER sayfasi B11 deki isimle

Ayrı ayrı makrolar olacak şekilde 2 makro şeklinde
excel olarak kaydetmek
Pdf olarak kaydetmek istiyorum.

Naptimsa listboxtaki veriyi ya da listboxtaki süzülmüş veriyi ayrı bir excel kitabı ve pdf olarak kaydedemedim .

 

[ÖmerBey]

Merhaba,
Aşağıdaki gibi olabilir...

Private Sub CommandButton1_Click()
Yol = Sheets("SABİTLER").Range("B10")
isim = Sheets("SABİTLER").Range("B11")
dz = ListBox1.List

Application.ScreenUpdating = False
Set w1 = Workbooks.Add
w1.Sheets(1).Range("a1").Resize(UBound(dz) + 1, UBound(dz, 2) + 1).Value = dz
w1.SaveAs Filename:=Yol & isim & ".xlsx", FileFormat:=xlOpenXMLWorkbook 'Bu satır excel dosyası kaydeder
w1.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & isim & ".pdf" 'Bu satır pdf dosyası kaydeder
w1.Close 0
Application.ScreenUpdating = True
End Sub

 

[TURKOLOG]

Sayın @ÖmerBey kod çalıştı elinize emeğinize sağlık. Çok teşekkür ederim.

 

[ÖmerBey]

Rica ederim Sayın TURKOLOG,
İyi çalışmalar diliyorum...