Soru UserForm Kapatılınca Kaydedilip Dosya Kapanması

[veysikulte1]

Merhabalar.

auto Open ile UserForm açılıyor açılırken eklediğim kayıtlar userform u kapatınca otomatik kaydedilip userform kapanıncada excell arka planda açık kalmadan kapansın. nasıl yapabiliriz. userform u kapatıyorum tekrar açtığımda zaten açık uyarısı alıyorum excel e aktarılıyorum.

cevaplarınız için şimdiden teşekkürler.

 

[muygun]

Merhaba;
Userform'un kod bölümüne;

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
Application.Quit
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[veysikulte1]

Merhaba;
Userform'un kod bölümüne;

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
Application.Quit
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Hocam bu şekilde excell e dönmek istediğimde o zaman gene kapanıyor artık excell e dönemiyorum kopyasını almıştım. user form kapatınca kapansın ama buton a basarak excell e döndüğümde kapanmasın nasıl yapacaz.

 

[halit3]

Userforma bir adet komut duğmesi ekle

Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.Quit
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox ("Çıkış Düğmesini Kullanınız")
Cancel = 1
End If
End Sub

 

[veysikulte1]

teşekkürler hocam

 

[aywaz1986]

Merhaba bu kodları uyguladım fakat farklı bir Excell kapanınca bütün bütün açık olan exceller kapanıyor USERFORM dahil bunu nasıl çözebiliriz.