makro talebi

[tarikay]

Sayın Uzmanlar;
Daha önce "makro kaydet" ile yaptığım makroları şimdi yapamıyorum.
İstediğim Makro Şu;

Ekteki klasörün içinde "Maliyet Yönetim Tablosu" diye bir dosya var. Bu dosyada bir "refresh" tuşu var. Bu tuşa bastığımda klasörün içindeki diğer dosyaların açılıp, kapatılması gerekiyor. Yani dosyadaki tarihi değiştirdikten sonra refreshe basılaca, diğer dosyalar açılıp kapandıktan sonra bilgiler güncellenecek.

Yardımcı olabilirseniz çok sevinirim. Benim için çok önemli.

 

[Orion1]

Dosyanız ektedir.

Sub evren_ac_kapa()
Dim fso As Object, fs As Object
Set fso = CreateObject("Scripting.filesystemobject")
For Each fs In fso.getfolder(ThisWorkbook.Path).Files
    If fs.Name <> ThisWorkbook.Name Then
        Workbooks.Open (fs)
        Workbooks(fs.Name).Close
    End If
Next
End Sub

 

[tarikay]

Sayın Evren;

Yardım için teşekkürler

Fakat önce tüm dosyaların açılıp (bağlantıların düzenle) işaretle konutları tiklenip sonra hepsinin kapanması (katdet diyenlerin kaydedilmeleri) gerekmektedir. Aksi takdirde dosya yine veri alamıyor. Şu anda yaptığınız çalışmada sadece son açılıp kapanan dosyadan veri okuyor.

Tekrar ilgilenirseniz çok sevinirim.

Tarık

 

[tarikay]

Sayın Evren;

Yardım için teşekkürler

Fakat önce tüm dosyaların açılıp (bağlantıların düzenle) işaretle konutları tiklenip sonra hepsinin kapanması (katdet diyenlerin kaydedilmeleri) gerekmektedir. Aksi takdirde dosya yine veri alamıyor. Şu anda yaptığınız çalışmada sadece son açılıp kapanan dosyadan veri okuyor.

Tekrar ilgilenirseniz çok sevinirim.

Tarık

Dosyanız ektedir.

Sub evren_ac_kapa()
Dim fso As Object, fs As Object
Set fso = CreateObject("Scripting.filesystemobject")
For Each fs In fso.getfolder(ThisWorkbook.Path).Files
    If fs.Name <> ThisWorkbook.Name Then
        Workbooks.Open (fs)
        Workbooks(fs.Name).Close
    End If
Next
End Sub

 

[Orion1]

Sayın Evren;

Yardım için teşekkürler

Fakat önce tüm dosyaların açılıp (bağlantıların düzenle) işaretle konutları tiklenip sonra hepsinin kapanması (katdet diyenlerin kaydedilmeleri) gerekmektedir. Aksi takdirde dosya yine veri alamıyor. Şu anda yaptığınız çalışmada sadece son açılıp kapanan dosyadan veri okuyor.

Tekrar ilgilenirseniz çok sevinirim.

Tarık

Bağlantıları düzenle command bardan nereden yapılıyor?
Onu söylerseniz makro kaydet ile makroyu alıp benim kodlarıma ilave ederim.
Aslında bunu sizde yapabilirsiniz.

 

[tarikay]

çözdüm makroyu kendim yaptım.
teşekkürler
eline sağlık

 

[Orion1]

çözdüm makroyu kendim yaptım.
teşekkürler
eline sağlık

Rica ederim.
İyi çalışmalar.

 

[tarikay]

Sayın Evren;

Size klasörün son halini gönderiyorum.

İstediğim şu;

Tüm bu dosyalar açılıp kapanırken bunların ekranda görünmemesi yada bunların yerine mesela bir yazının belirmesi yada bu yazının yazıldığı word sayfasının görünmesi. "ŞU ANDA DOSYANIZ GÜNCELLENİYOR. LÜTFEN BEKLEYİNİZ" gibi. Çok mu şey istedim. Şimdiden teşekkürler

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Sayın Evren;

Size klasörün son halini gönderiyorum.

İstediğim şu;

Tüm bu dosyalar açılıp kapanırken bunların ekranda görünmemesi yada bunların yerine mesela bir yazının belirmesi yada bu yazının yazıldığı word sayfasının görünmesi. "ŞU ANDA DOSYANIZ GÜNCELLENİYOR. LÜTFEN BEKLEYİNİZ" gibi. Çok mu şey istedim. Şimdiden teşekkürler

Ekli dosyayı inceleyiniz.
Updatelink olayı tamada yalnız bir dosyada fazla link var sanırım onu halledemedik.
Ama diğer konular tamamdır.

 

[tarikay]

Sayın Evren;

Dosyayı inceledim. Ama makro çalıştıktan sonra yine başv. hatası veriyor. Yani benim gönderdiğim şekilde olduğu gibi çalışmıyor. Tekrar ilgilenirseniz sevinirim

Ekli dosyayı inceleyiniz.
Updatelink olayı tamada yalnız bir dosyada fazla link var sanırım onu halledemedik.
Ama diğer konular tamamdır.

 

[Orion1]

Sayın Evren;

Dosyayı inceledim. Ama makro çalıştıktan sonra yine başv. hatası veriyor. Yani benim gönderdiğim şekilde olduğu gibi çalışmıyor. Tekrar ilgilenirseniz sevinirim

Başvuru dosyayı bulamıyorsa veriyordur.
Dosyaların formüllerde verdiğiniz klasörlerde olup olmadığını kontrol ediniz.