her sayfada aynı hücreyi toplama

[elcancavus]

selamlar herkese,

bir excel dosyam varki toplamda 100 sayfalık bir dosya, her sayfada A3 hücresindeki verileri 101. sayfada toplamak istiyorum.
tek tek sayfalarımı toplamam lazım =Sayfa1!B3+Sayfa2!B3+Sayfa3!B3+Sayfa4!B3................. şeklinde , yoksa kolay bir formülü var mıdır?

yardımlarınızı rica ederim.

şimdiden teşekkürler, saygılar,

 

[İhsan Tank]

selamlar herkese,

bir excel dosyam varki toplamda 100 sayfalık bir dosya, her sayfada A3 hücresindeki verileri 101. sayfada toplamak istiyorum.
tek tek sayfalarımı toplamam lazım =Sayfa1!B3+Sayfa2!B3+Sayfa3!B3+Sayfa4!B3................. şeklinde , yoksa kolay bir formülü var mıdır?

yardımlarınızı rica ederim.

şimdiden teşekkürler, saygılar,

merhaba
isizn sorunuzun yanıtı link'te

 

[elcancavus]

ilginize teşekkürler,
birde birşey daha sormak istiyorum,
bir excel dosyasında kaç tane sheet olduğu ile ilgili bir yöntem var mıdır?
tşk.

 

[Vedat Özer]

Selamlar,

Aşagıdaki kodu bir butona bağlayın yada örnek dosyayı inceleyin.

Kodlar alıntıdır.

Public Sub SortWorksheets1()
Dim Cnt%, N%, M%, i%, ZahlM%, ZahlN%
Dim WS As Worksheet
Set WS = ActiveSheet
Cnt = ActiveWorkbook.Worksheets.Count
For M = 1 To Cnt
    For N = M To Cnt
        On Error Resume Next
        For i = 1 To Len(Worksheets(N).Name)
            If IsNumeric(Right(Worksheets(N).Name, i)) = False Then
                i = i - 1
                If i = 0 Then GoTo Text
                ZahlN = Right(Worksheets(N).Name, i)
                Exit For
            End If
        Next i
        For i = 1 To Len(Worksheets(M).Name)
            If IsNumeric(Right(Worksheets(M).Name, i)) = False Then
                i = i - 1
                If i = 0 Then GoTo Text
                ZahlM = Right(Worksheets(M).Name, i)
                Exit For
            End If
        Next i
        If CInt(ZahlN) < CInt(ZahlM) Then Worksheets(N).Move _
            Before:=Worksheets(M)
        GoTo Nächste
Text:
        If Worksheets(N).Name < Worksheets(M).Name Then _
            Worksheets(N).Move Before:=Worksheets(M)
Nächste:
    Next N
Next M
Sheets("Tab3").Select
MsgBox "Toplam Sayfa Sayısı: " & Cnt
End Sub

 

[İhsan Tank]

ilginize teşekkürler,
tşk.

rica ederim
sorunuza Vedat bey yardımcı olmuş
kolay gelsin :mutlu:

 

[elcancavus]

Vedat Bey,

sizede çok teşekkürler,
kolay gelsin.

 

[Vedat Özer]

Rica Ederim
İyi çalışmalar dilerim.