DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
'Aşağıdaki satırda a1 yerine dosyaya ismini atıyacağı hücreyi belirtin.
dosya = Range("a1").Value & ".xls"
'Aşağıdaki satıra "C:\" kısmına klasörünüzün tam yolunu yazın.
ThisWorkbook.SaveAs ("C:\" & dosya)
End Sub