kaydet ve sadece çalışma sayfasını kapatmak

[dbicer83]

çalışma sayfasında yazılacak makro ile sadece işlem yapılan çalışma kitabını kaydedip çalışma sayfasını kapatmasını istiyorum yardımcı olabilirmisiniz.

 

[uzmanamele]

merhaba
bu kodu denermisiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Save
Sheets("Sayfa1").Select
End Sub

 

[dbicer83]

Buton yardımıyla yapılmasını istiyorum ama. Bu kodu butona atayabilirmiyiz.

 

[dbicer83]

Konu anlaşılmamış olabilir mi?

 

[hurkanpisirici]

merhabalar bu kod işinize yararmı

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
ActiveWorkbook.Close True
End Sub

 

[dbicer83]

merhabalar bu kod işinize yararmı

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
ActiveWorkbook.Close True
End Sub

kaydetmede yapacak yalnız?

 

[hurkanpisirici]

bide bunu denermisiniz?

Private Sub CommandButton1_Click()
ActiveWorkbook.Close True
End Sub

 

[ECYavuz]

Sub Çıkış()
Worksheets("Sayfa1").Visible = False ' True
ThisWorkbook.Close SaveChanges:=False ' True
End Sub