Soru VERİ ANALİZİ

[ozcanya]

Merhaba arkadaşlar;
ekli dosyada yapmak istediğim işlem A sütunundaki bölümlerin yatan hasta veya günübirlik olarak yapmış oldukları ameliyat gruplarına göre (C sütunu) yanda bulunan tabloya göre sıralamak.
örnek dosya ektedir.

 

[ÖmerFaruk]

1. Verdiğiniz dosyadaki yandaki tablo dediğiniz alanda rakamların nasıl oluştuğunu anlamadım.
Üroloji yatan B grubunda F2:F6 arası toplamı 59 iken tablonuzd abu sayı 55 gözüküyor.
2. Ayrıca F sütununda metin formatında sayılarınız var.
3. Sorunuzu KOD bölümünde sormuşsunuz ancak formülle de çözülebilecek bir dosyanız var. VBA ile çözmek isteidğinize emin misiniz?

 

[veyselemre]

Sub test()
    Dim veri, i&, bolum$, grp$, sira%, y, ver
    veri = Range("A2:F" & Cells(Rows.Count, 1).End(3).Row).Value
    
    Range("I2:Q" & Rows.Count).ClearContents
    
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(veri)
            bolum = veri(i, 1)
            grp = veri(i, 2) & "|" & veri(i, 3)
            Select Case grp
                Case "Yatan|A GRUBU": sira = 2
                Case "Yatan|B GRUBU": sira = 3
                Case "Yatan|C GRUBU": sira = 4
                Case "Günübirlik|C GRUBU": sira = 5
                Case "Yatan|D GRUBU": sira = 6
                Case "Günübirlik|D GRUBU": sira = 7
                Case "Yatan|E GRUBU": sira = 8
                Case "Günübirlik|E GRUBU": sira = 9
            End Select
            If .exists(bolum) Then
                y = .Item(bolum)
                y(1, sira) = y(1, sira) + Val(veri(i, 6))
                .Item(bolum) = y
            Else
                ReDim w(1 To 1, 1 To 9)
                w(1, 1) = bolum
                w(1, sira) = veri(i, 6)
                .Item(bolum) = w
            End If
        Next i
        ver = Application.Index(.items, 0, 0)
    End With
    Range("I2:Q2").Resize(UBound(ver)).Value = ver
End Sub

 

[ozcanya]

1. Verdiğiniz dosyadaki yandaki tablo dediğiniz alanda rakamların nasıl oluştuğunu anlamadım.
Üroloji yatan B grubunda F2:F6 arası toplamı 59 iken tablonuzd abu sayı 55 gözüküyor.
2. Ayrıca F sütununda metin formatında sayılarınız var.
3. Sorunuzu KOD bölümünde sormuşsunuz ancak formülle de çözülebilecek bir dosyanız var. VBA ile çözmek isteidğinize emin misiniz?

Ömer bey teşekkür ederim. Formülde olur. Daha kolay olur düşündüm. onu da diğer bölümde lazım olursa yardım talep ederim. kolay gelsin..

 

[ozcanya]

merhabalar; arkadaşlar excelde örnek olarak sütün (w1:w1000) arasında bulunan A3,A2.B,C,D,E grupları ayrı ayrı toplamlarını başka sayfaya veri olarak almak istiyorum.Tabloda veri süz yaptığımda ki verileri alsın istiyorum.teşekkür ederim
örnek olarak
A3 220
A2 300
B 260
C 340
D 400
E 400

 

[Korhan Ayhan]

Excelin Özet Tablo özelliğini kullanarak hızlı bir şekilde bu toplamlara ulaşabilirsiniz.