Listen Sadece 1 Tanesinin adı

[tactless]

Arkadaşlar...

elimde arka arkada yüzlerce sıralanmış adlar var. fakat ben içlerinden tek tek seçmek zorunda kalıyorum. Bu durumdan kurtara bilecek formül yada makrolu bişi varsa yardımcı olursanız sevinirim.

sorum ektedir.

saygılarımla.

 

[Ömer]

Merhaba,

Linki inceleyiniz..

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[tactless]

süpersiniz...

 

[Orion1]

Makrolu bir örnekte benden.

Sub mukerrer()
Dim a(), sat As Long, i As Long, z As Object
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
Set z = CreateObject("Scripting.Dictionary")
a = Range("L2:L" & Cells(65536, "L").End(xlUp).Row).Value
For i = LBound(a, 1) To UBound(a, 1)
     If Not z.exists(a(i, 1)) Then z.Add a(i, 1), Nothing
Next i
Range("A2").Resize(z.Count, 1) = Application.Transpose(z.keys)
Application.ScreenUpdating = True
MsgBox "Mükerrer olmayan kayıtlar çıkarıldı.", vbOKOnly + vbInformation, Application.UserName
End Sub