• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
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ı.
 
Çözüm
E
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.
Tarihe göre sırala Oylara göre sırala
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Merhaba sayın excelcan
Örnek veri ekledim. 6 satır sonrası verileri çekmedi. Müsait olunca tekrar bakabilir misiniz?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
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? 🙏 🙏
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
excelcan' Alıntı:
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.
Genişletmek için tıkla...

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.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst