farklı kayıtta dosya isimlerinin otomatik değişmesi

[mdede80]

Merhaba.

Ekte göreceğiniz excel dosyasında "Yazı" sayfasında oluşturduğum "pdf yaz" makrosunda bir sıkıntım var. yardımcı olursanız memnun olurum. Makro şöyle çalışıyor. "Liste" sayfasından herzaman birinci satırdaki ilgili bilgileri kopyalayıp "MART2009BA" sayfası yapıştırıyor. Sonrasında farklı kaydet yapıp "Yaz" sayfasındaki mutabakat mektup örneğini masaüstüne pdf olarak kayıt yapıyor. Sonrasında "Liste" sayfasındaki birinci satırı siliyor. Bu şekilde "Liste" sayfasındaki tüm firmalar için mutabakat mektubu oluşturmuş oluyorum.

Ancak masaüstünde hep aynı isimde pdf dosyasını oluşturuyor. Amacım hangi firma için pdf dosyası oluşturdu ise pdf dosyasının adı da aynı olssun. Her seferde masaüstünde oluşturduğu pdf dosyasının ismini manuel değiştirmek zorunda kalmayayım.

Tşk

 

[halit3]

Merhaba.

Ekte göreceğiniz excel dosyasında "Yazı" sayfasında oluşturduğum "pdf yaz" makrosunda bir sıkıntım var. yardımcı olursanız memnun olurum. Makro şöyle çalışıyor. "Liste" sayfasından herzaman birinci satırdaki ilgili bilgileri kopyalayıp "MART2009BA" sayfası yapıştırıyor. Sonrasında farklı kaydet yapıp "Yaz" sayfasındaki mutabakat mektup örneğini masaüstüne pdf olarak kayıt yapıyor. Sonrasında "Liste" sayfasındaki birinci satırı siliyor. Bu şekilde "Liste" sayfasındaki tüm firmalar için mutabakat mektubu oluşturmuş oluyorum.

Ancak masaüstünde hep aynı isimde pdf dosyasını oluşturuyor. Amacım hangi firma için pdf dosyası oluşturdu ise pdf dosyasının adı da aynı olssun. Her seferde masaüstünde oluşturduğu pdf dosyasının ismini manuel değiştirmek zorunda kalmayayım.

Tşk

Bu kodu denermisiniz

Sub pdf()
klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
sat = Worksheets("MART2009BA").Cells(Rows.Count, "B").End(3).Row + 1
For i = 1 To Worksheets("Liste").Cells(Rows.Count, "B").End(3).Row
Sheets("MART2009BA").Cells(sat, "c").Value = Sheets("Liste").Cells(i, "b").Value
Sheets("MART2009BA").Cells(sat, "g").Value = Sheets("Liste").Cells(i, "d").Value
Sheets("MART2009BA").Cells(sat, "d").Value = Sheets("Liste").Cells(i, "e").Value
Sheets("MART2009BA").Cells(sat, "e").Value = Sheets("Liste").Cells(i, "f").Value
Sheets("MART2009BA").Cells(sat, "ı").Value = Sheets("Liste").Cells(i, "g").Value
Sheets("YAZI").Cells(2, "ı").Value = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=klasor & "\" & Sheets("Liste").Cells(i, "b").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Liste").Rows(i).ClearContents
sat = sat + 1
Next
End Sub