kaydet butonu

[onurceruz]

excelde hazırladığım sayfamın sonuna kaydet butonu koymak ve istediğim hedefe kaydetme işlemini yapmak istiyorum. bi kolay yolu yokmudur yada hazır bi kodu?

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?
Sub Makro1()
Workbooks("Kitap1.xls").Save
End Sub

 

[onurceruz]

hocam ilgin için çok teşekkür, ama bu makro işinde çok acemiyim bu kodu ne şekilde nereye yazıcaz ve kaydettiğimiz dosyayı nasıl belirleyebiliriiz.

 

[Seyit Tiken]

Basit olur düşüncesiyle ilkin bir "Metin Kutusu"nu çizin > Sağ Tıkla > Makro Ata > Yeni > "Workbooks("Kitap1.xls").Save " (tırnaksız) kodu çıkan kod pencresindeki alt ve üst şeklinde ibarelerin orta kısmına yapıştırın. "Kitap1.xls" şeklindeki ismi siz kendinize göre değiştirebilirsiniz. Aynı zamanda Metin Kutusunun içine "KAYDET" ibaresini de yazabilirsiniz.

 

[Zeki Gürsoy]

Çalışma kitabının adını bilmediğimiz için Workbooks("Kitap1.xls").Save yerine,
Thisworkbook.save kullanmak daha uygun olurdu.