hücre aralığı isimleri saymak

[ozcanya]

A1:A1000 aralığında Tc. yada isim soy isim saymak istiyorum ama benzer Tc. ler ve isimler sadece 1 tane sayılacak, rica etsem yardım edermisiniz?

 

[Korhan Ayhan]

Deneyiniz.

DİZİ formüldür.

=BAĞ_DEĞ_SAY(1/SIKLIK(EĞER(A1:A1000<>"";KAÇINCI(A1:A1000;A1:A1000;0));SATIR(A1:A1000)))

 

[ozcanya]

Korhan bey örnek dosya ekledim. Rica etsem bakarmısınız?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

DİZİ formül olarak uygulayınız.

=BAĞ_DEĞ_SAY(1/SIKLIK(EĞER(A2:A1000<>"";KAÇINCI(A2:A1000;A2:A1000;0));SATIR(A2:A1000)-1))

 

[Korhan Ayhan]

Ek olarak dosyadaki bilgiler gerçekse lütfen forum altyapısından kaldırınız.

 

[ozcanya]

çok teşekkür ederim.Bilgiler uydurma isim ve tc ben yine kaldırdım.kolaylık dilerim...
Korhan bey bir istatistik çalışması yapıyorum.son olarak yapmam gereken 2 excel dosyası yan yana açtığımda farklı olan isimleri başka bir sayfaya aktarmasıdır. Bu koşullu biçimde olabilir veya sizin uygun gördüğünüz başka bir yöntemde olabilir...

 

[Korhan Ayhan]

Makro ile olabilir..

 

[ozcanya]

Deneyiniz.

DİZİ formüldür.

=BAĞ_DEĞ_SAY(1/SIKLIK(EĞER(A1:A1000<>"";KAÇINCI(A1:A1000;A1:A1000;0));SATIR(A1:A1000)))

korhan bey daha önce yaptığımız bu çalışmayı makro ile çözebilir misiniz? rica etsem.(B1:B5000 arası isimleri olan ve c1:c:5000 tc ) arası isimleri tek kişi olarak sayması veya çift kişileri silmesi böylece toplam kişi sayısını bulmak istiyorum

 

[Korhan Ayhan]

Silmekten kastınız satırı tamamen silmek mi?

Yok sa satırlar duracak sayarken yokmuş gibi mi davranacak?

 

[ozcanya]

Silmekten kastınız satırı tamamen silmek mi?

Yok sa satırlar duracak sayarken yokmuş gibi mi davranacak?

Evet satırı tamamen silmek..

 

[Korhan Ayhan]

Profilinizde yazan excel sürümü bilgisi güncel mi? Değilse hangi sürümü kullanıyorsunuz?

 

[ozcanya]

Profilinizde yazan excel sürümü bilgisi güncel mi? Değilse hangi sürümü kullanıyorsunuz?

excel 2016. işyeri bilgisayarı

 

[Korhan Ayhan]

Bu durumda VERİ menüsünde bulunan YİNELENENLERİ KALDIR seçeneğini kullanarak tekrar eden satırları silebilirsiniz.

Makro kullanmak isterseniz örnek dosyanıza göre aşağıdaki kodu kullanabilirsiniz. Bu kod eski sürümlerde çalışmayacaktır.

Option Explicit

Sub Remove_Duplicates()
    Range("B2:C" & Cells(Rows.Count, 2).End(3).Row).RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
    MsgBox "Tekrar eden kayıtları silinmiştir.", vbInformation
End Sub