Sütun içeriği karşılaştırma

[gehlen]

Merhaba,

A ve B sütununda bulunan sayıları karşılaştırıp hem A hem B sütununda bulunan sayıları C sütununa yazdırmak istiyorum.Ama benim için önemli olan örneğin A79 daki sayı B49 da bile olsa C sütununa yazmalı ..Teşekkürler şimdiden...

 

[gehlen]

Halen arıyorum

 

[Korhan Ayhan]

Selamlar,

Forumda bu konuyla ilgili örnekler bulunmaktadır. Sütun+karşılaştırma şeklinde arama yaparsanız ulaşabilirsiniz.

Aşağıdaki koduda kullanabilirsiniz.

Option Explicit
Sub SÜTUNLARI_KARŞILAŞTIR()
    Dim Say_A As Long, Say_B As Long, X As Long, Satır As Long, Sütun As Byte
        
    Say_A = WorksheetFunction.CountA(Columns(1))
    Say_B = WorksheetFunction.CountA(Columns(2))
        
    If Say_A > Say_B Then
        Sütun = 1
    Else
        Sütun = 2
    End If
        
    For X = 1 To Cells(65536, Sütun).End(3).Row
        If WorksheetFunction.CountIf(Columns(2), Cells(X, "A")) > 0 Then
            If WorksheetFunction.CountIf(Columns(3), Cells(X, "A")) = 0 Then
                Satır = Satır + 1
                Cells(Satır, "C") = Cells(X, "A")
            End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub