Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Hüseyin Çoban - 18 Kasım 2010, 22:07:42

Başlık: Sayfayı farklı kaydetme makrosu
Gönderen: Hüseyin Çoban - 18 Kasım 2010, 22:07:42

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.

Başlık: Ynt: Sayfayı farklı kaydetme makrosu
Gönderen: Bülent Öztürk - 22 Kasım 2010, 09:13:14

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


Başlık: Ynt: Sayfayı farklı kaydetme makrosu
Gönderen: hariciyeci - 26 Nisan 2013, 12:08:56

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.

Başlık: Ynt: Sayfayı farklı kaydetme makrosu
Gönderen: Bülent Öztürk - 26 Nisan 2013, 16:01:26

Merhaba Mehmet Bey,

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