Kapalı Çalışma Kitaplarından Çoklu Koşula Göre Veri Transferi

[Believing]

Sayın Uzman arkadaşlar,

Ekteki çalışmada iki farklı kapalı çalışma kitabından "ANALİZ" isimli çalışma kitabına, çoklu koşullara göre veri transferi yapıyorum. Verilerin alınmasıyla ilgili koşulların, dinamik olarak belli bir sayfa üzerinden yapılmasını sağlamak için çok değerli yardımlarınızı rica ediyorum.
Detaylı açıklama "ANALİZ" isimli sayfada bulunmaktadır.

Saygılarımla.

Örnek Çalışma Dosyaları;
https://www.dosyaupload.com/c9b5

 

[Korhan Ayhan]

Merhaba,

Dosyanızda zaten veri alan kodlama bulunuyor. Sizin kod içindeki hücre aralıklarını elle değiştirmemek için yapmanız gereken en pratik yöntem AD TANIMLAMA kullanmak olacaktır.

2020 yılı için örneklersek;

DATABASE sayfasında F370:Q735 hücrelerini seçin ve AD kutusuna Y_2020_DF olarak isimlendirin.
DATABASE sayfasında AJ370:AU735 hücrelerini seçin ve AD kutusuna Y_2020_DS olarak isimlendirin.

Diğer hücre aralıklarınıda aynı mantıkla ad tanımlama metnindeki yıl bölümünü değiştirerek yapınız.

Sonra VBA bölümünde;

Mesela aşağıdaki satırı silerek yerine bir sonraki satırları uygulayınız;

Sheets("DATABASE").Range("E736:Q5000, AI736:AU5000").ClearContents

Bunun gibi değiştirebilirsiniz.

Yil=Sheets("SETTINGS").Range("M2").Value
Range("Y_" & Yil & "_DF").ClearContents
Range("Y_" & Yil & "_DS").ClearContents

Yine VBA tarafında aşağıdaki satırı silerek bir sonraki satırları uygulayınız;

Range("E736").Cells.CopyFromRecordset rs

Bunun gibi değiştirebilirsiniz.

Range("Y_" & Yil & "_DF").Cells(1, 1).CopyFromRecordset rs

Varsa diğer alanları da bu yapıya göre revize edebilirsiniz.

 

[Believing]

Sayın Korhan bey,

Çok değerli yardımınız ve katkılarınız için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen...

Saygılarımla.

 

[Korhan Ayhan]

Hakkım varsa helal olsun..