2 farklı sutunda aynı metni bulma

[dlukas]

ekdeki
2 farklı sutunda yazan metni,yada sayıyı,yada,karakteri
aynı olanlarını
farklı bir sutunda nasıl alt alta dizeriz

 

[Orion1]

dosyanız ektedir.

Sub ayniler59()
Dim i As Long, k As Range, sat1 As Long, sat2 As Long, sat3 As Long
Application.ScreenUpdating = False
Range("C:C").ClearContents
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = Cells(Rows.Count, "B").End(xlUp).Row
sat3 = 2
For i = 2 To sat1
    If WorksheetFunction.CountA(Range("B2:B" & sat2), Cells(i, "A").Value) > 0 Then
        Cells(sat3, "C").Value = Cells(i, "A").Value
        sat3 = sat3 + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[sakman26]

merhaba,

alternatif olarak eki inceleyiniz. Koşullu biçimlendirme ve formülle yapılmış iki çözüm bulacaksınız...

kolay gelsin...