A ile b'yi karşılaştır, aynı olanları c'ye, farklı olanları d'ye yaz

[qwertylion]

arkadaşlar aşağıda yazan makroyu sitedeki kod arşivinden aldım ama maalesef bi kısımdan sonra eksik yazılmış yardımcı olursanız sevinirim


Sub bul()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 2).Value) = 0 Then
e = WorksheetFunction.CountA([d2:d65536]) + 1
Cells(e + 1, 4) = Cells(a, 2).Value
End If
If WorksheetFunction.CountIf(Columns(2

 

[qwertylion]

yardım lütfen

 

[ersoyalan]

Merhaba,

Makrosuz isterseniz,Örneği inceleyin.

E.ALAN

 

[qwertylion]

teşekkür ederim bu da işimi görür emeğinize sağlık

 

[Erdem Akdemir]

aşağıdaki kodu denermisiniz

Sub deneme2()
Dim say As Long
For say = 1 To [A65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("a1:a" & [A65536].End(xlUp).Row), Cells(say, 2)) > 0 Then
Cells(say, 3) = Cells(say, 2)
Else
Cells(say, 4) = Cells(say, 2)
End If
Next say
End Sub

 

[desk]

Merhaba,

Makrosuz isterseniz,Örneği inceleyin.

E.ALAN

peki iki

1şase no 2şase isim - 1şase no 2şase isim


ilk iki sütunu ikinci iki sütunla karşılaştırmaya kalktığımızda nasıl oluyor formülü.


=EĞER(EHATALIYSA(DÜŞEYARA(A2:B2;C;2;0));"";"A")

bu şekilde çalışmadı.