Şimdi Ara

excel de toplama?

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
8
Cevap
0
Favori
404
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Merhaba arkadaşlar,
    Örneğin, excelde benim 20 tane sayfam var ve bu sayfaların hepsinde aynı hücredeki rakamları toplamak istiyorum. Atıyorum 1, 2, 3, ...., 20 sayfalarındaki A130'da tanımlı bütün rakamları sayfa 1 de toplamanın kolay yolu var mı?
    bütün sayfaları tek tek seçip toplamak çok zorluyor.



  • ALT+F11 e basarak VBA editörüne geçin
    Menüden Insert / Module tıklayın
    Kod bölmesine aşağıdaki kodları ekleyin

    Function SayfaTopla(SayfaSayisi As Integer, hucre As String)
    For n = 1 To SayfaSayisi
    SayfaTopla = SayfaTopla + Val(Sheets(n).Range(hucre).Value)
    Next
    End Function


    excele geçip istediğiniz bir hücrede

    =SayfaTopla(20;"A130")

    formülü ile sonuç alın
    20 sayısı 1den20 kadar olan sayfalar için



    < Bu mesaj bu kişi tarafından değiştirildi akcan -- 26 Ekim 2016; 9:53:13 >
  • quote:

    Orijinalden alıntı: akcan

    ALT+F11 e basarak VBA editörüne geçin
    Menüden Insert / Module tıklayın
    Kod bölmesine aşağıdaki kodları ekleyin
    Function SayfaTopla(SayfaSayisi As Integer, hucre As String)

    For n = 1 To SayfaSayisi
    SayfaTopla = SayfaTopla + Val(Sheets(n).Range(hucre).Value)
    Next

    End Function


    excele geçip istediğiniz bir hücrede

    =SayfaTopla(20;"A130")

    formülü ile sonuç alın
    20 sayısı 1den20 kadar olan sayfalar için

    teşekkür ederim.
    peki bu formüle şunu ekleyebilir miyiz?
    sayfa 8den sayfa 14e kadar olan A130 değerleri toplamı.



    < Bu mesaj bu kişi tarafından değiştirildi numb83 -- 25 Ekim 2016; 18:28:0 >
  • Function SayfaTopla(Sayfailk As Integer, SayfaSon As Integer, hucre As String)  
    For n = Sayfailk To SayfaSon
    SayfaTopla = SayfaTopla + Val(Sheets(n).Range(hucre).Value)
    Next
    End Function


    =SayfaTopla(8;14;"A130")
  • quote:

    Orijinalden alıntı: akcan

    Function SayfaTopla(Sayfailk As Integer, SayfaSon As Integer, hucre As String)  
    For n = Sayfailk To SayfaSon
    SayfaTopla = SayfaTopla + Val(Sheets(n).Range(hucre).Value)
    Next
    End Function


    =SayfaTopla(8;14;"A130")

    eyvallah hocam. birde birşey daha soracağım.
    arkadaşımın çalıştığı excel dosyasını benim bilgisayarımda açınca exceldeki biçimler bozuluyor. bu neden olabilir ?
  • sürüm farkı var mı?
    örneğin sizde excel 2003 var onda excel 2013
  • quote:

    Orijinalden alıntı: akcan

    sürüm farkı var mı?
    örneğin sizde excel 2003 var onda excel 2013

    Benim 2010 ondaki 2013 olmasi lazim.

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • dosya 2013de olup 2010da olmayan özellikleri kullandıysa o özellikler bozulur
    ancak standart özellikler aynı kalması lazım

    2013deki kişi, dosya farklı kaydet / Kayıt türü excel 97-2003 olarak kaydederse sorun çıkmaz ancak kaydederken uyaracaktır. bazı özelliklerin kaybolacağını.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.