İki ayrı sayfadaki isim listesini tek liste haline getirmek

[Orion1]

Selamlar,
Hocam mükerrer olanları da listeliyor.

Saygılar

Ben a sütununu sorgulamışım yanlışlıkla.Şimdi düzelttim.B sütununu sorgulayarak yaptım.
Aşağıdaki kodları deneyiniz.

Sub mukerrer()
Dim sat As Long, i As Long
Range("C2:C65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("B2:B" & i), Cells(i, "B").Value) = 1 Then
        Cells(sat, "C").Value = Cells(i, "B").Value
        sat = sat + 1
    End If
Next i
MsgBox "işlem tamam"
End Sub

 

[Mdemir63]

Ben a sütununu sorgulamışım yanlışlıkla.Şimdi düzelttim.B sütununu sorgulayarak yaptım.
Aşağıdaki kodları deneyiniz.

Sub mukerrer()
Dim sat As Long, i As Long
Range("C2:C65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("B2:B" & i), Cells(i, "B").Value) = 1 Then
        Cells(sat, "C").Value = Cells(i, "B").Value
        sat = sat + 1
    End If
Next i
MsgBox "işlem tamam"
End Sub

Selamlar,

Evren hocam emeğinize sağlık . Çok teşekkür ederim
Saygılar

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[mehmethoca]

10. mesajdaki komutan63 isimli dosya hk

bu makro ile ilgili olarak

sayfa sayısını arttırıp 10 sayfa(bir klasör içine kopyalanmış dosyalar da olabilir ) 2.satırdan başlayıp C sütunundaki numarları baz alarak mükerrerler renklendirilerek komple satırın çekilmesiyle liste oluşturmak mümkün olabilirmi ?

emeğinize şimdiden teşekkür ederim

 

[Necdet]

bu makro ile ilgili olarak

sayfa sayısını arttırıp 10 sayfa(bir klasör içine kopyalanmış dosyalar da olabilir ) 2.satırdan başlayıp C sütunundaki numarları baz alarak mükerrerler renklendirilerek komple satırın çekilmesiyle liste oluşturmak mümkün olabilirmi ?

emeğinize şimdiden teşekkür ederim

Küçük örnek bir dosya ekler misiniz?