Hücreden Çalışma Kitabını Seçmek

[mesutaygun70]

Dim yer As String
ThisWorkbook.Sheets("Sayfa2").Range("c3") = yer 'Giriş Çıkış Dökümü (1).xlsx

Workbooks.Open "\\10.242.25.***\Mer*****sim\Bilgi İşle*******atistik\İndirilen\ & yer"
End Sub

Yukarıdaki gibi kod yazmaya çalışıyorum "yer=Giriş Çıkış Dökümü (1).xlsx" ve Sayfa2 C3 hücresinde otomatik olarak açılacak çalışma kitabını bu hücreden almasını istiyorum ama yapamadım. Yardımınız için teşekkürler.

 

[bmutlu966]

Aşağıdaki gibi deneyin.


Dim yer As String
yer=ThisWorkbook.Sheets("Sayfa2").Range("c3") 'Giriş Çıkış Dökümü (1).xlsx
yol="\\10.242.25.***\Mer*****sim\Bilgi İşle*******atistik\İndirilen\"
Workbooks.Open yol & yer