bir sütundaki birden farklı verileri saydırmak

[dreamymost]

arkadaşlar hepinize kolay gelsin B sutunu var burada

--B--
1- bilgisayar
2- bilgisayar
3- notebook
4- bilgisayar
5- notebook

seklinde gidiyor. ben sütun sonunda
toplam bilgisayar :4
toplam notebook: 2 seklinde saydırmak istiyorum bunu nasıl yaparım yardımcı olurmusunuz

 

[Necdet]

Merhaba,

Forumda Özet Tablo konusunu aratınız.

 

[İhsan Tank]

arkadaşlar hepinize kolay gelsin B sutunu var burada

--B--
1- bilgisayar
2- bilgisayar
3- notebook
4- bilgisayar
5- notebook

seklinde gidiyor. ben sütun sonunda
toplam bilgisayar :4
toplam notebook: 2 seklinde saydırmak istiyorum bunu nasıl yaparım yardımcı olurmusunuz

bilgisayarda sonuc'u nasıl 4 olarak buldunuz burada 3 tane var

="bilgisayar :"&EĞERSAY(B:B;"bilgisayar")
="notebook :"&EĞERSAY(B:B;"notebook")

şeklinde deneyiniz.

 

[dreamymost]

hocam cok teşekkürler ornekde rasgele vermiştim sagol oldu.

 

[İhsan Tank]

hocam cok teşekkürler ornekde rasgele vermiştim sagol oldu.

rica ederim
:yazici:

 

[Vedat Özer]

Selamlar,

Altarnatif olarak,

A Sütununda verilerimizin oldugunu varsayarsak ;

Vb ekranında İnsert/Modul ekleyerek aşagıdaki kodları yapıştırın,

Function Benzersiz(Aralik As Range, i As Integer)
 Application.Volatile
 Dim ciftolmayan As New Collection
 For Each ce In Aralik
  On Error Resume Next
  ciftolmayan.Add ce, CStr(ce)
 Next ce

 If i > ciftolmayan.Count Then
  Benzersiz = ""
 Else
  Benzersiz = ciftolmayan(i)
 End If
End Function

Aşagıdaki Formülü B1 Hücresine yapıştırın ve aşagıya doğru çekin,

=[COLOR="Blue"]Benzersiz[/COLOR]($A$1:$A$500;SATIR())&" "&EĞERSAY($A:$A;[COLOR="blue"]Benzersiz[/COLOR]($A$1:$A$500;SATIR()))

Kodlar alıntıdır.