iki sütunu karşılaştırmak

[zeze]

değerli arkadaşlar
örneğin A sütünu ve B sütununda bulunan yazıların aynı olanlarını C sütuna nasıl yazdırırım
yani A ve B 'deki ortak olanları C ye yazdıracağım
teşekürler.

 

[Korhan Ayhan]

Merhaba,

A1 = ALİ
B20 = ALİ

İse bu sizin için ortak verimidir? Yoksa veriler aynı satırlardamı olmak zorunda?

 

[zeze]

Merhaba,

A1 = ALİ
B20 = ALİ

İse bu sizin için ortak verimidir? Yoksa veriler aynı satırlardamı olmak zorunda?

evet dostum
A1=ALİ
B20= ALİ
ortak veri,
bunu C ye yazdıracağım...
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub ORTAK_VERİLER()
    Dim Veri As Range, Satır As Long
    
    Range("C:C").ClearContents
    Satır = 1
    
    For Each Veri In Range("A1:B1000")
        If Veri.Text <> "" Then
            Select Case Veri.Column
                Case 1
                    If WorksheetFunction.CountIf(Range("B:B"), Veri.Text) > 0 Then
                        If WorksheetFunction.CountIf(Range("C:C"), Veri.Text) = 0 Then
                            Cells(Satır, 3) = Veri.Text
                            Satır = Satır + 1
                        End If
                    End If
                Case 2
                    If WorksheetFunction.CountIf(Range("A:A"), Veri.Text) > 0 Then
                        If WorksheetFunction.CountIf(Range("C:C"), Veri.Text) = 0 Then
                            Cells(Satır, 3) = Veri.Text
                            Satır = Satır + 1
                        End If
                    End If
            End Select
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[zeze]

çalıştı dostum çok teşekkür ederim...