- Katılım
- 18 Ağustos 2005
- Mesajlar
- 85
- Excel Vers. ve Dili
- EXCEL 2003
- Altın Üyelik Bitiş Tarihi
- 28.01.2022
Merhaba arkadaşlar, yardımcı olursanız sevinirim..
1- ) Bunu userform daki kapat düğmesine yapıştırdım, kapat butonunu tıklayınca malum soruyu soruyor, evet dediğimde userformdan çıkmıyor ancak ikinci tıklayışımda kapatıyor sanırım hatam setfocus, döngü neden tekrar ediyor bulamadım?
2-)Aşağıdaki kodda "evet" ve "hayır" var. "iptal" de eklenebilir mi? İptal dediğimde işlem yapmasın ve kitabı kayıt etmeden kitaba geri dönsün..
1- ) Bunu userform daki kapat düğmesine yapıştırdım, kapat butonunu tıklayınca malum soruyu soruyor, evet dediğimde userformdan çıkmıyor ancak ikinci tıklayışımda kapatıyor sanırım hatam setfocus, döngü neden tekrar ediyor bulamadım?
Kod:
Private Sub Kapat_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("Yeni Kayıt Formundan Çıkmak İstiyor Musunuz?", vbQuestion + vbYesNo, "Uyarı")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then Kapat.SetFocus
Application.Visible = True
Unload Me
End Sub
2-)Aşağıdaki kodda "evet" ve "hayır" var. "iptal" de eklenebilir mi? İptal dediğimde işlem yapmasın ve kitabı kayıt etmeden kitaba geri dönsün..
Kod:
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub