For next döngüsünde mesaj hatası

[okankoc25]

Userform da yazdığım tarihlerin birbiriyle çakışması durumunda mesajla bildirsin istiyordum fakat mesaj hatası arka arkaya en az 10 defa çıkıyor neden olduğunu anlayamadım.kod aşağıda

Private Sub ComboBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
For X = 4 To 60 Step 2
For y = 5 To 61 Step 2
If CDate(ComboBox6.Text) >= CDate(Controls("ComboBox" & X)) And CDate(Controls("ComboBox" & y)) _
<= CDate(ComboBox6.Text) Then
MsgBox "GİRDİĞİNİZ TARİHİ KONTROL EDİN!"
End If
Next y
Next X

End Sub

 

[Korhan Ayhan]

Döngüyü durdurmadığınız için bu şekilde oluyor.

Msgbox satırından hemen sonrasına "Exit Sub" yazıp deneyin.

 

[okankoc25]

olmadı dosyam ekte bakmak isterseniz.

 

[Korhan Ayhan]

Ben size "Exit Sub" yazın dedim siz başka şeyler yapmışsınız. Böyle olunca tabiki kod sonuç vermiyor.

Aşağıdaki kodu deneyiniz.

Private Sub ComboBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    For a = 6 To 61
    If Controls("Combobox" & a) > CDate(ComboBox3) + 6574 Then Exit For
    MsgBox "DİKKAT!GİRDİĞİNİZ TARİHTE ŞAHIS 18 YAŞINDAN KÜÇÜK"
    Next a
    
    For X = 4 To 60 Step 2
    For y = 5 To 61 Step 2
    If CDate(ComboBox6.Text) >= CDate(Controls("ComboBox" & X)) And CDate(Controls("ComboBox" & y)) _
            <= CDate(ComboBox6.Text) Then
    MsgBox "GİRDİĞİNİZ TARİHİ KONTROL EDİN!"
    Exit Sub
    End If
    Next y
    Next X
End Sub

 

[okankoc25]

Eline sağlık üstad.......