Sayfayı farklı kaydetme makrosu

[Hüseyin Çoban]

Merhaba Arkadaşlar,

Giriş Sayfasında, "Mahsup Farklı Kaydet" butonunu tıkladığımda,
Mahsup sayfasını farklı kaydetmeli. Ancak farklı kaydet işleminden sonra çalıştığı dosya üzerinden devam etmeli.
"farklı kaydet işlemi başarıyla gerçekleşti" diye uyarı vermeli.

Sayfayı C:\yedek\ bir sonraki klasör ismini H10 hücresinden almalı ve dosya ismini H9 hücresinden almalı.

Yardım ve fikirlerinizi bekliyorum.

[Bülent Öztürk]

Merhaba Hüseyin Bey.

Kod: [Seç]

Sub ExcelceSayfaFarkliKaydet()
isim = ThisWorkbook.ActiveSheet.Range("H9").Value
klasor = ThisWorkbook.ActiveSheet.Range("H10").Value

ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\yedek\" & klasor & "\" & isim & ".xls"
.Close
End With
MsgBox "İşlem tamam.", vbInformation, "Excelce.Net"
End Sub


[hariciyeci]

Merhaba Bülent Bey
Aşağıda verdiğiniz kodda excel dosyasının tamamını aynen kaydetmek istesek, kodları nasıl değiştirmeliyiz?
Yardımcı olursanız memnun olurum.

[Bülent Öztürk]

Merhaba Mehmet Bey,

Komut satırlarından şunu çıkartıp deneyin;
ActiveSheet.Copy