Sütun içeriği

[gehlen]

Sütun içeriği değerlendirme

A ve B sütununda bulunan sayıları karşılaştırıp

1.Hem A hem B sütununda bulunan sayıları C sütununa,
2.Sadece A sütununda bulunup da B sütununda bulunmayanları D sütununa,
3.Sadece B sütununda bulunup da A sütununda bulunmayanları E sütununa yazdırmak istiyorum.

Aşağıda örneğini verdim. Teşekkürler şimdiden.

 

[leumruk]

Merhaba,

Sub Ayir()
Sut = 2
Range(Cells(1, 3), Cells(65536, 5)).ClearContents
Application.ScreenUpdating = False
For i = 1 To 2
For x = 1 To Cells(65536, i).End(3).Row
Say = WorksheetFunction.CountIf(Range(Cells(1, Sut), Cells(Cells(65536, Sut).End(3).Row, Sut)), Cells(x, i))
If Say > 0 And i = 1 Then
Sat = Cells(65536, i + 2).End(3).Row + 1
Cells(Sat, i + 2) = Cells(x, 1)
ElseIf Say = 0 Then
Sat = Cells(65536, i + 3).End(3).Row + 1
Cells(Sat, i + 3) = Cells(x, i)
End If
Next
Sut = Sut - 1
Next
End Sub

 

[Mehmet Şahin]

Dosyayı incelermisiniz, kolay gelsin.

 

[Mehmet Şahin]

leumruk arkadaşın çözümü daha pratik, teşekkürler.

 

[gehlen]

Teşekkür ederim macroda 65136 sayılarını çoğaltınca sorunum çözüldü.

İLGİNİZE TEŞEKKÜR EDERİM BÜYÜK BİR İŞTEN KURTULDUM