Sayfala arası toplama

[buseen]

160 adet isim sayfası var e3:30 arasını nasıl toplatabilirim hepsini
ana sayfayda a1 hücresine

 

[ghbt16]

soruyu anlayamadım

 

[buseen]

160 adet müsteri sayfası var e3 ile 30 arasını nasıl toplata bilirim

ana sayfada a1 hücresine

 

[ersoyalan]

Merhaba,

Ekli dosyayı inceleyin.

E.ALAN

 

[N.Ziya Hiçdurmaz]

Yanıt

Toplam alacağınız sayfa kod bölümüne uygulayınız

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, sat As Integer
[a1] = ""
For i = 2 To Sheets.Count
For sat = 3 To 30
[a1] = [a1] + Sheets(i).Cells(sat, "e")
Next: Next
End Sub

 

[buseen]

Tşk sayfalar isimli hocam sayfa numarası yerine isim kullancam degilmi

 

[buseen]

Hocam teşekkürederim oldu