TextBox'a değer almak

[kmlpyrz]

Private Sub ComboBox1_Change()
TextBox1.Value = "D:\tiglioglu_insaat\musteri\[" & ComboBox1 & ".xls]A'!D1"
End Sub
Yukarıda yazdığım kod bana sadece dosya yolunu veriyor. Ben o yolun başvurduğu hücredeki değeri almak istiyorum. Kod üzerinde nasıl bir değişiklik yapmam gerekiyor. Yardımlarınızı bekliyorum. İyi çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub ComboBox1_Change()
TextBox1.Value =ExecuteExcel4Macro("'D:\tiglioglu_insaat\musteri\[" & combobox1 & "]A'!R1C4")
End Sub

 

[kmlpyrz]

Teşekküreder. Çalışmalarınızda başarılar dilerim.