userden dosya ismi verme

[yahaci]

sevgili arkadaşlar userform'daki textbox'a yazdığım isim çalışma kitabı adı olsun istiyorum bu konuda yardımcı olabilecek arkadaş varsa sevinirim saygılar

 

[yahaci]

sevgili arkadaşlar userform'daki textbox'a yazdığım isim çalışma kitabı adı olsun istiyorum bu konuda yardımcı olabilecek arkadaş varsa sevinirim saygılar

 

[yahaci]

arkadaşlar dosya ektedir üzerinde olursa sevinirim

 

[Mehmet Şahin]

Merhaba,
dosyayı incelermisiniz, iyi çalışmalar.

 

[yahaci]

sevgili hocam çok teşekkürler ilginize elinize sağlık yaptığınız dosyayı inceledim benim isteğim birazdaha farklıydı ilgilenirseniz sevinirim bu doyanın ismi değişecek ama yeni bir dosya açmayacak saygılar

 

[Mehmet Şahin]

Merhaba button1 kodlarını aşağıdaki ile değiştirip denermisiniz, kolay gelsin.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
    MsgBox "Dosya adı girin!"
    TextBox1.SetFocus
    Else
    On Error GoTo son
       eski = ThisWorkbook.Name
       ActiveWorkbook.SaveAs TextBox1 & ".xls"
    Kill eski & ".xls"
 End If
son:
End Sub

 

[yahaci]

hocam teşekkürler sonuç başarılı elinize sağlık