Sayfalarda ara bul topla

[ynmcan]

Merhaba arkadaşlar
genel toplam sayfasındaki duruş sebeplerini diğer sayfalarda bulup toplamlarını almak istiyorum.
Bir çok örnek var ama bir türlğ dosyama uygulayamadım.

yardımcı olursanız sevinirim.

Örnek dosyam ekte.

 

[Ömer BARAN]

Merhaba.

Fonksiyonlar bölümünde konu açmışsınız ancak,
makro ile çözüm isterseniz aşağıdaki şekilde sonuç alabilirsiniz. En azından alternatif olsun.

-- Alt taraftan Genel topla sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın,
-- VBA ekranında iken F5 tuşuna basın.
.

[FONT="Arial Narrow"][B]Sub TOPLAMLAR()[/B]
Set gt = Sheets("Genel topla"): gt.Range("C3:C26").ClearContents
For satır = 3 To 26
    For s = 1 To Sheets.Count
        If Sheets(s).Name <> "Genel topla" Then
        toplam = toplam + WorksheetFunction.SumIf(Sheets(s).[M:M], gt.Cells(satır, "B"), Sheets(s).[N:N])
    End If: Next:: gt.Cells(satır, "C") = toplam: toplam = 0: Next
[B]End Sub[/B][/FONT]

 

[interstellar]

=SUMIFS('why simplex-1-'!N3:N17;'why simplex-1-'!M3:M17;'Genel topla'!B3)+SUMIFS('tezgüller-2-'!N3:N17;'tezgüller-2-'!M3:M17;'Genel topla'!B3)+....

Türkçe kullanıyorsanız sumıfs yerine çoketopla yazın
tüm sayfalar için bunu yapmanız gerekir ben sadece 2 sayfa için yaptın örnek olması amacı ile
ayrıca bilgisayarımda sorun olduğu için hücreleri sabitleyemedim onları siz sabitleyin aksi taksirde aşağıdaki satırlarda formül hatalı getirmiş olur

Çoketopla yerine etopla da kullanabilirsiniz ancak ben daha çok bu şekilde kullandığım için bu şekilde yaptım

iyi akşamlar

 

[ynmcan]

Sağ olun Ömer BARAN ve İnterstellar
Her ikisi de istediğim işlemi yapıyor.