Belirli Alanları Farklı Kaydet Yapma

[linkme]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhabalar,

Sn Ömer Baran Hocamın daha önceki yapmış olduğu çalışmaya ek olarak Excel Kayıt et butonu yapmak istiyorum.

-- Kaydet dediğimde U sütuna kadar verileri farklı kaydet nasıl yapabilirim.

-- Dosya Adı olarak B4+C4 +Fatura No+SAS No nasıl kaydet yapabilirim.

Kodlar Ektedir.

Bu kodu görmek için giriş yapmanız gerekmektedir (34 satır). Giriş Yap

İyi Çalışmalar dilerim.

 

[Ömer BARAN]

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.

https://www.exceldestek.com/konu/e7e8e14-degerini-isim-olarak-kullanip-farklikaydetme.5258/

 

[linkme]

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.

Bu kodu görmek için giriş yapmanız gerekmektedir (21 satır). Giriş Yap

 

[Ömer BARAN]

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.

 

[linkme]

Sn Ömer Baran,

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