Aynı uyrukların toplam değerlerini aldırtma

[ftoy30]

Merhaba,ekli dosyada uyrukların ay ay ve yaşlara göre dağılımı bulunmaktadır.Yapmak istediğim tüm aylardaki bu verilerin uyruk ve yaş dağılımlarına göre genel toplamını almak.Mesela Arnavutluk bi kaç ayda var.bunların genel toplamını almak.şimdiden yardımlarını tşk ederim.

 

[Orion1]

Dosyanız ektedir..

Option Base 1
Sub mukerer_toplama_59()
Dim z As Object, i As Long, sat As Long, myarr(), n As Long, k As Integer
Dim uyruk As String, liste(), deg
Sheets("Page 1").Select
sat = Cells(65536, "B").End(xlUp).Row
Range("M5:V65536").ClearContents
If sat < 5 Then Exit Sub
Set z = CreateObject("Scripting.Dictionary")
ReDim myarr(1 To 10, 1 To sat)
liste = Range("B5:K" & sat).Value
For i = 1 To UBound(liste, 1)
    uyruk = UCase(Replace(Replace(liste(i, 1), "i", "İ"), "ı", "I"))
    If Not z.exists(uyruk) Then
        n = n + 1
        z.Add uyruk, n
        myarr(1, n) = liste(i, 1)
    End If
    For k = 2 To 10
        If IsNumeric(liste(i, k)) Then myarr(k, z.Item(uyruk)) = (myarr(k, z.Item(uyruk)) * 1) + liste(i, k)
    Next
Next
Set z = Nothing
Application.ScreenUpdating = False
Range("M5").Resize(UBound(myarr, 2), 10) = Application.Transpose(myarr)
Application.ScreenUpdating = True
Erase myarr
MsgBox "İşlem Tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[ftoy30]

İlginize teşekkür ederim ama YAS45 satırı toplama işlemi yapmıyor gibi görünüyor.Ayrıca birçok satırdaki toplama değerleri 8,13312E+14 şeklinde görünüyor.Tekrar inceleyebilirseniz sevinirim.Teşekkürler..

 

[Orion1]

İlginize teşekkür ederim ama YAS45 satırı toplama işlemi yapmıyor gibi görünüyor.Ayrıca birçok satırdaki toplama değerleri 8,13312E+14 şeklinde görünüyor.Tekrar inceleyebilirseniz sevinirim.Teşekkürler..

Ama s sütununh gizlemişsiniz ki.
ben nereden bilecem s sütüunu gizlendiğini.Oradki görünen sütunları aldım döngüye girip çalıştırdım.
Bunu söylemeniz lazımdı.Onu yaptım.
Diğer konuya gelince
niye hücrelere sayıları metin şeklinde katdetdiniz.
Anlamadım doğrusu.Sayılarınız metin biçiminde.
Onu da hallettim.

 

[ftoy30]

Teşekkür ederim. Ekteki liste direk sistemden alınmış bir liste.Sistem bu şekilde veriyor.Yeni ben üzerinde özel bir oynama filan yapmadım.Tekrar tşk ederim.