Makro ile Kitap Açmak

[eksoy]

Herkese Merhaba,
Sizlerden bir ricam olacak yine.Benim Masaüstünde ki Satış klasörünün içinde 10 adet (1.bölge satış - 10.bölge satış adında ) çalışma kitabım var.Bir diğer çalışma kitabımda da A1 hücresine validation olarak bu kitap isimlerini l(1.bölge, 2.bölge, - 10.bölge olarak )listeliyorum.İhtiyacım olan A1 hücresinden örneğin 5.bölgeyi seçtiğimde 5.bölge satış adlı çalışma sayfasını açacak kodu yazmak.Şimdiden teşekkürler...

 

[ozgretmen]

Seçiminizle A1 hücresine dosyanızın adının geldiğini varsayarak aşağıdaki kodu bir butona aktarıp ve çalıştırdığınızda ilgili çalışma kitabı açılacaktır.İyi çalışmalar..

Sub AC()
Workbooks.Open Filename:=ThisWorkbook.Path & "/" & [A1].Text & ".xls"
End Sub

 

[eksoy]

Teşekkürler.Elinize sağlık.

 

[ozgretmen]

Teşekkürler.Elinize sağlık.

Rica ederim.İyi çalışmalar.

 

[dragon44760]

D sürücüsün de bulunan kitabı makroyla açtırmak

Hocam aynı konuyla alakalı ben de bir şeyler bulmak için arama yapıyordum lakin aradığım kodu buldum. ben de D sürücüsünde olan dosyaları aynı yolla açtırmak istiyorum. Bu konuda da kod ekleyebilir misiniz_?
Şimdiden teşekkürler...

 

[ozgretmen]

Dosyanız D sürücüsünde ise aşağıdaki kodla dosyayı açabilirisniz.

Sub AC()
Workbooks.Open Filename:="D:/" & [A1].Text & ".xls"
End Sub

Eğer D sürücüsünde DEFTER isimli bir dosyanın içinde ise :

Sub AC()
Workbooks.Open Filename:="D:/DEFTER/" & [A1].Text & ".xls"
End Sub

İyi Çalışmalar....

 

[dragon44760]

Teşekkürler...

 

[ozgretmen]

Rica ederim.İyi çalışmalar...