CommandButton

[ocamsul]

Arkadaşlar merhaba. heni bir çalışma sayfası oluşturdum. bu çalışma sayfasına çıkışta UserForm eşliğinde çıkmak istermisiniz diye bir mesaj oluşturdum. formun üzerinde evet, hayır düğmeleri var. her ikisine de bastığımda excel kapanıyor. benim isteğim bu düğmelerden evet e bastığımda çıkmak hayıra bastığımda ise excel in aktif olarak çalışıyor olmasını istiyorum. yardım edermisiniz.

 

[Levent Menteşoğlu]

Excel sayfanız gizlimi,yoksa sadece userformun exceli kapatmamasınımı istiyorsunuz.

 

[ocamsul]

leventm ben excel i kapatıyorum. sadece hayır dediğim zaman istediğim sayfada excel in aktif olarak kalmasını istiyorum. Sayfam gizli değil.

 

[Levent Menteşoğlu]

Bu durumda Hayır butonuna aşağıdaki gibi bir kod yazın. Burada hangi sayfayı istiyorsanız onun ismini yazabilirsiniz.

sheets("sayfa1").select
Unload.me

 

[ocamsul]

sheets("sayfa1").select dedikten sonra oluyor. ama ilgili sayfaya gidildiğinde Userform kapanmıyor. Unload Me de bir işe yaramıyor.

 

[Levent Menteşoğlu]

Unload.me hatalı yazmışım aradaki nokta olmayacak. Unload Me şeklinde yazın,bu şekilde mutlaka çalışacaktır.

 

[ocamsul]

Dosya ekte dediğiniz gibi yaptım ama olmuyor.excel den yine de çıkıyor.

 

[ocamsul]

Þifre OÇAMÞUL ve 2632 dir.

 

[Levent Menteşoğlu]

userform5'e gerek yok bence iptal edin ve thisworkbook sayfasındaki kodun yerine aşağıdakini yazmanız yeterlidir.
[vb:1:856f029dba]Private Sub Workbook_BeforeClose(Cancel As Boolean)
soru = MsgBox("Yaptığınız Değişiklikler Otomatik Olarak Kaydedilecektir. Değişiklikleri Kaydedip Programdan Çıkmak İstediğinizden Eminmisiniz?", vbYesNo)
If soru = vbNo Then
Cancel = True
Exit Sub
End If
ActiveWorkbook.Save
End Sub
[/vb:1:856f029dba]

 

[ocamsul]

leventm teşekkür ederim. yine harika ve çok hızlısınız.