Msgbox

[mesutaygun70]

Sub MSG()
Dim Mesaj As String
Sheets("VERİ").Select
If [S10] >= 0 Then Call MAKRO11
If [S10] >= 1 Then
Mesaj = MsgBox("DOSYA NO'LARDA TUTARSIZLIK VAR YİNEDE KOPYALAMA YAPILSIN MI", vbYesNo + vbQuestion)
If Mesaj = vbNo Then
Exit Sub
Else
Call MAKRO11
End If
End If
End Sub

Yukardaki gibi kodum var. S10 >= 1 den büyükse sıkıntı yok ama 0 ise "If Mesaj = vbNo Then" sarı oluyor.
Galiba "If [S10] >= 0 Then Call MAKRO11 " arkasına end sub eklemem gerek ama nasıl yapacağımı bulamadım.

 

[veyselemre]

S10 SIFIRSA MAKRO11 ÇALIŞŞIN 1 EŞİT VE BÜYÜKSE SORARAK ÇALIŞSIN .

Sub MSG()
    Dim Mesaj As String
    Sheets("VERİ").Select
    If [S10] = 0 Then
        Call MAKRO11
    ElseIf [S10] >= 1 Then
        Mesaj = MsgBox("DOSYA NO'LARDA TUTARSIZLIK VAR YİNEDE KOPYALAMA YAPILSIN MI", vbYesNo + vbQuestion)
        If Mesaj = vbNo Then
            Exit Sub
        Else
            Call MAKRO11
        End If
    End If
End Sub

 

[mesutaygun70]

Teşekkürler