İptal tuşuna basarsa makro çalışmasın

[bmutlu966]

Private Sub CommandButton1_Click()
  Dim Gözat As String
    
    Gözat = Application.GetOpenFilename("Excel Dosyası (*.xls),*.xls", , "Excel Dosyası Aç")
    
    If Not Gözat = "False" Then
    Workbooks.Open Filename:=Gözat
    End If

UserForm1.Hide

Muhasebe_Daily 'moduldeki makro

End Sub

Yukarıdaki kodlar ile form üzerindeki buton yardımıyla herhangi bir Excel dosyası açmak için Aç penceresini açtırıyorum. Bir excel dosya seçip Tamam tuşuna basınca makroyu çalıştırıyor. Ancak Aç penceresinde dosya seçmekten vazgeçip İptal tuşuna bastığımda da makro çalışıyor.

Nasıl bir if kontrolü koymam gerekiyor ki iptal e bastığımda End olsun.

 

[bedersu]

Sayın bmutlu966,
End if'ten hemen sonra aşağıdaki kodları ekleyin:

If Gözat = "False" Then End

 

[bmutlu966]

bedersu kardeşim çok saol.