Hangi veriden kaç tane var

[frhtky]

öncelikle merhaba
ben excel ve macro konusunda acemi olduğum için şöyle bir sorunla karşılaştım, yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim...

Sorun şu ki:
1) ekteki tabloda girilen farklı verilerden her birisinden kaç tane var?
2) bu farklı veriler 3 tane olunca 3 satırı, 10 tane olunca 10 satırı otomatik oluşturacak bir macro veya formül arıyorum...

Tekrar teşekkürler...

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub say_59()
Dim z As Object, sat As Long, i As Long, list(), sh As Worksheet
Dim deg As Long, myarr()
Sheets("Sayfa2").Select
Set sh = Sheets("Sayfa1")
Application.ScreenUpdating = False
Range("A2:B65536").ClearContents
sat = sh.Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 2, 1 To sat)
If sat < 2 Then GoTo son
list = sh.Range("A2:B" & sat).Value
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(list)
    deg = list(i, 2)
    If Not z.exists(deg) Then
        n = n + 1
        z.Add deg, n
        myarr(2, n) = list(i, 2)
    End If
    myarr(1, z.Item(deg)) = myarr(1, z.Item(deg)) + 1
Next i
Set z = Nothing
Erase list
Range("A2").Resize(n, 2) = Application.Transpose(myarr)
Erase myarr
Range("A2:B" & n + 1).Sort key1:=Range("A2"), key2:=Range("B2")
son:
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[frhtky]

yardımınız için çok teşekkür ederim,
fakat bu macro verileri sıralarken büyükten küçüğe sıralayamaz mı?

 

[Orion1]

yardımınız için çok teşekkür ederim,
fakat bu macro verileri sıralarken büyükten küçüğe sıralayamaz mı?

Sıralar elbet.
Ama isteğiniz biraz muğlak.
A sütunumu sıralanacak,B sütunumu sıralanacak,yoksa her 2 sütunmu sıralanacak?
Her 2 sütunda sıralanırsa önce hangisi sıralanacak?
Sıralanırken küçükten büyüğemi,yoksa büyükten küçüğemi sıralanacak?
Falan,falan,falan.

 

[Muhammet Okumuş]

Sn Evren Bey "kod anlatılmaz yazılır" demişsiniz ama rica etsem yazmış olduğunuz koddan
"Nothing" ifadesinin ne olduğunu kısaca açıklayabilir misiniz?

 

[frhtky]

Sıralar elbet.
Ama isteğiniz biraz muğlak.
A sütunumu sıralanacak,B sütunumu sıralanacak,yoksa her 2 sütunmu sıralanacak?
Her 2 sütunda sıralanırsa önce hangisi sıralanacak?
Sıralanırken küçükten büyüğemi,yoksa büyükten küçüğemi sıralanacak?
Falan,falan,falan.

A sütununa yani kişi sayısına göre sıralayacak,
fakat bunu butonla değilde otomatik yapması mümkün mü ?

 

[Orion1]

A sütununa yani kişi sayısına göre sıralayacak,
fakat bunu butonla değilde otomatik yapması mümkün mü ?

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirisniz.