Sütundaki farklı isimleri sayma

[turanb]

Arkadaşlar merhaba,

Örnek şablon ektedir.

C sütunundaki Farklı kaç adet müşteri var bunu sayıp belirlediğimiz herhangi bir hücreye yazdırmak istiyorum. Kod ekleyebilirmiyiz.

iyi çalışmalar.

 

[antonio]

Arkadaşlar merhaba,

Örnek şablon ektedir.

C sütunundaki Farklı kaç adet müşteri var bunu sayıp belirlediğimiz herhangi bir hücreye yazdırmak istiyorum. Kod ekleyebilirmiyiz.

iyi çalışmalar.

Dosyanız ektedir.

 

[omerceri]

aşağıdaki kod işe yarar sanırım.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
say = Range("A65536").End(3).Row
    Range("C3:C" & say).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "C3:C" & say), CopyToRange:=Range("L1"), Unique:=True
       Range("G3").Value = Range("L65536").End(3).Row
        Range("G4").Value = say - 2
     Columns("L:L").Delete
     Application.ScreenUpdating = True
End Sub

 

[Necdet]

Merhaba,

Fonksiyon ile çözüm işinize yarar mı?

=TOPLA(1/EĞERSAY(C3:C100;c3:c100))

Dizi formüldür, formül yazıldıktan sonra CTRL+Shift+Enter ile bitirmek gerek.

 

[turanb]

Değerli arkadaşlar yardımınız için teşekkür ederim.

Kodları tercih ettim. İkiside çalışıyor ama aralarında 1 adet fark çıkıyor. Hangisi doğru rakamı veriyorsa onu kullanıcam.

Tekrar teşekkürler. İyi Çalışmalar.