-
Foruma hoş geldin 👋 Ziyaretçi
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 tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Thisworkbook.path
- Konuyu Başlatan tukayf
- Başlangıç tarihi
- Cevaplar : 4
- Gösterim : 725
-
- Etiketler
- thisworkbook.path
Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Çözüm
tukayf
Yeni Üye
Konuyu Başlatan
Bugün epey uğraşıp doğru sonuç alamamıştım yarın tekrar bu şekilde deneyeyim. Çok teşekkürler hocam.
turgay1983
Yeni Üye
ben
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
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
tukayf
Yeni Üye
Konuyu Başlatan
Yanıtlar için çok teşekkür ederim. Çözüme ulaştık.
- Durum