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
-
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.
-
Merhaba Hüseyin Bey.
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
-
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.
-
Merhaba Mehmet Bey,
Komut satırlarından şunu çıkartıp deneyin;
ActiveSheet.Copy