Yalnız Mesajı Göster
Eski 30-12-2017, 14:04  
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,709
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Dosyanız ektedir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub toplamal59()
Dim toplam As Double, toplamlar As Double, sat As Long
Dim dosya As String
Range("A2:B" & Rows.Count).ClearContents
sat = 2
dosya = Dir("D:\2017\*.xls")
Do While dosya <> ""
    toplam = Application.ExecuteExcel4Macro("'D:\2017\[" & dosya & "]KASA'!R43C8")
    toplamlar = toplamlar + toplam
    Cells(sat, "B").Value = toplam
    sat = sat + 1
    dosya = Dir
Loop
Cells(sat, "A").Value = "Toplamlar : "
Cells(sat, "B").Value = toplamlar
MsgBox "Toplamlar alındı." & vbLf & "evrengizlen@hotmail.com"
End Sub
Eklenmiş Dosyalar
Dosya Türü: xls toplamlari_al_59.xls (35.5 KB, 8 Görüntülenme)
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla