- Katılım
- 19 Ocak 2005
- Mesajlar
- 940
- Excel Vers. ve Dili
-
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar hepinize iyi ginler benim sorunum aşağıdaki kod ile ilgili bu kod sayfayı kapamıyo arkadaşlar neden olabilir sizce? Form1 i kapatıyo ancak diğer 2 formumda kullandım onları kapatmıyo.
Private Sub CommandButton4_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("Form'dan cikmak istediginize eminmisiniz?", vbQuestion + vbYesNo, "UYARI...!!!")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then buttkapat.SetFocus
End Sub
Private Sub CommandButton4_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("Form'dan cikmak istediginize eminmisiniz?", vbQuestion + vbYesNo, "UYARI...!!!")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then buttkapat.SetFocus
End Sub