UserForm'da Çalışma Kitabı Yolu

[cocoa35]

Arkadaşlar;
UserFormda Texbox içinde çalışma kitabı yolunun gözükmesini vede bu yolun otomatik olarak commandbuton düğmesine aktarılmasını istiyorum bu konuda yardımcı olurmusunuz lütfen..

 

[Murat OSMA]

Dosya yolu için; TextBox1.Text = thisworkbook.fullname

Butona aktarılmasını anlamadım ?

 

[Korhan Ayhan]

Merhaba,

Eğer istediğiniz işlemi doğru anladıysam aşağıdaki kodları kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Workbooks.Open Filename:=TextBox1.Text & "ornek7.xlsm"
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    TextBox1.Text = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
End Sub

 

[cocoa35]

Evet kod'lar tam istediğim gibi olmuş çok teşekkür ediyorum ellerinize ve aklınıza sağlık