Kapalı dosyadan veri alma

[esraf]

Açık dosyanın rapor sayfasındaki AG5 Kutusuna kapalı dosyanın toplam sayfasındaki E5 kutusundaki veriyi aktarmak istiyorum.yardımcı olursanız çok sevinirim.teşekkürler.

 

[Korhan Ayhan]

Merhaba,

İki dosyayı açın.
AÇIK isimli dosyanızda AG5 hücresine aşağıdaki formülü uygulayın.

=[kapalı.xls]TOPLAM!$E$5

Eğer makro ile bu veriyi almak isterseniz iki dosyayı da aynı klasör altına alın. Daha sonra aşağıdaki kodu deneyin.

Sub VERİ_AL()
    Dosya_Yolu = ThisWorkbook.Path & "\"
    Sayfa_Adi = "TOPLAM"
    Range("AG5").Value = Application.ExecuteExcel4Macro("'" & Dosya_Yolu & "[kapalı.xls]" & Sayfa_Adi & "'!R5C5")
End Sub

 

[esraf]

Tşk ederim yardımlarınız için.Ancak yaptığımda sürekli güncelleme uyarısı veriyo nasıl devre dışı bırakabilirim bulamadım.yardımcı olursanız çok sevinirim

 

[Korhan Ayhan]

Excelin yardımından alıntıyı inceleyin.

Uyarıya her defasında aynı yanıtı veriyorsanız ve uyarıyı yeniden görmek istemiyorsanız

Başlatma uyarısını tutarlı biçimde yanıtlayabilir ve uyarının bu çalışma kitabında görüntülenmemesini sağlayabilirsiniz.

Nasıl?

Açtığım tüm çalışma kitapları için bana sormadan bağlantıları otomatik olarak güncelleştir

Bu seçenek yalnızca geçerli kullanıcı içindir ve açılan her çalışma kitabını etkiler. Çalışma kitabının diğer kullanıcıları etkilenmez.

Araçlar menüsünden Seçenekler'i tıklatın, sonra Düzen sekmesini tıklatın.

Bağlantıları otomatik olarak güncelleştirmek için sor onay kutusunu temizleyin. Bu kutu temizlendiğinde bağlantılar otomatik olarak güncelleştirilir ve uyarı görüntülenmez.

Çalışma kitabının tüm kullanıcıları için aynı şekilde istemde bulun

Uyarı Bu uyarı çalışma kitabının tüm kullanıcılarını etkiler. Bağlantıları güncelleştirmemeyi ve soru sormamayı seçerseniz, çalışma kitabı kullanıcıları verilerin eskimiş olduğunu bilmeyecektir.

Düzen menüsünde Bağlantılar'ı tıklatın.

Başlangıç Komutu'nu tıklatın.

İstediğiniz seçeneği seçin.

Not Bağlantı kesildiğinde size bildirilecektir.

 

[esraf]

çok tşk ederim yaptım..ellerinize sağlık ..iyi seneler bu arada