Block If Without End İf hatası

[orislevin]

Merhaba hocalarım
Ekte verdiğim dosyada kaydet butonuna tıkladığımda Compile Error:Block If Without End İf hatası veriyor. Bütün verileri ve kodları inceledim ama hata nerde bulamadım.

 

[Selçuk1]

sn. orislevin;

söz konusu hatayı if ile başlayan eğer sorgularınızı end if ile bitirmediğiniz için alıyorsunuz. dosyanız ekte, inceler misiniz?

 

[orislevin]

Çok Çok teşekkür ediyorum size
sanıyorum 2. msmgbox tan sonra end if eklemeyi unutmuşum. yeni öğreniyorum
VBA yı oyüzden sorunların neden kaynaklandığı konusunda bazen zora düşebiliyorum. ama iyiki sizin gibiler var.
Tekrar çok teşekkürler