Soru EXCEL DE SÜTUNDAKİ YİNELENEN DEĞERLERİ SAYMA

[ahmetcan782]

Arkadaşlar Merhaba,
Daha önce forumu araştırmama rağmen ne makrolar işe yaradı ne de pivot tablo . Bende buna istinaden yeni konu açıp dosyamı göndermek istedim .
Arkadaşlar bir sütunda mesela 3,4,1 gbi sayılar yazıyor ben bu sütünda kaç tane 3 kaç tane 4 olduğunu nasıl öğrenirim. Fakat eğer formüllerinde falan benim hangi sayısının
yinelenme değerini öğrenmek istiyorsam onu yazmam gerekiyor ama bu çok zor olur çünkü nerden baksanız bir sütunda 30 çeşit rakam var ve ben bunların her biri için formül yazarsam zorlanırım. Sizden ricam belirli bir sayı yazmadan yinelenen tüm sayıları sayıp bana mesela A6 da 3 ü gösterip A7 kaç tane olduğunu yazabilecek bir makro ya da formül var mı?

Şimdiden teşekkür ederim .

aşagıda örneklemeye çalıştım.


A1 A6 A7

3 5 3
4 3 3
5 4 2
6
5
5
4
3
3

 

[ÖmerBey]

Merhaba,
Öncelikle foruma hoş geldiniz. Sorularınızı örnek dosya ile desteklerseniz daha hızlı ve doğru cevaplar alabilirsiniz.
Rakamların A sütununda olduğunu varsayarsak aşağıdaki kodu deneyiniz..

Sub kod()
Set s = CreateObject("Scripting.Dictionary")
For a = 1 To Cells(Rows.Count, "A").End(3).Row
    If s.exists(Cells(a, "A").Value) Then
        s(Cells(a, "A").Value) = s(Cells(a, "A").Value) + 1
    Else
        s.Add Cells(a, "A").Value, 1
    End If
Next
Range("B1").Resize(s.Count).Value = Application.Transpose(s.keys)
Range("C1").Resize(s.Count).Value = Application.Transpose(s.items)
End Sub

 

[relaxim]

Merhaba,
İstediğiniz böyle bir şey mi?

 

[Merhum İdris SERDAR]

.

Örnek dosya burada.

Pivot Table - Özet Tablo ile yapılmıştır.

İndir SAY

Dosyayı indir SAY

dosya.co

.

 

[relaxim]

Dosya indirme linki

http://www.filedropper.com/kitap1

 

[ahmetcan782]

Hepinizi çok çok teşekkür ederim üstadlar. K. Bakmayin forumda yeni olduğum için örnek dosyayi nasil göndereceğimi bilemedim. Insallah onu da öğrenirim. Smdi cevaplarınızi deneyip size geri dönüş sağlayacağım. Saygılarımla.

 

[ahmetcan782]

Merhaba,
Öncelikle foruma hoş geldiniz. Sorularınızı örnek dosya ile desteklerseniz daha hızlı ve doğru cevaplar alabilirsiniz.
Rakamların A sütununda olduğunu varsayarsak aşağıdaki kodu deneyiniz..

Sub kod()
Set s = CreateObject("Scripting.Dictionary")
For a = 1 To Cells(Rows.Count, "A").End(3).Row
    If s.exists(Cells(a, "A").Value) Then
        s(Cells(a, "A").Value) = s(Cells(a, "A").Value) + 1
    Else
        s.Add Cells(a, "A").Value, 1
    End If
Next
Range("B1").Resize(s.Count).Value = Application.Transpose(s.keys)
Range("C1").Resize(s.Count).Value = Application.Transpose(s.items)
End Sub

.

Örnek dosya burada.

Pivot Table - Özet Tablo ile yapılmıştır.

İndir SAY

Dosyayı indir SAY

dosya.co

.

Dosya indirme linki

http://www.filedropper.com/kitap1

Arkadaşlar hepinizde tam olarak istediğim şeyi yapmışsınız. Cok teşekkür ederim hepinize. Elinize emeğinize sağlık. Saygılarımla.

 

[ahmetcan782]

Merhaba,
Öncelikle foruma hoş geldiniz. Sorularınızı örnek dosya ile desteklerseniz daha hızlı ve doğru cevaplar alabilirsiniz.
Rakamların A sütununda olduğunu varsayarsak aşağıdaki kodu deneyiniz..

Sub kod()
Set s = CreateObject("Scripting.Dictionary")
For a = 1 To Cells(Rows.Count, "A").End(3).Row
    If s.exists(Cells(a, "A").Value) Then
        s(Cells(a, "A").Value) = s(Cells(a, "A").Value) + 1
    Else
        s.Add Cells(a, "A").Value, 1
    End If
Next
Range("B1").Resize(s.Count).Value = Application.Transpose(s.keys)
Range("C1").Resize(s.Count).Value = Application.Transpose(s.items)
End Sub

Bu arada hoşbuldum Ömer Bey. Sağolun