hücre sıralama

[tedies]

abiler elimde 40000 kişilik hasta listesi var bir kişinin birden fazla müracaatı var alfabetik sıralamada bir kişinin hastaneye kaç kez müracaat ettiğini bulabiliyorum ama benden istenen en fazla müracaat eden kişileri nasıl sıralayabilirim ençok dan en aza... şimdiden çok teşekkür ederim

 

[Orion1]

İsimler hangi sütunda?ve Hangi sütunlara sıralanacak?

 

[tedies]

ben sırası ile mevcu sütünları yazayam abi
muayene tarihi,protokol no, hasta adı, soyadı, muayene oldugu branş.

adı veya soyadı sütununa göre sıralanabilir..

 

[Orion1]

ben sırası ile mevcu sütünları yazayam abi
muayene tarihi,protokol no, hasta adı, soyadı, muayene oldugu branş.

adı veya soyadı sütununa göre sıralanabilir..

Hasta adı ve soyadı ayrı sütundalarmı?Ve hangi sütundalar?

 

[tedies]

hasta adı ve soyadı ayrı sütündalar abi
hasta adı:d
soyadı:e



dosyayı buraya koydum abi...

 

[Orion1]

Bu dosyayı silin.Burada kişilerin şahsi bilgileri var.Ben dosyayı size email atarım.

 

[Orion1]

Tamam ben sildim.

 

[tedies]

sildim abi çok teşekkür ederim... sağolun...

 

[Orion1]

Dosyanız hazır.
Özel mesajdan bana email adresinizi yazın dosyanızı yollayım.

Sub listele()
Dim a, z As Object, i As Long, isim As String
Set z = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
With Sheets("EİÜAÜ")
    a = .Range("D2:E" & .Cells(65536, "D").End(xlUp).Row)
    For i = LBound(a, 1) To UBound(a, 1)
        isim = a(i, 1) & " " & a(i, 2)
        If Not z.exists(isim) Then
            z.Add isim, 1
            Else
            z.Item(isim) = z.Item(isim) + 1
        End If
    Next i
End With
Range("B2:C65536").ClearContents
Range("B2").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Range("B2:C65536").Sort key1:=Range("C2"), order1:=xlDescending, key2:=Range("B2")
Application.ScreenUpdating = True
MsgBox "Sıralama yapıldı."
End Sub