kaydet ve çık butonu

[mtbi00]

iyi günler

Sayfanın içerisine buton koyarak sayfayı kaydedip çıkmak için nasıl bir makro lazım. Açılan sayfanın her seferinde excelin kapat düğmesine tıklayarak ve kaydet penceresinde evet diyerek çıkmatansa bir buton yardımıyla bunu nasıl yapabilirim. Teşekkürler.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub kaydet_cık()
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

 

[mtbi00]

çok teşekkür ederim aradığım buydu..

 

[taha413]

merhabalar bu buton işi işimi cok rahatlatır ama nasıl yapıcamı bilmiyorum yardımcı olurmusunuz excel hk. ilgim ve bilgim var eger yardımcı olmak isteyen varsa sevinirim

 

[uzmanamele]

merhabalar bu buton işi işimi cok rahatlatır ama nasıl yapıcamı bilmiyorum yardımcı olurmusunuz excel hk. ilgim ve bilgim var eger yardımcı olmak isteyen varsa sevinirim

merhaba
excel dersanesinde birçok kaynak mevcut, ayrıca binlerce soru-cevap inceleyebilirsiniz.

tık tık tık

tık tık tık

 

[Brc Yazılım]

Örnek bi tane ekledim işinize yarar umarım

 

[Brc Yazılım]

Buda değişik bir kodla yapılmışı kaydettikten sonra sayfadan komple çıkar

 

[mithatgokceli]

merhaba arkadaşlar, kaydet ve çık kodu güzel ama bazen kaydetmeden çıkmak gerekebiliyor, onun için kaydetmeden önce sormasını için nasıl bir kod yazabiliriz.. iyi çalışmalar...

 

[mithatgokceli]

Yardımlarınızı bekliyorum arkadaşlar...

 

[mithatgokceli]

merhaba arkadaşlar,
kaydet kapat butonuna tıkladığımda önceden sormasını nasıl sağlayabilirim. lütfen yardımcı olunuz. iyi çalışmalar....

 

[osmancig]

merhaba arkadaşlar,
kaydet kapat butonuna tıkladığımda önceden sormasını nasıl sağlayabilirim. lütfen yardımcı olunuz. iyi çalışmalar....

o zaman sen de normal kapat düğmesine basıp soruya hayır dersin olur biter

 

[mithatgokceli]

teşekkür ederim osmancig, bilmiyordum

 

[afetidelala]

merhaba

arkadaşlar elimde makrolu bi dosyamın küçük bi kısmı var 1 hafta öncesine kadar normal bi şekilde çalışıyordu fakat şimdi çok sıkıntılı çalışıyor ayrıca bu makronu değşik şekillerini kullandığım bi çok dosya var ve hepsindede kaydet çık butonu nu kullandığım zaman ya hata alıyorum yada garip garip bişeyler söylüyor dosyanın onarılması gerektiğini filan onar dediğimdede onarılacak bişeyin bulunadığını söylüyor garip bi durum yani yardımcı olabilecek misiniz acaba arkadaşlar şimdiden teşekkürler.


Private Sub CommandButton1_Click()
UserForm7.Hide
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String

Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Aktif_Dosya_Adı = ThisWorkbook.FullName
Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, "", "")

Kayıt_Yeri = "G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\" & Yedek_Dosya_Adı

ThisWorkbook.Save

On Error Resume Next
If Dir("G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\") = "" Then MkDir ""
DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri

MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Yedek_Dosya_Adı, vbInformation, "CELL_O"

cevap = MsgBox(" DOSYA KAPATILACAK DEĞİŞİKLİKLER KAYDEDİLSİN Mİ ? ", vbYesNoCancel, "CELL_O")
If cevap = vbCancel Then Exit Sub
If cevap = vbNo Then Application.Quit
If cevap = vbYes Then
ActiveWorkbook.Save
Application.Quit
End If
End Sub

Private Sub CommandButton4_Click()
UserForm7.Hide
UserForm8.Show
End Sub

Private Sub CommandButton6_Click()
UserForm7.Hide
LOGİN3.Show
End Sub




Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then MsgBox "BURADAN ÇIKAMAZSIN TOSUN": Cancel = True
End Sub