Bu kodlardaki Hata nedir?

[INSMUH]

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?

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..

If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

 

[ALPEN]

[vb:1:8fe929d452]Private Sub Kapat_Click()
Dim Soru As String
Soru = MsgBox("Yeni Kayıt Formundan Çıkmak İstiyor Musunuz?", vbQuestion + vbYesNo, "Uyarı")
If Soru = vbYes Then Unload UserForm1
End Sub[/vb:1:8fe929d452]
[vb:1:8fe929d452]
Soru = MsgBox("Sorunuz buraya?", vbYesNoCancel, "Soru")
Select Case Soru
Case vbYes
'evet
Case vbNo
'hayır
Case vbCancel
'iptal
End Select[/vb:1:8fe929d452]

 

[INSMUH]

1-ilk gönderdiğiniz kodu olduğu gibi yapıştırıyorum ama alttaki kod sarı oluyor?

Unload UserForm1

Ben userformu direk sayfadan tıklayarak çağırıyorum, userform1 üzerinden düğme ile 2. useformu çağırdığımda size göndermiş olduğum

Private Sub CommandButton5_Click()
  On Error Resume Next
    Dim Soru As String
        Soru = MsgBox("Ara Bul Formundan Çıkmak İstiyor Musunuz?", vbQuestion + vbYesNo, "Uyarı                                  KONTROL ÞUBE")
    If Soru = vbYes Then Unload UserForm1
    If Soru = vbNo Then Kapat.SetFocus
    Application.Visible = True
Unload Me
    End Sub

kodlar sorunsuz çalışıyor, 1.userformun kapat düğmesinde de aynı kodlar var ama 2. tıklayışımda kapanıyor. bunun için hide komutu kullanılabilir mi?


2-Ben göndermiş olduğunuz kodları aşağıdaki bloğa eklemek istedim ama Select Case ile olduğundan yapamadım, Dersaneyede baktım yine olmadı. İptal tuşunu aşağıdaki bloğa eklemek istiyorum.

Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÃ?RÜÞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"WWW._______.GOV.TR / +90 366 000 00 00" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "İyi Çalışmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

 

[bekir38]

birinci sorunuz bende de aynısını yapıyor,
ama ikincisi şöyle olabilir.

Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÃ?RÜÞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"WWW.kastamonutarim.GOV.TR / +90 366 214 84 00" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "Kastamonu Tarım İl Müdürlüğü Kontrol Þube İyi Çalışmalar Diler." & Chr(10) & Chr(10))
Soru = MsgBox("Dosyanızın kaydedilmesini istiyor musunuz?", vbYesNoCancel, "UYARI")
Select Case Soru
Case vbYes
'evet
Case vbNo
'hayır
Case vbCancel
'iptal
End Select

If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

iyi çalışmalar,

 

[INSMUH]

Bekir Bey, Her zamanki gibi yardımalrınız için ÇOK TEÞEKKÜRLER. :bravo: