End if Without Block If Hatası

[crion]

Herkese selamlar, küçük bir sorunum var:
Alttaki kodda if - end if kısmında hata veriyor, ancak neden hata verdiğini çözemedim, hatalı olduğunu sanmıyorum halbuki ama gel de bilgisayarı ikna et değil mi yardımcı olabilirseniz sevinirim.

If ComboBox7.Text = "Yangın" Then
URL = "https://otohasar.anadolusigorta.com.tr/eks/yangin_hasar_y.php?POLICE_TURU_ID=8"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
End If

 

[uzmanamele]

Herkese selamlar, küçük bir sorunum var:
Alttaki kodda if - end if kısmında hata veriyor, ancak neden hata verdiğini çözemedim, hatalı olduğunu sanmıyorum halbuki ama gel de bilgisayarı ikna et değil mi yardımcı olabilirseniz sevinirim.

If ComboBox7.Text = "Yangın" Then
URL = "https://otohasar.anadolusigorta.com.tr/eks/yangin_hasar_y.php?POLICE_TURU_ID=8"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
End If

Merhaba
Bu eksik olabilir mi?

End With

 

[Murat OSMA]

Kesin öyledir.

with IE dedikten sonra kodlarını yazmışsınız ama IE ile olan işinizi bitirmemişsiniz.
end if den önce end with yazınca düzelecek mi bakar mısınız ?

If ComboBox7.Text = "Yangın" Then
URL = "https://otohasar.anadolusigorta.com.tr/eks/yangin_hasar_y.php?POLICE_TURU_ID=8"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
[COLOR="Red"]end with[/COLOR]
End If

 

[Murat OSMA]

Sn. uzmanamele, cevabınızı görmedim kusura bakmayın...

 

[uzmanamele]

Sn. uzmanamele, cevabınızı görmedim kusura bakmayın...

Merhaba
Syn Murat OSMA, rica ederim, ne kusuru.
Sizin soruyla ilgilendiğinizi ben farketmemiştim, yoksa cevaplamazdım.

Genelde gördüğüm sorulara hemen cevap vermiyorum, sizin gibi arkadaşların iştirak etmesi daha önemli.

 

[crion]

Yardımınız için teşekkürler arkadaşlar ancak o if'ten sonra daha uzun süre IE ile işim olacak Bu if bloğu uzun bir kodun ilk parçası... IE ile işim bitmeden End With kullanmalıyım diyorsunuz yanlış mı anladım?

 

[Murat OSMA]

Anlayışınız için teşekkür ederim Sn. uzmanamele...

Yazacağınız kodlarda;
if - end if
with - end with
select - end select
kullanıyorsanız; ilk yazdığınız ifadeyi en son kapatmanız (bitirmeniz) gerekir.
İkinci yazdığınız ifadeyi de sondan bir önce kapatmanız gerekir.
Örnek aşağıdaki gibi...

if
    with
        select

        end Select
    end with
end if

if den sonra ne isterseniz yazabilirsiniz...