benzersiz olanları makro ile bul

[şehiriçi]

Selam,
Arkadaşlar ekli dosyamda A sütunuda olupta B sütununda olmayan rakamları C sütununa kod ile aktarmak istiyorum , desteğiniz için teşekkürler

 

[YUSUF44]

İstediğinizle verdiğiniz örnek birbirine uymamış. A sütununda olup da B sütununda olmayanları listelemek istemişsiniz ama örnek dosyanızda B sütununda olup da A sütununda olmayanları listelemişsiniz. Ayrıca 197 her iki sütunda da olduğu halde C sütununa yazmışsınız.

Eğer A sütununda olup da B sütununda olmayanları listelemek istiyorsanız aşağıdaki makroyu deneyin:

Sub eksik()
sonA = Cells(Rows.Count, "A").End(3).Row
sonB = Cells(Rows.Count, "B").End(3).Row
Application.ScreenUpdating = False
    For i = 1 To sonA
        If WorksheetFunction.CountIf(Range("B1:B" & sonB), Cells(i, "A")) = 0 Then
            yeni = Cells(Rows.Count, "C").End(3).Row + 1
            Cells(yeni, "C") = Cells(i, "A")
        End If
    Next
Application.ScreenUpdating = True
End Sub

Eğer B sütununda olup da A sütununda olmayanları listelemek istiyorsanız aşağıdaki makroyu deneyin:

Sub eksikB()
sonA = Cells(Rows.Count, "A").End(3).Row
sonB = Cells(Rows.Count, "B").End(3).Row
Application.ScreenUpdating = False
    For i = 1 To sonB
        If WorksheetFunction.CountIf(Range("A1:A" & sonA), Cells(i, "B")) = 0 Then
            yeni = Cells(Rows.Count, "C").End(3).Row + 1
            Cells(yeni, "C") = Cells(i, "B")
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[Haluk]

ADO ile alternatif;

.

 

[şehiriçi]

Sayın Haluk ve Yusuf44 ayrı ayrı teşekkürlerimi sunuyorum , iyiki varsınız excel sizlerle daha güzel
Haklısınız Yusuf44 dikkatsizliğime gelmiş ama her iki seçeneğide vermişsiniz ,sizin kodun mantığını çözebiliyorum yani anlıyabiliyorum ama haluk beyin yazdığı kod benim kapasitemi aşıyor ado vs anlamıyorum ama işimi gördü .Her ikinizede tekrar teşekkürler , şimdi dosyama uyarlamaya çalışacağım

 

[Mahir64]

Merhaba,

Formülle alternatif isterseniz deneyin.
DİZİ formülü.

=EĞERHATA(İNDİS($B$2:$B$100;KÜÇÜK(EĞER(EHATALIYSA(KAÇINCI($B$2:$B$100;$A$2:$A$100;0));(SATIR($B$2:$B$100)-MİN(SATIR($B$2:$B$100))+1);"");SATIR(1:1)));"")

197 iki başlıktada var.

 

[şehiriçi]

Tekrar Merhaba ,
Arkadaşlar yukarıdaki dosyamı revize ettim . şöyle ki A sütununda olupta D sütununda olmayanları B sütunundaki plaka verisi ile beraber G_H sütununa verdiğiniz makro ile yazdırdım . şimdi ise sıkıntım şurada ben G_H sütununa sadece K sütunundaki plakaları olanların yazılmasını istiyorum .
G_H sütununa yazılması gerenleri ayrıca renklendirdim , cevabınızı sabırsızlıkla bekliyorum şimdiden teşekkürler . revize olan ve istediğim dosya ekte

 

[Haluk]

Ekli dosyaya bakarsınız... (ADO ile çözüm)

.

 

[şehiriçi]

Haluk bey emeğinize sağlık ama benim istediğim bu değil zannedersem ben yeterince açıklayıcı olarak anlatamadım . O sebeble aşağıdaki dosyada yeniden izah etmeye çalıştım.Daha az veri ile

 

[Haluk]

Üzgünüm, ne istendiğini ben anlamadım. Bir başkası yardımcı olacaktır....

.

 

[YUSUF44]

Haluk bey emeğinize sağlık ama benim istediğim bu değil zannedersem ben yeterince açıklayıcı olarak anlatamadım . O sebeble aşağıdaki dosyada yeniden izah etmeye çalıştım.Daha az veri ile

Sayın Haluk Bey'in de belirttiği gibi anlaşılması zor. Çünkü örnek diye belirttiğiniz dosyada tüm sütunlarda aynı veriler var. Sonuç olarak istediğiniz ve asıl verilerde olup da seçilenlerde olmadığını belirttiğiniz L sütunundaki 42 GBC 01, 42 GBC 04, 42 GBC 05 ve 42 GBC 25 plakaları hem seçilenler dediğiniz G sütununda, hem asıl veriler dediğiniz D sütununda hem de kriter dediğiniz A sütununda varlar. Bu işte bir yanlışlık yok mu?

 

[Haluk]

Sanırım olayı anladım gibi.....

Dosya ektedir....

.

 

[ÖmerFaruk]

@Haluk beyin ilk dosyasında bir değişiklik yaptım.

Edit: Yazarken sanırım cevap gelmiş.

 

[şehiriçi]

Emek verip benim için istediğim kodu yazdınız Haluk bey tam istediğim gibi ancak ne var ki ben projeme aktaramadım ,siz ado ile yazıyorsunuz ben ado anlamıyor yinede çok teşekkür ederim.
Ancak tablonuza bakarak Başlık1,Başlık2...verdiğiniz bu başlıkları projemdeki sütunlara kopyaladım bir bakarsanız sizide yoruyorum ama konuya artık hakimsiniz. Olursa benim için çok değerli bir bilgi olmazsa da canınız sağolsun

 

[şehiriçi]

ekli dosyam

 

[Haluk]

Dosyanız...

.

 

[şehiriçi]

kod çalışmıyor hocam , RS.Open da sarı yanıyor

 

[Haluk]

Muhterem, sizdeki sıkıntı nedir bilmiyorum ama isterseniz bir de ekli dosyayı deneyin....

.

 

[şehiriçi]

Haluk bey sizin gönderdiğiniz dosyayı indirip direk sizin çalıştır butonuna basınca sıkıntısız kod çalışıyor .Ama benim takip edeceğim yol şöyle , önce ben form butonuna basıyorum ve arkasından sil butonuna ardından da Kod_1 ve Kod_2 butonuna bastıktan sonra sizin çalıştır butonuna basınca , sizin kod o zaman çalışmıyor , RS.Open da sarı renk oluyor hata veriyor . saygılarımla ..

 

[Haluk]

Dosyanız...

.

 

[şehiriçi]

Haluk bey doğru sonuç 17 mesajınızdaki dosyadaki gibi olacak . son dosyanızda kod hata vermiyor ama sonuç veriler hatalı 17 mesajda doğru sonuçlar veriyor.