Çalışma sayfasını farklı kaydetmek

[sadece_erhan]

Merhaba,

"günlük" isimli çalışma sayfasındaki butona bastığımda,

çalışma kitabının sadece "günlük" sayfasındaki değer ve biçimlerin (yanlızca görünür hücreler) sayfadaki mevcut makro ve butonlar silinerek xlsx formatında, "d:\rapor\haftalık raporlar\" altına dosya adını "silmeyin" isimli sayfanın j2 ve j3 hücrelerinden aldığı değerlere göre kaydeden bir makroya ihtiyacım var. bir de kaydetmeden önceki hali açık olarak çalışmaya devam edicek.

 

[Emir Hüseyin Çoban]

. . .

Günlük sayfasında formüller ile gelen değerler var mı.

. . .

 

[sadece_erhan]

evet, var.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Deneme yapabilmek için dosya yolunu aktif tabloya göre ayarladım.
Siz yeşil yol satırını aktif edip, diğerini iptal ederek kullanabilirsiniz.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/u9rp5S8zaB3vX

Sub kod()
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    [COLOR="Green"]'yol="d:\rapor\haftalık raporlar\"[/COLOR]
    yol = ThisWorkbook.Path & "\"
    isim = Sheets("silmeyin").Range("J2").Value & Sheets("silmeyin").Range("J3").Value
    
    Sheets("günlük").Copy
    ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
    Cells.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveWindow.Close True
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox " B i t t i "
End Sub

. . .

. . .

 

[sadece_erhan]

teşekkür ederim, ellerinize sağlık

 

[sadece_erhan]

merhaba tekrar, bu kodla günlük sayfasını kaydediyordum ama artık adı günlük sayfanın adı başka bir makro ile otomatik değişiyor.

Sheets("günlük").Copy
    ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

kısmında ya da kodun tamamında sadece butona bastığım sayfanın yani aktif sayfanın kaydedilmesi için nasıl bir değişiklik yapmam gerekiyor.

 

[Emir Hüseyin Çoban]

. . .

ActiveSheet.Copy

. . .

 

[sadece_erhan]

Teşekkür ederm hocam, soylediğiniz gibi hallettim,

aynı kodu çalışma kitabındaki bütün sayfaları kaydedecek şekilde nasıl yapmalıyız?