Komut düğmesi ile yolladığım işlemde exit sub deyince tüm işlemin durması

[hsayar]

Komut düğmesi ile yolladığım işlemde exit sub deyince tüm işlemin durması

Merhaba

Private Sub CommandButton1_Click()
SifreAc
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim a As String
Dim i As Integer
Dim Cevap
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
a = WorksheetFunction.Text(s1.Cells(2, 14), "ddmmyy")
AlisKontrol
    For i = 1 To Sheets.Count
        If Sheets(i).Name = a Then
        Cevap = MsgBox(aa & " tarihi için daha evvel işlem yapılmıştır, işlem yapmaya devam edecekmisiniz?", vbYesNo, "UYARI")
            If Cevap = vbYes Then
......
.....
....

butonuna tıklayınca Aşağıdaki AlisKontrola gidiyor...
görüleceği üzere eksiklik varsa exit sub ile bu döngüden çıkıyor....
Ancak diğer adım olan sayfa kontolüne geçiyor geçmeden tüm prosodürü nasıl durdurum?

Sub AlisKontrol()
SifreAc
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
'>>>>>>>>>>>>>>>>>>>>>>>>>depodan
For g = 7 To 15
     If s1.Cells(g, 11) = "" And (s1.Cells(g, 12) <> "" Or s1.Cells(g, 13) <> "" Or s1.Cells(g, 14) <> "" Or s1.Cells(g, 15) <> "") Then
    MsgBox "Fiş No alanı boş bırakılamaz"
    s1.Cells(g, 11).Select
    Exit Sub
    Else
    End If
 Next
'<<<<<<<<<<<<<<<<<<<<<<<<<
SifreKapa
End Sub

 

[Ferhat Pazarçevirdi]

AlisKontrol prosedürünü Function'a döndürün. Böylelikle bir değer elde edersiniz. Bu değere göre de diğer prosedürü yönetirsiniz.

Not : Kodlarınızda yapılan değişiklikler renklendirilmiştir.

Şöyle ki :

Private Sub CommandButton1_Click()
SifreAc
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim a As String
Dim i As Integer
Dim Cevap
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
a = WorksheetFunction.Text(s1.Cells(2, 14), "ddmmyy")
[COLOR=red]If AlisKontrol = True Then[/COLOR]
    For i = 1 To Sheets.Count
        If Sheets(i).Name = a Then
        Cevap = MsgBox(aa & " tarihi için daha evvel işlem yapılmıştır, işlem yapmaya devam edecekmisiniz?", vbYesNo, "UYARI")
            If Cevap = vbYes Then
......
.....
....
[COLOR=red]End If[/COLOR]

Function AlisKontrol()[/COLOR]
SifreAc
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
'>>>>>>>>>>>>>>>>>>>>>>>>>depodan
For g = 7 To 15
    If s1.Cells(g, 11) = "" And (s1.Cells(g, 12) <> "" Or s1.Cells(g, 13) <> "" Or s1.Cells(g, 14) <> "" Or s1.Cells(g, 15) <> "") Then
    MsgBox "Fi&#351; No alan&#305; bo&#351; b&#305;rak&#305;lamaz"
    s1.Cells(g, 11).Select
[COLOR=blue]   AlisKontrol = False[/COLOR]
[COLOR=blue]   Exit Function[/COLOR]
    Else
    End If
 Next
[COLOR=blue]AlisKontrol = True[/COLOR]
'<<<<<<<<<<<<<<<<<<<<<<<<<
SifreKapa
[COLOR=blue]End Function[/COLOR]

 

[hsayar]

teşekkür ederim sayın fpc