msgbox yes no cancel

[Rıdvan01]

selam arkadaşlar

Private Sub CommandButton3_Click()
cvp = MsgBox("Sipariş kayıt formu kapatılıyor" & vbCrLf & "Desen kayıt formu açılsınmı?", vbYesNoCancel + vbQuestion)
If cvp = vbYes Then
Sheets("SAYFA1").Select
Unload UserForm2
UserForm4.Show
Else
Sheets("form aç").Select
Application.Visible = True

End
End If
End Sub


msgbox penceresine Cancel butonu ekledim
cancel butonuna bastığımda sadece mesaj penceresi kapansın.
yukarıdaki kodlara nasıl ilave edilir?

 

[Mahmut Bayram]

Dim cvp As Long
cvp = MsgBox("Sipariş kayıt formu kapatılıyor" & vbCrLf & "Desen kayıt formu açılsınmı?", vbYesNoCancel + vbQuestion)
If cvp = vbYes Then
Sheets("SAYFA1").Select
Unload UserForm2
UserForm4.Show
End If
If cvp = vbNo Then
Sheets("form aç").Select
Application.Visible = True
End If
If cvp = vbCancel Then
End If

 

[Rıdvan01]

Dim cvp As Long
cvp = MsgBox("Sipariş kayıt formu kapatılıyor" & vbCrLf & "Desen kayıt formu açılsınmı?", vbYesNoCancel + vbQuestion)
If cvp = vbYes Then
Sheets("SAYFA1").Select
Unload UserForm2
UserForm4.Show
End If
If cvp = vbNo Then
Sheets("form aç").Select
Application.Visible = True
End If
If cvp = vbCancel Then
End If

sn Mahmutt
ilgin için teşekkür ederim fakat bu şekilde olmadı

cvp= yes (boğru) ğörevi yapıyor
cvp= cancel (doğru) görevi yapıyor
cvp= no (yanlış) görevini yapmıyor
no seçtiğimde userform2 End Application.Visible = True olması gerek

 

[Zeki Gürsoy]

Ardarda If yerine Select Case kullanmak çoğu zaman daha uygun olur.

Private Sub CommandButton3_Click()
Dim cvp As Long

cvp = MsgBox( _
        "Sipariş kayıt formu kapatılıyor" & vbCrLf & _
        "Desen kayıt formu açılsınmı?", vbYesNoCancel + vbQuestion)
        
    Select Case cvp
        Case vbYes
            Sheets("SAYFA1").Select
            Unload UserForm2
            UserForm4.Show
        Case vbNo
            Sheets("form aç").Select
            Application.Visible = True
        Case vbCancel
            '.?
            '.?
    End Select
    
End Sub

 

[Rıdvan01]

sn anemos
ilgin için teşekkür ederim
fakat ben derdimi anlatamıyorum
hayır (no) seçtiğimde userform2 kapanması gerek
benim yukarıda verdiğim kodlarda böyle oluyor
fakat siz cancel komutunu eklediğinizde cancel çalışıyor yani hiçbirşey yapmıyor burası tamam
no seçtiğimde userform2 kapanmıyor

unload.me ekledim hata veriyo

 

[Rıdvan01]

Private Sub CommandButton3_Click()
Dim cvp As Long

cvp = MsgBox( _
"Sipariş kayıt formu kapatılıyor" & vbCrLf & _
"Desen kayıt formu açılsınmı?", vbYesNoCancel + vbQuestion)

Select Case cvp
Case vbYes
Sheets("SAYFA1").Select
Unload UserForm2
UserForm4.Show
Case vbNo
Unload UserForm2
Sheets("form aç").Select
Application.Visible = True
Case vbCancel
'.?
'.?
End Select

End Sub

teşekkür ederi bu şekilde oldu

 

[Mahmut Bayram]

Dim cvp As Long
  cvp = MsgBox("Sipariş kayıt formu kapatılıyor", vbYesNoCancel)
  Select Case cvp
    Case vbYes
        Sheets("SAYFA1").Select
        Unload UserForm2
        UserForm4.Show
    Case vbNo
        Sheets("form aç").Select
        Application.Visible = True
    Case vbCancel
        '......kodlar
  End Select

şeklinde deneyiniz...