FArklı sayfalardan sıralı veri toplam

[rtk19641990]

Merhaba,
Sitedeki üstatlar konu ile ilgili yardımcı olmuşlardı. Ancak dosyaya B kolonuna Adı şeklinde bir kolon ekledim. Mevcut kodu da kendimce değiştirebilmeye çalıştım ancak D sayfasına aktarırken Adı kolonu bilgilerini getiremiyorum.

Yardımlarınızı rica ederim.

iyi çalışmalar.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub OzetAl()
    
    Dim d As Object, k As Integer, i As Long, deg, s(), a1
    Dim sat As Long, j As Byte
 
    Application.ScreenUpdating = False
    Sheets("D").Select
 
    Rows("2:" & Rows.Count).ClearContents
 
    Set d = CreateObject("Scripting.Dictionary")
 
    For k = 1 To Worksheets.Count
        With Sheets(k)
            If .Name <> "D" Then
                For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
                    deg = .Cells(i, "A")
                    If Not d.exists(deg) Then
                        ReDim s(1 To 12)
                        For j = 1 To 12
                            s(j) = .Cells(i, j)
                        Next j
                        d.Add deg, s
                    Else
                        s = d.Item(deg)
                        For j = 3 To 12
                            s(j) = s(j) + .Cells(i, j)
                        Next j
                        d.Item(deg) = s
                    End If
                Next i
            End If
        End With
    Next k
 
    a1 = d.items: sat = 2
 
    For i = 0 To d.Count - 1
        s = a1(i)
        For j = 1 To 12
            Cells(i + sat, j) = s(j)
        Next j
    Next i
 
    Cells.EntireColumn.AutoFit
    Set d = Nothing
 
End Sub

.

 

[rtk19641990]

Teşekkür ederim ama Ülke Koduna göre sıralı gelmedi

 

[rtk19641990]

Tamam hallettim tekrar teşekkürler