Kapalı sayfada toplama

[igultekin2000]

iyi akşamlar; Liste1 ve Liste2 iki çalışma kitabım var. buradaki aylara göre toplamları Rapor çalışma kitabında birleştirmek istiyorum. Makro ve Excel farketmez. Daha önce yaptığım örneklere baktım çözemedim. Teşekkürler.

 

[Orion1]

iyi akşamlar; Liste1 ve Liste2 iki çalışma kitabım var. buradaki aylara göre toplamları Rapor çalışma kitabında birleştirmek istiyorum. Makro ve Excel farketmez. Daha önce yaptığım örneklere baktım çözemedim. Teşekkürler.

Dosyanız ektedir.

Option Base 1
Sub topla59()
Dim myarr(), i As Byte, j As Byte, dosya As String
ReDim myarr(1 To 12, 1 To 2)
dosya = "Liste1"
sayfa = "TOPLAM"
Range("D4:E15").ClearContents
For j = 1 To 2
    For i = 1 To 12
          myarr(i, 1) = myarr(i, 1) + Application.ExecuteExcel4Macro("'" & _
                ThisWorkbook.Path & "\[" & dosya & "]" & sayfa & "'!R" & i + 3 & "C4")
          myarr(i, 2) = myarr(i, 2) + Application.ExecuteExcel4Macro("'" & _
                ThisWorkbook.Path & "\[" & dosya & "]" & sayfa & "'!R" & i + 3 & "C5")
    Next i
    dosya = "Liste2"
    sayfa = "kumulatif"
Next j
For i = 1 To 12
    Cells(i + 3, 4).Value = myarr(i, 1)
    Cells(i + 3, 5).Value = myarr(i, 2)
Next i
End Sub

 

[igultekin2000]

Dosyanız ektedir.

Option Base 1
Sub topla59()
Dim myarr(), i As Byte, j As Byte, dosya As String
ReDim myarr(1 To 12, 1 To 2)
dosya = "Liste1"
sayfa = "TOPLAM"
Range("D4:E15").ClearContents
For j = 1 To 2
    For i = 1 To 12
          myarr(i, 1) = myarr(i, 1) + Application.ExecuteExcel4Macro("'" & _
                ThisWorkbook.Path & "\[" & dosya & "]" & sayfa & "'!R" & i + 3 & "C4")
          myarr(i, 2) = myarr(i, 2) + Application.ExecuteExcel4Macro("'" & _
                ThisWorkbook.Path & "\[" & dosya & "]" & sayfa & "'!R" & i + 3 & "C5")
    Next i
    dosya = "Liste2"
    sayfa = "kumulatif"
Next j
For i = 1 To 12
    Cells(i + 3, 4).Value = myarr(i, 1)
    Cells(i + 3, 5).Value = myarr(i, 2)
Next i
End Sub

Hızlı cevabınız için teşekkür ederim, sorunsuz çalışıyor. Hayırlı akşamlar.

 

[Orion1]

İyi akşamlar.