Çözüldü Makro ile Koşullu Düşey Ara Mantığında Veri Çektirme (ADO'suz)

[RBozkurt]

Merhaba

Çözüldü - Makro ile Koşullu Düşey Ara Mantığında Veri Çektirme konusundaki işlemi ADO çalışması haricinde bir yöntem konusunda yardımcı olabilirmisiniz?

İki sayfa arasında eşit olabilecek 3 hücre belirledim. C,D ve E hücreleri.
Her iki sayfada bu değerleri eşleştirip verileri ilgili sütunlara yazdırılmasını istiyorum.

Uygulanacak İşlem
Kaynak sayfasındaki C D E hücrelerinin birleşimi =BİRLEŞTİR(C2;D2;E2) , Doldur sayfasındaki C D E hücrelerinine =BİRLEŞTİR(C2;D2;E2 eşit ise,

Kaynak F'yi Hedef N'ye çağır,
Kaynak G'yi Hedef O'ye çağır,
Kaynak H'yi Hedef P'ye çağır,
Kaynak I'yi Hedef Q'ye çağır,
Kaynak J'yi Hedef R'ye çağırılması.

 

[RBozkurt]

1. Mesajın eki.

 

[excelcan]

Sayın RBozkurt her iki sayfada da son satır değerleri
C sütununa göre alındı. Kaynak sayfasında C:E sütunları
birleştirildi. Doldur sayfasında arandı. Bulunduğunda
doldur sayfasında N sütunundan itibaren Kaynak sayfasında
istemiş olduğunuz sütun verileri işlendi. Daha geniş aralıklarda
lütfen doğruluk kontrolü yapınız. Kodlar aşağıda.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[RBozkurt]

Merhaba sayın excelcan
Örnek veri ekledim. 6 satır sonrası verileri çekmedi. Müsait olunca tekrar bakabilir misiniz?

 

[excelcan]

hepsini silin. aşağıdaki kodları yapıştırın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[RBozkurt]

Sayın excelcan teşekkür ederim elinize sağlık. 136 satırlık veride denedim herhangi problem gözükmemektedir.

 

[RBozkurt]

Merhaba tekrardan. Aynı konu olduğu için buradan devam ediyorum.
Kaynak sayfasına 2 sütun ekledim. Alttaki satırları uyarladım ama veriyi çekerken hata vermektedir. Sayın excelcan müsait olduğunuzda yardımcı olabilir misiniz?

 

[excelcan]

Sayın RBozkurt sütun eklemişsiniz ama o sütunların başvurduğu
liste_kaynak dizisini genişletmemişsiniz.
liste_kaynak = S1.Range("A2:J" & S1.Cells(Rows.Count, "C").End(3).Row).Value
satırını
liste_kaynak = S1.Range("A2:W" & S1.Cells(Rows.Count, "C").End(3).Row).Value
olarak düzelttim.

For i = 1 To UBound(liste_kaynak, 2)
bu kodla sütunlarda gezinirsiniz. Satırlarda gezinmek için
şöyle olmalı.
For i = 1 To UBound(liste_kaynak, 1)

Daha önce yazmış olduğum kodlara bakarak bir yeniden düzenleme yaptım.
Hata almıyorum. Ama alınan sonuç doğru mudur yanlış mıdır onu dikkatli
bir şekilde kontrol ediniz. Kolay gelsin. Yeni kodlar modül 3 de.

 

[RBozkurt]

Sayın RBozkurt sütun eklemişsiniz ama o sütunların başvurduğu
liste_kaynak dizisini genişletmemişsiniz.
liste_kaynak = S1.Range("A2:J" & S1.Cells(Rows.Count, "C").End(3).Row).Value
satırını
liste_kaynak = S1.Range("A2:W" & S1.Cells(Rows.Count, "C").End(3).Row).Value
olarak düzelttim.

For i = 1 To UBound(liste_kaynak, 2)
bu kodla sütunlarda gezinirsiniz. Satırlarda gezinmek için
şöyle olmalı.
For i = 1 To UBound(liste_kaynak, 1)

Daha önce yazmış olduğum kodlara bakarak bir yeniden düzenleme yaptım.
Hata almıyorum. Ama alınan sonuç doğru mudur yanlış mıdır onu dikkatli
bir şekilde kontrol ediniz. Kolay gelsin. Yeni kodlar modül 3 de.

Sayın excelcan yardımınız için çok teşekkür ederim elinize sağlık. Problem gözükmemektedir. Hakkınızı helal edin.

 

[excelcan]

Sayın excelcan yardımınız için çok teşekkür ederim elinize sağlık. Problem gözükmemektedir. Hakkınızı helal edin.

Rica ederim sayın RBozkurt aklım erdiği kadar her zaman yardımcı olmaya çalışırım.
Kolay gelsin.