• 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ü Koşula Göre Yinelenen Verileri Kaldırarak Farklı Sayfaya Aktarma (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 sayın ustalarım

Ekte örnek olarak eklemiş olduğum dosyada A ile M (dahil) veri ile doludur. (Normalde doludur, kısmen sildim.)
Sadece A, B, C, D, E (diğer sütunlar önemsiz) sütunundaki verilerin yinelenen değerleri kaldırılarak ÇIKTI sayfasındaki elle eklediğim şekilde bir sonucu aktartma konusunda yardımcı olabilirmisiniz?


Bu konuda Çözüldü - Koşula Göre Yinelenen Verileri Kaldırarak Bulunduğu Dizine Kaydetme yukarıdaki işlem ADO yöntemi ile yapıldı, ADO harici yardımcı olabilirmisiniz?
 

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.
Çözüm
E
Sayın RBozkurt kodlarınız aşağıda.
Karşılaştırma yapabilmeniz için 20 satıra yazdırdım.
Sonuçlar doğruysakod sayfasında aşağıdaki blogda
ilk 2 satırın ' işaretlerini kaldırın.
3.satıra ' işareti koyun.

If say_bnz > 0 Then
's2.Range("A2:U1048576").ClearContents
's2.Cells(20, "A").Resize(say_bnz, 10).Value = (arr)
s2.Cells(20, "A").Resize(say_bnz, 10).Value = (arr)
End If
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Sayın RBozkurt Rapor sayfasında yinelenen veriler mi silinecek yoksa
bu sayfadaki veriler tekrarsız olarak başka bir sayfaya mı aktarılacak ?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Sayın RBozkurt Rapor sayfasında yinelenen veriler mi silinecek yoksa
bu sayfadaki veriler tekrarsız olarak başka bir sayfaya mı aktarılacak ?
Genişletmek için tıkla...

Sayın excelcan
Rapor sayfasındaki verileri tekrarsız çıktı sayfasına atacak. Ben el ile ekledim, yani işlem sonunda ordaki gibi sonuçlanacak.
 
Olumlu oy 0 Negatif oyla
Kontrol ediniz!
 

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
Sayın RBozkurt kodlarınız aşağıda.
Karşılaştırma yapabilmeniz için 20 satıra yazdırdım.
Sonuçlar doğruysakod sayfasında aşağıdaki blogda
ilk 2 satırın ' işaretlerini kaldırın.
3.satıra ' işareti koyun.

If say_bnz > 0 Then
's2.Range("A2:U1048576").ClearContents
's2.Cells(20, "A").Resize(say_bnz, 10).Value = (arr)
s2.Cells(20, "A").Resize(say_bnz, 10).Value = (arr)
End If
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

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