Belirli alanları Farklı Kaydet yapma

Forumda SaveAs veya Farklı Kaydet diye arama yaparsanız örnek uygulamalara erişebileceğinizi sanıyorum.

Hatırladığım, konuyla ilgili son konu linki aşağıda.
Konu sahibinin örnek belgesinde yer alan XLSM ve PDF kaydetme (pdf kısmı sizinle ilgili değil doğal olarak) kodlarını,
konu sayfasındaki açıklama ve yazışmaları da dikkate alarak kendinize uyarlamayı deneyin isterseniz.

Sn Ömer Baran,

arama yaptım ve diğer konuları da inceledim.

Son dolu sütun ve satırım değişken gösterdiği için kodlarımda nasıl bir revize etmem gerekir.

Direk cevabı yazmayayım (sorun çözmekten ziyade öğrenmek istiyorsunuz )

Belgedeki veri durumuna ilişkin 2 seçenek var;
-- alanda veri olmaması >> kodun en başında bu durumu tespit edip işlem yapmadan kodu sonlandırmak gerekir.
-- alanda veri olması (son sütunun U sütunu olduğu zaten belli) >> veri miktarının yani satır adetinin tespit edilmesi ve [a1:U20] kısmını Range("A1:U20") diye düşünüp, bunu Range("A1:U" & sonsatir) şeklinde ifade etmek üzere, bu kod satırından önce sonsatir değişkeni için bir değer bulunması gerekecek.
Peki sonsatır değişkeninin alacağı değer ile veri satır adeti arasındaki ilişki nasıl kurulacak?
1) örneğin verilerinizde sıra numarası varsa (ki var) sonsatir = Worksheet.Function.Max(Range("A:A") şeklinde bir değer bulunup,
bu değere, başlık satır adetini ve tablonun altındaki özet bilgi satır adeti eklenerek bulunabilir.
2) Örneğin C sütununa bakarak; sonsatir = Cells(Rows.Count, "C").End(3).Row şeklinde de son dolu satır tespit edilebilir.

Sn Ömer Baran,

araştırdım ama yapamadım maalesef ilişkiyi anladım ama uyarlayamadım