Filtrelenmiş sütunda benzersiz satır (sayı) sayısı

[duggari06]

Merhaba,
Satır saymayı, benzersiz sayıları saymayı, filtrelenmiş satırları Alttoplam 103 ile saymayı forum sayesinde öğrendim.
Ancak benim yapmak istediğim devamli olarak kayit girdigim bir çalışma sayfasında filtreleme sonucu gösterilen A sütunundaki değerlerin (değerler sıra numarası şeklinde 1,2,3,3,4,4,5... şeklinde gitmektedir) benzersizlerini adet olarak bulup sonucu bu tablonun üstünde olan A1 hücresine yazmak.

Filtre olmadığı zaman kolay ancak filtreleme işin içine girdiği zaman olmuyor, ya da filtrelemede değerlerin sayısını bulabiliyorum ama aynı değerleri de saymasını istemiyorum.

Yardımcı olabilirseniz sevinirim,
Teşekkürler.

 

[Orion1]

örnek dosya ekleyebilirseniz iyi olur.

 

[duggari06]

Ekte gönderiyorum,
Dikkat ettiyseniz A sütunundaki sıra noları bazen tekrar ediyor. Bu tekrarlananlar aynı sevk işlemi olduğu için, aynı sıra numarasını verdim.

 

[jonboys]

benim yan yana yazılı gıda ürünlerim var ayrı ayırı bakkal fiyat listesi lokanta diye gidiyor bunları tek noktadan fiyatlarını nasıl degiştire bilirim liktide ekledim burdaki ürünleri tek noktadan fiyatlarini degiştire bilirmiyimm

 

[jonboys]

[benim yan yana yazılı gıda ürünlerim var ayrı ayırı bakkal fiyat listesi lokanta diye gidiyor bunları tek noktadan fiyatlarını nasıl degiştire bilirim liktide ekledim burdaki ürünleri tek noktadan fiyatlarini degiştire bilirmiyimm

 

[jonboys]

bana yardımcı olurmusunuzzz

 

[jonboys]

kimse yokmu lütfennnn

 

[Orion1]

Dosyanız ektedir.
Formül ise
=benzersiz(Süzülen aralık)
oralak yazdım.
Bu Kullanıcı Tanımlı Fonksiyondur.Yani ben yazdım fonksiyonu.
Başka dosyalarda kullancaksanız bu fonksiyonun kodlarını alıp standart bir modüle kopyalayınız.

Function benzersiz(ByVal alan As Range)
Dim hcr As Range, z
Set z = CreateObject("Scripting.dictionary")
For Each hcr In alan
    If hcr.EntireRow.Hidden = False Then
        If Not z.exists(hcr.Value) Then
            z.Add hcr.Value, Nothing
        End If
    End If
Next hcr
benzersiz = z.Count
End Function

Merhaba,
Satır saymayı, benzersiz sayıları saymayı, filtrelenmiş satırları Alttoplam 103 ile saymayı forum sayesinde öğrendim.
Ancak benim yapmak istediğim devamli olarak kayit girdigim bir çalışma sayfasında filtreleme sonucu gösterilen A sütunundaki değerlerin (değerler sıra numarası şeklinde 1,2,3,3,4,4,5... şeklinde gitmektedir) benzersizlerini adet olarak bulup sonucu bu tablonun üstünde olan A1 hücresine yazmak.

Filtre olmadığı zaman kolay ancak filtreleme işin içine girdiği zaman olmuyor, ya da filtrelemede değerlerin sayısını bulabiliyorum ama aynı değerleri de saymasını istemiyorum.

Yardımcı olabilirseniz sevinirim,
Teşekkürler.

 

[jonboys]

benim gönderdim konu hakında kimse yardım edemezmii biri yardımcı olsa çok memun olcam yarına yetiştirmem gerekiyor hep sıkıntı çekiyorum

 

[jonboys]

çokmu zor benim istediğim kimse konu hakında bilgi vermiyorrr

 

[duggari06]

çok teşekkür ederim, oldu galiba.. makro kullanmamıştım hiç.
Bunu pivot table ile de yapabilir miyim peki?

 

[baydeniro]

Teşekkürler sayın Orion1.

 

[hsayar]

sn. orion teşekkür ederim bende kullanıyorum.

 

[Ömer BARAN]

Dosyanız ektedir.
Formül ise
=benzersiz(Süzülen aralık)
oralak yazdım.
Bu Kullanıcı Tanımlı Fonksiyondur.Yani ben yazdım fonksiyonu.
Başka dosyalarda kullancaksanız bu fonksiyonun kodlarını alıp standart bir modüle kopyalayınız.

Function benzersiz(ByVal alan As Range)
Dim hcr As Range, z
Set z = CreateObject("Scripting.dictionary")
For Each hcr In alan
    If hcr.EntireRow.Hidden = False Then
        If Not z.exists(hcr.Value) Then
            z.Add hcr.Value, Nothing
        End If
    End If
Next hcr
benzersiz = z.Count
End Function

Merhabalar Sayın GİZLEN.
Sitede arama yaparken yazdığınız bu ktf'yi gördüm.
Sanırım benim ihtiyacımı karşılayacak işlem tam olarak bu.

Test ettim, sorunsuz şekilde benzersiz sayısını tespit ediyor.
Ancak, yazdığınız ktf fiilen süzme işlemi yapıldığında işlem yapıyor.

Bu ktf'nin içine süzme işlemini dahil etmek mümkün müdür acaba?
Yani süzülecek alanı/alanları ve süzme kriterini/kriterlerini yazarak
(örneğin =benzersiz(SÜZÜLECEK ALAN1;kriter1;SÜZÜLECEK ALAN2;kriter2) gibi yazarak)
kullanacak şekilde değiştirmek mümkün müdür?
Benim ihtiyacım 3 sütunda süzme yaptıktan sonra 4. sütunda kalan benzersiz veri adetini bulmak.
Bu işlemi şu anda çok sayıda dizi formülü ile yapıyorum ama dizi formülü sayısının çokluğu
nedeniyle excel donmaya başlıyor, çok bekliyorum, bazen de sonlandırmak zorunda kalıyorum.


Sağlıcakla.