A sütununda olup da B sütununda olmayan?

[numb999]

arkadaşlar
A ve B olmak üzere 2 sütun var. A sütununda olup da B sütünüde olmayan değerleri nasıl bulabilirim.
mümkünse çözüp bir de açıklamasını yaparsanız çok sevinirim.
saygılar.

 

[Ali]

Ekteki örneği inceleyiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.Formüllerle yapıldı.

 

[Orion1]

Ali hocam kusura bakmayın sizin yolladığınız cevabı görmedim.
Yoksa sizin formülünüzün üstüne formül yazmak haddime değil.

 

[Ali]

Ali hocam kusura bakmayın sizin yolladığınız cevabı görmedim.
Yoksa sizin formülünüzün üstüne formül yazmak haddime değil.

Estagfirullah öyle şey düşünmeyin Evren Bey. Sizin gibi yardımsever dostlarımın çözümleri çok kişiye yardımcı olmuştur.

 

[İdris SERDAR]

arkadaşlar
A ve B olmak üzere 2 sütun var. A sütununda olup da B sütünüde olmayan değerleri nasıl bulabilirim.
mümkünse çözüp bir de açıklamasını yaparsanız çok sevinirim.
saygılar.

Bir örnekte benden.

.

 

[numb999]

ali bey çok teşekkür ederim. çok makbule geçti. fakat formulün mantığını ve açıklamasını da yapmanız mümkünmü. bir daha böyle bir sorun olduğunda tekrar buraya yazıp kalabalık etmek istemem. yani bu konuda bana buğday vermeyip buğday yetiştirmeyi öğretebilirimisiz.
saygılar.

 

[karadami]

bu orneği macro kullanarak for next döngüsü ile çözmek mümkünse kodları yazabilir misiniz?

ben iç içe 2 for next döngüsü ile yapmaya çalıştım fakat beceremedim

 

[Korhan Ayhan]

Selamlar,

Sn. karadami,

Aşağıdaki kod A sütununda olup da B sütununda olmayan değerleri D sütununa listeler.

1) For-next döngüsü içinde EĞERSAY fonksiyonu kullanılarak yapılmıştır.

Sub A_SÜTUNUNDA_OLUP_B_SÜTUNUNDA_OLMAYANLAR()
    [D2:D65536].Clear
    Satır = 2
    For X = 2 To [A65536].End(3).Row
    If WorksheetFunction.CountIf([B:B], Cells(X, "A")) = 0 Then
    Cells(Satır, "D") = Cells(X, "A")
    Satır = Satır + 1
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

2) For-next döngüsü içinde FIND komutu kullanılmıştır. İlk koda göre daha hızlı çalışır.

Sub A_SÜTUNUNDA_OLUP_B_SÜTUNUNDA_OLMAYANLAR()
    [D2:D65536].Clear
    Satır = 2
    For X = 2 To [A65536].End(3).Row
    Set BUL = [B:B].Find(Cells(X, "A"), LookAt:=xlWhole)
    If BUL Is Nothing Then
    Cells(Satır, "D") = Cells(X, "A")
    Satır = Satır + 1
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[karadami]

Sayın Korhan hocam teşekkür ederim. benim asıl merak ettiğim şey

for i=1 to sona
for y= 1 to sonb
if cells(sona,"A")=cells(sonb,"B") then cells(sond,"D")=cells(sona,"A")
sond=sond+1
next
next

şeklinde bir şey yapmak.
bu şekilde 2 sütunda olanları ve her sütünda sadece 1 kere geçenleri bulmak mümkün müdür ?

 

[numb999]

teşekkür ederim arkadaşlar analmadım ama genede teşekkür ederim zahmet edip cevap yazdığınız için. ben daha basit yolu var sanıyordum ama meğer yokmuş. ben eğer ve eğersay karışımı bir formülle çözülür sanmıştım.

saygılar.

 

[Korhan Ayhan]

Selamlar,

Sn. karadami,

Ben size en kısa çözümleri önermiştim. Israrla iç içe döngülerle çözüm istediğiniz için (kullanmanızı tavsiye etmiyorum) ekteki örnek dosyayı hazırladım. Bu şekilde döngü kullanımı çok satırlı verilerde işlem süresini uzatacağından size sıkıntı verecektir.

Umarım aradığınız çözümü ekteki dosyada bulabilirsiniz.

 

[numb999]

teşekkürler ama makro girince işin içine biraz karıştı. daha kolayını buldum. basit düşeyara ile.