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

Katılım
7 Aralık 2011
Mesajlar
4
Excel Vers. ve Dili
Office 2016 TR - Win10 x64
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
örnek dosya ekleyebilirseniz iyi olur.:cool:
 
Katılım
7 Aralık 2011
Mesajlar
4
Excel Vers. ve Dili
Office 2016 TR - Win10 x64
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.
 

Ekli dosyalar

Katılım
22 Ocak 2012
Mesajlar
43
Excel Vers. ve Dili
2007 türkçe
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
 

Ekli dosyalar

Katılım
22 Ocak 2012
Mesajlar
43
Excel Vers. ve Dili
2007 türkçe
[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
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:


Kod:
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.
 

Ekli dosyalar

Katılım
22 Ocak 2012
Mesajlar
43
Excel Vers. ve Dili
2007 türkçe
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
 
Katılım
22 Ocak 2012
Mesajlar
43
Excel Vers. ve Dili
2007 türkçe
çokmu zor benim istediğim kimse konu hakında bilgi vermiyorrr
 
Katılım
7 Aralık 2011
Mesajlar
4
Excel Vers. ve Dili
Office 2016 TR - Win10 x64
çok teşekkür ederim, oldu galiba.. makro kullanmamıştım hiç.
Bunu pivot table ile de yapabilir miyim peki?
 
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Teşekkürler sayın Orion1.
 
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
sn. orion teşekkür ederim bende kullanıyorum.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
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.:cool:


Kod:
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.
 
Üst