Farklı Kitaplar Arası Formül Bağlantısı

Katılım
13 Ocak 2009
Mesajlar
8
Excel Vers. ve Dili
OFFİCE XP - Türkçe
öncelikle merhaba...

Ana Problem Şu: 12 ayrı kitaptaki toplamları 13. bir kitaba toplamak istiyorum fakat daha sonra bu 13 kitabı aynı klasör içinde nereye taşırsam taşıyayım adres güncellemesi istemesin.

benim 12 aya ayrı ayrı düzenlediğim bir exel kitabım var. her birinde de ayrı ayrı sayfalar var. ben öncelikle her sayfada istediğim toplamları aynı kitapta başka bir TOPLAMLAR isimli sayfaya formülledim. buraya kadar güzel. bunu her kitap için ayrı ayrı yaptım. başka bir kitap daha yaptım ve ayrı ayrı ay olarak toplanmış bu verileri tüm yıl olarak toplamak istiyorum. tek tek uğraşarak bunu da yapıyorum ancak, çalıştığım bilgisayardan başka bir bilgisayara ya da c: sürücüsünden d: sürücüsüne kopyaladığım yada taşıdığım zaman adres değiştiği için tek tek adres güncellemesi istiyor.

bunu önlemenin bir yolu varsa yardımlarınızı bekliyorum.

çok teşekkür ederim.
 
Katılım
25 Aralık 2008
Mesajlar
31
Excel Vers. ve Dili
excel 2016 TÜRKÇE
Altın Üyelik Bitiş Tarihi
05/07/2019
tüm dosyalarınız aynı klasörde ise aç kapa yaparak hepsini aşağıdaki kodu uyarlama yoluna giderek güncelleyebilirsiniz


Sub güncelle()

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & guncelle1 ' "guncelle1" klasörün icindeki xls dosyasının adı
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & guncelle2 ' "guncelle2" klasörün icindeki diğer xls dosyasının adı
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close
'
'
'
'


End Sub
 
Katılım
13 Ocak 2009
Mesajlar
8
Excel Vers. ve Dili
OFFİCE XP - Türkçe
çok teşekkür ederim.

anladığım kadarıyla o tekrarı 12 ay için olmak üzere ayrı ayrı yazıyorum. elinizde böyle bir örnek varsa ekleyebilir misiniz rica etsem. guncelle 1'"guncelle 1" kısmını anlamadım. 1. 2. 3. dosya ismi galiba ama bunu guncelle 1 yerine mi yazacağım yoksa "guncelle 1" yerine mi..

tekrar teşekkür ederim.
 
Katılım
13 Ocak 2009
Mesajlar
8
Excel Vers. ve Dili
OFFİCE XP - Türkçe
yalnız birşeyi söylemeyi unuttum. 12 kitap ve son toplam kitabı ayrı ayrı klasör içinde olması gerekiyor. bu klasörler de CALISMALAR adı altında başka bir klasörde.

örn: 1 OCAK isimli klasörde AYLIK CALISMA isminde bir kitap.
2 ŞUBAT isimli klasörde AYLIK CALISMA isminde bir kitap
..............................................................
.................................................................
12 ARALIK isimli klasörde AYLIK CALISMA isminde bir kitap
ve
YILLIK CALISMA isimli klasörde YILLIK CALISMA isminde bir kitap

bu 13 klasör CALISMALAR isminde bir klasör içerisindeler.

bu şekilde yardımcı olur musunuz lütfen...
 
Katılım
25 Aralık 2008
Mesajlar
31
Excel Vers. ve Dili
excel 2016 TÜRKÇE
Altın Üyelik Bitiş Tarihi
05/07/2019
Tüm çalışmaların tek klasör içinde olması gerekir, yoksa beni aşar.. :)

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & guncelle1
kırmızı olarak gördügünüz kısma dosya adlarını yazacaksınız. kaç dosya varsa güncellemek istediğiniz kodu o kadar sayıda kopyalayıp dosya adlarını uyarlayın

Sub güncelle()
'
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & guncelle1
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close
'
'
End Sub
 
Katılım
13 Ocak 2009
Mesajlar
8
Excel Vers. ve Dili
OFFİCE XP - Türkçe
tamam kardeşim.çok teşekkür ederim.olmazsa aynı klasör içine toplayıp senin yolunu uygulayacağım.
 
Katılım
13 Ocak 2009
Mesajlar
8
Excel Vers. ve Dili
OFFİCE XP - Türkçe
kardesim bu dogru mu?

Sub güncelle()

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA1
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA2
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA3
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA4
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA5
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA6
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA7
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA8
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA9
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA10
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA11
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & CALISMA12
UpdateLinks = 0
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub
 
Üst