Private Sub CommandButton1_Click()
ChDir "c:\belgelerim\FİRMALAR 2004 2005"
Dosya = Application.GetSaveAsFilename([a2].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub
yukardaki şeklinde butona kod yazdım, oldu. ama butonun adını farklı kaydet yapamıyorum. hala sayfada adı commandbutton1 görünüyor. ne yapmalıyım?
:dua: :dua: :dua:
ChDir "c:\belgelerim\FİRMALAR 2004 2005"
Dosya = Application.GetSaveAsFilename([a2].Value & ".xls")
If Dosya = False Then Exit Sub
ActiveWorkbook.SaveAs (Dosya)
End Sub
yukardaki şeklinde butona kod yazdım, oldu. ama butonun adını farklı kaydet yapamıyorum. hala sayfada adı commandbutton1 görünüyor. ne yapmalıyım?
:dua: :dua: :dua: