Köprüleri güncelleme

[Sa.NaL]

Selamlar,

Ödeme dosyası adında Excel çalışma kitabımdaki kalan borçlar sütününda 50 kişinin borç bilgisi mevcuttur. Kalan borç rakamının üzerine tıklayınca ilgili kişinin carisini yani ayrı excel çalışma kitabını açmaktadır. tüm 50 kişinin excel çalışma kitaplarındaki kalan borca ait hücredeki rakamları ödeme dosyasının kalan borçlar sütünuna tek tuşla nasıl güncelleyebilirim.

Şuan da kişilerin excel çalışma kitaplarını açmadan güncel borç bilgisi gelmiyor. Günlük faiz işletildiği için hergün borç arttığı için bu artış ödeme dosyama yansımıyor. İllaki her kişinin carisini açmam gerekiyor. Tüm kişileri ödeme dosyasın kitapçığına taşımadan başka bir çözüm varmıdır. Atıyoum bir komut butonu ekleyip güncelle adında ona bastığımda tüm kişilerin köprülerini otomatik güncelleyen bir kod varmıdır?

 

[Ömer BARAN]

Merhaba.

Yanlış anlamıyorsam; Cari belgelerindeki değerleri asıl belgenize çağırmak için DOLAYLI işlevini kullanıyorsunuz ve
bu işlevin çalışma prensibi de ilgili belgenin açık olmasını gerektirdiğinden, ilgili Cari belgesini açmadan sonuç alamıyorsunuz.

Cari kayıtlarını tuttuğunuz excel belgelerinin isimlendirmesi nasıl yapılmıştır, belgelerin kayıtlı olduğu dizin işlem yapılacak belgenin dizini ile aynı mıdır onlar da belli değil.

Bence sorunuzu, biri işlem yapacağınız, diğeri de Cari belgenin olmak üzere;
gerçek belgelerin, küçük boyutlu birer kopyası şeklinde hazırlayacağınız örnek belge üzerinden sormalısınız.

Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[Sa.NaL]

Merhaba.

Yanlış anlamıyorsam; Cari belgelerindeki değerleri asıl belgenize çağırmak için DOLAYLI işlevini kullanıyorsunuz ve
bu işlevin çalışma prensibi de ilgili belgenin açık olmasını gerektirdiğinden, ilgili Cari belgesini açmadan sonuç alamıyorsunuz.

Cari kayıtlarını tuttuğunuz excel belgelerinin isimlendirmesi nasıl yapılmıştır, belgelerin kayıtlı olduğu dizin işlem yapılacak belgenin dizini ile aynı mıdır onlar da belli değil.

Bence sorunuzu, biri işlem yapacağınız, diğeri de Cari belgenin olmak üzere;
gerçek belgelerin, küçük boyutlu birer kopyası şeklinde hazırlayacağınız örnek belge üzerinden sormalısınız.

Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

http://s3.dosya.tc/server15/a8glcr/ODEME_DOSYASI.rar.html

İLGİNİZ İÇİN TEŞEKKÜRLER

 

[Zeki Gürsoy]

Dosyanız açlışta veribağlantsı güncelleştirme sorusu soruyor olması gerek (sormuyorsa devre dışı kalmış olabilir). Ona "Güncelleştir derseniz, diğer dosyalar açılmaksızın güncel bakiye gelir.

 

[Sa.NaL]

Dosyanız açlışta veribağlantsı güncelleştirme sorusu soruyor olması gerek (sormuyorsa devre dışı kalmış olabilir). Ona "Güncelleştir derseniz, diğer dosyalar açılmaksızın güncel bakiye gelir.

Günlük faiz işletildiği için kapalı iken faiz artışı yansımıyor güncelleştir desem bile dosyayı illaki açmakj gerekiyor faiz artışının yansıması için ilginiz için sağolun.

 

[Sa.NaL]

Güncelle komut butonuna tıklayınca cariler klasörü içerisinde yer alan tüm excel çalışma kitaplarını aç kaydet kapa yaptıracak bir kod işi çözer diye düşünüyorum ama bu nasıl yazılır? bu şekilde de olsa işim görülecek şimdiden teşekkürler

 

[Zeki Gürsoy]

İstediğiniz işi yapan kod aşağıdadır...

Sub Test()
    
    p = ThisWorkbook.Path & "\cariler\"
    
    d = Dir(p & "*.xlsx")
    
    Application.ScreenUpdating = False
    
    Do While d <> ""
        DoEvents
        
        Set wb = Workbooks.Open(p & d)
        
        wb.Close True
        
        d = Dir
        
    Loop
    
    Application.ScreenUpdating = True
    
    MsgBox "Tamam", vbInformation
End Sub

 

[Sa.NaL]

İstediğiniz işi yapan kod aşağıdadır...

Sub Test()
    
    p = ThisWorkbook.Path & "\cariler\"
    
    d = Dir(p & "*.xlsx")
    
    Application.ScreenUpdating = False
    
    Do While d <> ""
        DoEvents
        
        Set wb = Workbooks.Open(p & d)
        
        wb.Close True
        
        d = Dir
        
    Loop
    
    Application.ScreenUpdating = True
    
    MsgBox "Tamam", vbInformation
End Sub

Çok sağolun.