Hata nerede?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

    Veri = Cells("H1").Value
                    [COLOR="Red"]If Veri = "" Then Exit Sub[/COLOR]
             SayfaAdi .....

H1 hücresi boş ise makronun devam etmemesini istiyorum. Ama israrla devam ediyor.
Nerede yanlış yapıyorum.
Saygılarımla

 

[hamitcan]

H1 hücresi boş olmayabilir. En iyisi kodu aşağıdaki şekilde düzenleyin.

 =if len([h1]) = 0 then

 

[Tevfik_Kursun]

Sayın Hamitcan Hocam,
İlginize teşekkür ederim. Denedim, yine Sub dan çıkmıyor, devamındaki satırda durup hata veriyor.
Saygılarımla

 

[hamitcan]

O zaman H1 hücresi doludur. Örneğin boşluk olabilir. Aşağıdaki şekilde deneyin.

=if len(trim([h1])) = 0 then

 

[Tevfik_Kursun]

Teşekkür ederim Hamitcan hocam,
Hatamı buldum ve sorunu çözdüm.
saygılarımla

 

[ADER_34]

Merhaba Teyfik bey hatayı bulmuşşunuz sonucu paylaşır mısınız?

 

[Tevfik_Kursun]

H1 hücresinde

=METNEÇEVİR(H8;"00")

şeklinde fonksiyon düzenlemiştim. Bu durumda H8 boş iken H1="00" görünüyor.
Sebep bu, yani boş değil. F8 ile adımladığımda gördüm.
Herkesi de telaşa verdim. Kusura bakmayın lütfen.
İyi çalışmalar

 

[ADER_34]

Teşekkür ederim paylaşım için kolay gelsin iyi çalışmalar

 

[Tevfik_Kursun]

Rica ederim Arkadaş,
sizlere de iyi çalışmalar