Ayrı çalışma kitabı sayfalarından toplam alma

[ertuer]

Değerli arkadaşlar
Ekteki örnekte at çalışma kitabında bir hücreye gh çalışma kitabındaki, 1M 2M 3M ve 4M
sayfalarının f7 hücrelerindeki değerlerin toplamını aldırmayı beceremedim..yardımlarınız için teşekkürler.(tek tek artı koyarak oluyor fakat bu bazı yerlerde çok uzun işlemler gerektiriyor.ilk ve son hücreyi belirterek toplamak istiyorum
)

 

[Murat OSMA]

Konu yanlış başlıkta açılmış.
Lütfen eğer taşıyabiliyorsanız konuyu ilgili başlık altına taşıyınız...

 

[Murat OSMA]

GH.xls dosyasındaki tüm sayfalardan, F7 hücresindeki değerleri toplayıp D5 hücresine yazdırmak için aşağıdaki kodu bir deneyiniz lütfen...

[SIZE="2"]Sub Sayfalari_Topla()

    Dim con As Object, cat As Object
    Dim sayfaad As String, evn As String

    Set con = CreateObject("adodb.connection")
    Set cat = CreateObject("adox.catalog")
    
    evn = ThisWorkbook.Path & "\GH.xls"
    con.Open "provider=microsoft.jet.oledb.4.0;Data source=" & evn & _
    ";extended properties=""excel 8.0;hdr=no"""
    
    cat.activeconnection = con
    For Each sayfalar In cat.tables
    If sayfalar.Type = "TABLE" And sayfalar.Name Like "*$*" Then
    sayfaad = Replace(sayfalar.Name, "'", "") & "F1:F7"
    topla = topla + con.Execute("select sum(F1) from [" & sayfaad & "]").Fields(0).Value
    End If: Next sayfalar: Range("d5").Value = topla
    
    con.Close: sayfaad = vbNullString: evn = vbNullString
    Set cat = Nothing: Set con = Nothing
    
    MsgBox "Tüm veriler toplandı. ", vbInformation, Application.UserName
    
End Sub[/SIZE]

 

[ertuer]

makroyu çalıştıramadım.excel formülüyle yapabilirmiyiz..

İlgi ve emeğiniz için teşekkür ederim.Makroyu ben çalıştıramadım.
Bunu formül yazarak yapabilirmiyiz?

 

[Can Kabus]

Sn Ertuer;

AT dosyanıza aşağıdaki formülü girebilirsiniz

=TOPLA('[GH.xlsx]1M:4M'!$F$7)

 

[Murat OSMA]

Çalıştıramadım derken... Hata mı verdi ? Kod mu çalışmıyor ? Toplam almıyor mu ?

 

[ertuer]

Merhaba murat bey
Çalıştıramadım derken ben makroyu uygulamayı beceremedim.ancak can beyin formülü yeterli oldu.
Can bey sizede çok teşekkür ederim.Fakat benim asıl problemim ekte göndereceğim örnekteki sayfalara formülleri kopyala yapıştır yaparak atayamıyorum.yüzlerce hücreye tek tek girmek zorunda kalacağım.Eğer sizleden bir çözüm gelirse çok makbule geçecek ...emeğinize sağlık selamlar