Commandbutton

[enes2000eren]

arkadaşlar textbox4 teki dosya ismini commandbottonla açtırmak istiyorum.yardım eder misiniz?
textbox4 deki veriler "dosya" isimleri sürekli değişken
textbox4="D:\ESKİ YAZIŞMALAR\MALİYE YAZIŞMALARI.xlsm"
commandbuttonun kod bölümüne
Call asd yazdım
modüle de
Sub asd()
Workbooks.Open Filename:="TextBox4"
End Sub

 

[Ferhat Pazarçevirdi]

Modüldeki kodunuzu parametrik hale getirin. Şöyle ki;

Sub asd([COLOR=red]dosyayolu As String[/COLOR])
Workbooks.Open Filename:=[COLOR=red]dosyayolu[/COLOR]
End Sub

Daha sonra CommanButton'un kodlarını da şöyle revize edin.

Private Sub CommandButton1_Click()
'........
' KODLARINIZ
'........
[COLOR=red]Call asd(TextBox4)[/COLOR]
'........
'........
End Sub

 

[enes2000eren]

Sayın Ferhat Pazarçevirdi kodlarınız bölümünü anlamadım.nasıl bir kod yazmalıyım.yardım edebilir misiniz?tşk.

 

[Ferhat Pazarçevirdi]

Pardon, bir yeri atlamışım. "Textbox4" kalmış modulde... Değiştirdim. Yukarıdaki mesaja tekrar bakın.

Varolan kodlarınızı yukarıda anlattığım gibi değiştireceksiniz sadece ...