Bir Sütunda Kaç Farklı Veri Olduğunu Nasıl Bulurum.

[şeyşey1]

Arkadaşlar bir sütunda kaç farklı veri olduğunu nasıl bulabilirim.

aşağıdaki kodu buldum ama kod falan diyor bu kodu nereye nasıl uygulayacağım

[vb:1:67e8f6d2b8]Sub say()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & a), Cells(a, 1)) = 1 Then c = c + 1
Next
MsgBox c
End Sub[/vb:1:67e8f6d2b8]


Örneğin. aşağıda kaç farklı veri olduğunu nasıl bulabilirim. 100

100
100
100
101
502
502
502
503
505
506
509
509
509
654
655
655
656
656
656
695
695

 

[Ali]

Makroya gerek yok.

Verileriniz A1:A1000 aralığında olsun.

Sonuç göreceğiniz hücreye

=TOPLA.ÇARPIM((A1:A1000<>"")/EĞERSAY(A1:A1000;A1:A1000&""))

yazınız.

TOPLA.ÇARPIM=SUMPRODUCT
EĞERSAY=COUNTIF

.

 

[S.Yiğit]

Merhaba,

Sn. Ali bey çözümü vermiş.

 

[şeyşey1]

Kardeş Allah razı olsun. Çok teşekkür ederim.

 

[Orion1]

Ali hocam,
Yine konuşturmuşsunuz fonksiyonları.

 

[estamemuchoo]

Flight N Flight Leg Flight STAD
TK 2105 Geliş 01 Oca 2012 01:35:00
TK 2105 Geliş 01 Oca 2012 04:25:00
TK 2109 Gidiş 02 Oca 2012 06:15:00
TK 2117 Gidiş 03 Oca 2012 08:00:00
TK 2126 Geliş 03 Oca 2012 09:05:00
TK 2134 Geliş 03 Oca 2012 10:05:00
TK 2139 Gidiş 04 Oca 2012 11:50:00
TK 2142 Geliş 04 Oca 2012 12:05:00
TK 2146 Geliş 05 Oca 2012 13:05:00
TK 2150 Geliş 06 Oca 2012 14:05:00
TK 2152 Geliş 07 Oca 2012 15:15:00
TK 2152 Geliş 07 Oca 2012 16:05:00

yukarıda ali bey in verdiği komuta göre filght N sutununu saydırabiliyorum lakin benim istediğim aynı günde olan mesela 2105 leri tek sayması yanı sutunda uçuş numaralarını sayarken aynı gün olan uçuş numaralarını tek sayması
yukarıdaki komut sadece verilen sutunun için de kaç farklı değer olduğu ile ilgili
bir if kmoutu gerek ama kafa basmadı işte

teşekkürler şimdiden