Aynı olanlar

[nadirornek]

A ve B sutununda aynı olan verileri C sutununda nasıl gösterebiliriz.

 

[Skorpiyon]

Sayın nadirornek,

Örnek bir dosya eklerseniz, kendi çalışmanıza uygulamanız daha kolay olur.

 

[nadirornek]

http://www.dosyaupload.net/download.php?file=595936

 

[Skorpiyon]

Sayın nadirornek,

Aşağıdaki kodu bir butona atayınız.

Sub Düğme1_Tıklat()
Dim a, b As Long
b = 1
30
For a = 1 To 65536
If Cells(b, 1).Value = Cells(a, 2).Value Then Cells(b, 1).Copy Range("C65536").End(xlUp).Offset(1, 0)
If Cells(a, 2).Value = "" Then GoTo 10
Next a
10
b = b + 1
If Cells(b, 1).Value = "" Then GoTo 20
GoTo 30
20
MsgBox "İşlem Tamam"
Range("A1").Select
End Sub

 

[Skorpiyon]

Sayın nadirornek,

Örnek olması açısından EK'teki dosyayı da inceleyebilirsiniz.

 

[nadirornek]

Teşekkürler güzel bir çalışma oldu emeğinize sağlık
sevgi ve saygılarımla