- Katılım
- 19 Ocak 2005
- Mesajlar
- 940
- Excel Vers. ve Dili
-
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar aşağıdaki kod excel i o an için kapatıyo ama başka bir excel sayfası açtığımda kapattığımı sandım excel sayfası meğer açıkmış kodda ne gibi bir düzeltme gerekiyor? yardım edermisiniz.
Private Sub CommandButton2_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("2006 Yılı Resmi Sağlık Kurumları Fiyat Tarifesi Programından Çıkmak İstediğinizden Eminmisiniz ?", vbQuestion + vbYesNo, "UYARI...!!!")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then buttkapat.SetFocus
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("2006 Yılı Resmi Sağlık Kurumları Fiyat Tarifesi Programından Çıkmak İstediğinizden Eminmisiniz ?", vbQuestion + vbYesNo, "UYARI...!!!")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then buttkapat.SetFocus
End Sub