Bütün Sayfaların Toplamı

[isteobenim]

Arkadaşlar,

Ek dosyada aşağıdaki kodlar ile yapabildiğim işlemi döngü kurarak veya daha kısa şekilde nasıl yapabiliriz.


Sub Makro1()
Application.ScreenUpdating = False
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=SUM(Sayfa2!RC+Sayfa3!RC+Sayfa4!RC+Sayfa5!RC+Sayfa6!RC+Sayfa7!RC+Sayfa8!RC)"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:L3"), Type:=xlFillDefault
Range("C3:L3").Select
Selection.AutoFill Destination:=Range("C3:L10"), Type:=xlFillDefault
Range("C3:L10").Select
Selection.Copy
Range("C13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C3").Select
Range("C3:L20").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C3").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

 

[Ömer]

Merhaba,

Linki inceleyiniz.

sayfaları toplama


.

 

[isteobenim]

bugün bu ve benzer örnekler ile yapmaya çalıştım ama olmadı,belittiğiniz örnekte sadece tek hücre değeri toplatılabiliyor ve ben daha fazla ileriye gidemedim

 

[Ömer]

Dosya ekleyerek yapmak istediğinizi detaylı açıklayınız..

.

 

[isteobenim]

kusura bakmayın dosyayı ekledim sanıyordum..şimdi düzeltme yaptım.

 

[Ömer]

Bu şekilde deneyiniz..

Sub SayfaTopla()

If Not Sheets.Count > 1 Then Exit Sub
 
sonsyf = Sheets(Sheets.Count).Name
ilksyf = Sheets(2).Name
 
For Each hücre In Range("C3:L20")
    adr = hücre.Address(False, False)
    hücre.Value = "=SUM(" & "'" & ilksyf & ":" & sonsyf & "'!" & adr & ")"
Next hücre
 
End Sub

.

 

[isteobenim]

Üstat teşekkürler,
For Each hücre In Range("C3:L20")bu aralığı
C3:L10 ve C13:L20 olarak ayırmak istesek ne yapılması gerkir acaba.

 

[Necdet]

Üstat teşekkürler,
For Each hücre In Range("C3:L20")bu aralığı
C3:L10 ve C13:L20 olarak ayırmak istesek ne yapılması gerkir acaba.

Merhaba,

For Each hücre In Range("C3:L10, c13:l20")
 
next hücre

 

[isteobenim]

Teşekkür ederim,
İyi Çalışmalar,