Özet Toplam alma

[sinful]

Arkadaşlar merhaba,

Bir dosyanın içinde bir çok excel çalışma kitabı bulunduğunu düşünün.Ana bir excel çalışma kitabının a5 hücresine, diğer çalışma kitablarının a5 hücre toplamlarını tek tek açıp uğraşmadan alabilirmiyim.(500 tane ayrı çalışma kitabı olduğunu düşünün, hepsini tek tek açıp linkleyerek toplam almak bir hayli vaktimi alır.)

Şimdiden çok teşekkürler.

 

[zafer]

Merhaba

Yeni bir excel kitabının kod kısmına aşağıdaki kodları yapıştırınız.

Yol kısmına kendi kitaplarınızın bulunduğu adresi
Sayfa kısmınada verilerin alınacağı sayfa ismini giriniz.

verinin alınacağı sayfa ismi bütün kitaplarda aynı olmalıdır

Sub DOSYADAN_VERI_AL()
Dim Yol As String, kitap As String, sayfa As String
Cells.Select
Range("a5").ClearContents
Range("A2").Select
For Each hucre In Range("a5")
 
Yol = "C:\DOSYALAR\EXCEL\KITAPLIK\ANKET"

kitap = Dir(Yol & Application.PathSeparator & "*.xls", vbDirectory)

sayfa = "SAYFA1"

Do While kitap <> ""
adres = "$A$5"
If kitap = ThisWorkbook.Name Then GoTo ResumeSub:
x = ExecuteExcel4Macro("'d:\" & Mid(Yol, 4) & "\[" & kitap & "]" & sayfa & _
"'!" & Range(adres).Address(, , xlR1C1))
If x > 0 Then
toplam = hucre + x
ActiveSheet.Range(adres) = toplam
End If
 
ResumeSub:
kitap = Dir
Loop
Next
End Sub

 

[sinful]

Teşekkür ederim çalışıyor.Elleriniz dert görmesin