Düşeyara formülünde pc adını otomatik getirme

[sukru058]

Merhaba,
2 excel arasında düşeyara formülü çalıştırıyorum sayfaları kapatıp açtığımda veriyi aldığım dosyanın yolunu yazıyor formüle ben exceli başka bilgisayarda çalıştıramıyorum
bu dosya yolunu otomatik getirebilirmiyiz acaba bilgisi olan varmı?
örnek verecek olursak
=DÜŞEYARA(A1;'C:\Users\MUHASEBE\Desktop\ÇALIŞMA\[VERİ.xlsx]Sayfa1'!$A:$B;2;0)

C:\Users\MUHASEBE\Desktop\ bu yolu otomatik getirmek istiyorum klasörü farklı bilgisayara attığımda sorunsuz formül çalışsın

 

[Necdet]

Merhaba,
deneyiniz.

Sub MasaUstuAdres()

    Dim Adres As String
    Adres = CreateObject("WScript.Shell").specialfolders("Desktop")  & Application.PathSeparator
    MsgBox Adres

End Sub

 

[sukru058]

Merhaba,
deneyiniz.

Sub MasaUstuAdres()

    Dim Adres As String
    Adres = CreateObject("WScript.Shell").specialfolders("Desktop")  & Application.PathSeparator
    MsgBox Adres

End Sub

=DÜŞEYARA(A1;'C:\Users\MUHASEBE\Desktop\ÇALIŞMA\[VERİ.xlsx]Sayfa1'!$A:$B;2;0) kodu ekledim fakat bu formülün içinde nasıl kullanacağım

 

[Korhan Ayhan]

Merhaba,

Necdet beyin önerdiği kod ile adresi bir hücreye yazdırabilirsiniz.

Daha sonra DOLAYLI fonksiyonu ile birleştirerek kullanabilirsiniz.

Fakat şöyle bir sorun olur. DOLAYLI fonksiyonu ile veri almanız için başvurulan kitabın açık olması gerekir.