[Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

[Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#1)  murguc » 04 May 2011 14:16

Merhaba Saygıdeğer Arkadaşlar,

Şirketimizde kullanmış olduğumuz bir excel dosyası içinde, yaklaşık 50 tane sayfa açıp, sayfalar içinde işlemler yapıyorum.
Yapmış olduğum işlemlerin de dip toplamlarını alıyorum. Bütün sayfalardaki dip toplamları tek bir sayfada toplamak istiyorum. Tek tek elle seçip sayfalardaki toplamları almaya kalksam baya uzun sürecek. Çünkü o şekilde 1000'e yakın sayfa toplamam gerekiyor. Örnek bir excel tablosu ekliyorum. Bu toplama işlemini, zamandan tasarruf için daha kolay bir şekilde nasıl yapabilirim ?

Teşekkür ederim. Saygılarımla,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#2)  Tarkan VURAL » 04 May 2011 16:14

Murat bey selam. Dip toplamlarınız hep farklı satır ve sütunlarda mı olacak ? Listeler değişebilir mi ? Bugün sayfa1 toplamı B50 hücresinde iken, yarın B65 olabilir mi ? Yahut D80 olabilir mi ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#3)  murguc » 04 May 2011 17:00

Tarkan Bey merhaba,

Dip toplamların yerleri hiçbir şekilde değişmeyecek. Her sayfanın dip toplamı aynı yerde kalacak, fakat tekrar hatırlatmak isterim ki her sayfada dip toplamlar farklı sütun ve hücrede bulunuyor.
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#4)  Tarkan VURAL » 04 May 2011 18:59

O halde sizin çözümünüz yeterli olmalı. Bir seferliğine mahsus sayfalar arası toplam formülü yazacaksınız. Sonra hep kendisi toplayacak zaten. ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#5)  murguc » 09 May 2011 14:15

Merhaba Tarkan bey,

Öncelikle mesajınıza geç cevap yazdığım için özür dilerim. İş dolayısıyla siteden biraz uzak kaldım. Çözüm konusu içinde son çare bu mu dur ? Çünkü gerçekten zaman kazanmak için daha kolay bir formüle ihtiyacım var. Elimle tek tek toplamaya başladığım zaman diğer işlerimden çok geri kalacağım. Başka bir öneriniz olabilir mi ? Teşekkür ederim.
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#6)  Tarkan VURAL » 09 May 2011 15:37

Toplamlarınızın hep aynı yerlerinde olduğunu belirtmiştiniz. Bu alanlar sabit ise, bir seferliğine mahsus bir hücre içine tüm sayfa toplamlarını aldırıp sorununuzdan kurtulabilirsiniz. Yoksa farklı bir işleyişiniz var da; ben mi anlayamıyorum ? [ilginc]

=Sayfa1!a10 + Sayfa2!b21 + Sayfa3!b65 .... gibi.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#7)  murguc » 10 May 2011 16:16

Evet Tarkan Bey, toplamlar hep aynı yerlerinde, yine sizin dediğiniz gibi tek tek toplayalım. Demek istediğim, acaba tüm sayfalardaki toplamları tek formülle toplayabilir miyiz ? Çok teşekkür ederim yardımlarınızdan dolayı ve ilgilendiğiniz için.

Saygılarımla,
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#8)  Tarkan VURAL » 10 May 2011 16:29

Tümünü toplamak ve mesaj olarak görmek için örneğin aşağıdaki bir biçim kullanabilirsiniz:


Kod: Tümünü seç
Sub toplamlar()
For i = 1 To Sheets.Count
    Set t = Sheets(i).Cells.Find("toplam", , , 1)
    If Not t Is Nothing Then
        topla = topla + CDbl(t.Offset(0, 1).Value)
    End If
Next i
MsgBox "Toplamlar : " & topla, vbInformation, "Www.ExcelVBA.Net"
End Sub


Kodlamada mantık toplam yazısını aramak. Toplam yazısını, "toplam" olarak yazılmış şekli ile bulduğunda, sağındaki değeri sayısal bir değer olarak algılayıp kümüle toplama dahil ediyor. Son olarak size kümülatif toplamı mesaj ile veriyor. Siz isterseniz bu değeri bir yere yazdırabilirsiniz. ;)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#9)  murguc » 10 May 2011 17:05

Tarkan Bey, olay budur. şkşk . Ben ne kadar anlatamasam da derdimi çok güzel bir şekilde nokta atışı yaptınız. Üstad olunca aceminin anlatmak istediğini bir şekilde anlıyorsunuz. Çok teşekkür ederim. --)( . Ellerinize sağlık.
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#10)  murguc » 10 May 2011 17:14

Tarkan bey affınıza sığınarak, bu toplamları mesaj olarak gelmese de bir yere yazması için uğraştım ama yapamadım. Herhangi bir hücreye yazdırmak için ne yapabilirim ? Tekrar teşekkürler.
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#11)  Tarkan VURAL » 10 May 2011 18:19

Aşağıdaki satırı bulun :
Kod: Tümünü seç
MsgBox "Toplamlar : " & topla, vbInformation, "Www.ExcelVBA.Net"

Şununla değiştirin:
Kod: Tümünü seç
Sheets("Genel Toplam").Range("B1").value = topla


"Genel Toplam" adında bir sayfanız olduğunu varsaydım. B1 hücresinin boş olduğunu varsaydım.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verileri Topl

İleti#12)  murguc » 11 May 2011 10:51

Tekrar teşekkür ederim. şkşk Saygılarımla,
Kullanıcı avatarı
murguc
Yeni Başlamış
 
Adı Soyadı:Murat Dinlemez
Kayıt: 04 Kas 2010 17:17
Konum: Ankara
Meslek: İnsan Kaynakları Görevlisi
Yaş: 36
İleti: 92
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Cevap: Farklı Sayfalarda ve Faklı Hücrelerdeki Verile

İleti#13)  recai » 11 Eyl 2020 16:50

Tarkan VURAL yazdı:Tümünü toplamak ve mesaj olarak görmek için örneğin aşağıdaki bir biçim kullanabilirsiniz:


Kod: Tümünü seç
Sub toplamlar()
For i = 1 To Sheets.Count
    Set t = Sheets(i).Cells.Find("toplam", , , 1)
    If Not t Is Nothing Then
        topla = topla + CDbl(t.Offset(0, 1).Value)
    End If
Next i
MsgBox "Toplamlar : " & topla, vbInformation, "Www.ExcelVBA.Net"
End Sub


Kodlamada mantık toplam yazısını aramak. Toplam yazısını, "toplam" olarak yazılmış şekli ile bulduğunda, sağındaki değeri sayısal bir değer olarak algılayıp kümüle toplama dahil ediyor. Son olarak size kümülatif toplamı mesaj ile veriyor. Siz isterseniz bu değeri bir yere yazdırabilirsiniz. ;)





Tarkan bey , bu işlemi tüm sayfalardan değil, söz gelimi, veri1, veri2 veri3 veri4 gibi değişken tanımlayıp , bu saylarıdan tolam almak istiyorum yardım edermisiniz ,

teşekkür ederim .
Kullanıcı avatarı
recai
Yeni Başlamış
 
Adı Soyadı:recai iyigit
Kayıt: 24 Şub 2014 16:32
Konum: bilecik/söğüt
Meslek: finans
Yaş: 51
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bilecik

Cevap: [Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#14)  Miraç CAN » 12 Eyl 2020 07:14

Değişken içerikleri nasıl olacak? Tek/çoklu dizi, veri seti?
İçeriğin hepsinin mi, arama yapılarak mı toplam alınacak?
Mümkünse daha detaylı bir örnek verin.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: [Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#15)  recai » 14 Eyl 2020 10:51

Miraç bey teşekkür ederim ,
örnek dosyayı ekte gönderiyorum ,

burada istediğim , tüm veri sayfaları değil de , içeride tanımladığım / tanımlayacağım belirli dosyalardan verileri tablo sayfasında özetlesin ,

teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
recai
Yeni Başlamış
 
Adı Soyadı:recai iyigit
Kayıt: 24 Şub 2014 16:32
Konum: bilecik/söğüt
Meslek: finans
Yaş: 51
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bilecik

Cevap: [Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#16)  Miraç CAN » 14 Eyl 2020 11:02

Peki biz bu dosyanın içeriğinden ne anlayacağız..? [ilginc]
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: [Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#17)  Miraç CAN » 14 Eyl 2020 11:06

Kodlarınızdan bir şeyler anlayabildim gibi, bir örnek paylaşayım, deneyin, onun üzerine devam edelim bence.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: [Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#18)  Miraç CAN » 14 Eyl 2020 11:34

Kod: Tümünü seç
Sub etopla()
Dim Area As Variant, Rng&, Sheet%
Area = Array(Sheets("veri3").Range("A:C"), Sheets("veri4").Range("A1:C20"), Sheets("veri5").Range("A1:D30")) 'sayfa ve alan tanımları
With Sheets("tablo")
    For Rng = 1 To .Cells(Rows.Count, 1).End(3).Row
        For Sheet = LBound(Area) To UBound(Area)
            .Cells(Rng, 3) = .Cells(Rng, 3) + Application.SumIf(Area(Sheet).Columns(1), .Cells(Rng, 1), Area(Sheet).Columns(3))
        Next Sheet
    Next Rng
End With
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: [Çözüldü] - Farklı Sayfalardaki Verileri Toplamak

İleti#19)  recai » 14 Eyl 2020 22:23

Miraç bey ,
merhaba ,

En makbul teşekkür , Gıyabında edeceğim dua,
Yaratan kendi hazinesinden verecektir.
Dünya ve ahiret saadetleri rica ediyorum senin için,
Kullanıcı avatarı
recai
Yeni Başlamış
 
Adı Soyadı:recai iyigit
Kayıt: 24 Şub 2014 16:32
Konum: bilecik/söğüt
Meslek: finans
Yaş: 51
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bilecik


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe