• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Thisworkbook.path

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
tukayf

tukayf

Yeni Üye
Katılım
19 Eyl 2022
Mesajlar
528
Çözümler
19
Aldığı beğeni
143
Excel V
Office 2019 TR
Konu Sahibi
Merhabalar. Çalıştığımız projede direk dosya yolu tanımlamak ağ değiştiğinde sürekli kod değiştirmek zorunda kalmamıza sebep oluyor. Bunun yerine thisworkbook.path\a klasoru\c.xls gibi tanımlama mümkün mudur
 
Tarihe göre sırala Oylara göre sırala
Yol=thisworkbook.path & "\a klasoru\c.xls" gibi yazılabilir
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Bugün epey uğraşıp doğru sonuç alamamıştım yarın tekrar bu şekilde deneyeyim. Çok teşekkürler hocam.
 
Olumlu oy 0 Negatif oyla
ben
tukayf' Alıntı:
Bugün epey uğraşıp doğru sonuç alamamıştım yarın tekrar bu şekilde deneyeyim. Çok teşekkürler hocam.
Genişletmek için tıkla...
bugün deneme yanılma yolu ile yaptım aşağıdaki kodu dene istersen kırmızı alanı kendine göre değiştir.
Sub FirmaAc()
On Error GoTo HataKontrol
Dim wb1 As Workbook
Application.ScreenUpdating = False

Set wb1 = Workbooks.Open(ThisWorkbook.Path & "\Firmalar" & "\" & A_acilis.TxFirmaKodu.Value & ".xlsm")

Application.ScreenUpdating = True

Exit Sub
HataKontrol:
MsgBox Err.Description
Resume son
son:

End Sub
 
Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst