harf ve ya boşluk olduğunda hata

[kan-nas]

Merhaba,

If Cells(i, 6).Value / Cells(i, 4).Value > 0.6 And Cells(i, 6).Value < 0 ) Then

Yukarıdaki kod çalışıyor fakat boşluk yada harf gelince hata veriyor. Boşluk ya da harf gelirse bir alt satıra hangi kodla atlatabilirm.

 

[hımmmmmmmm]

[COLOR="Red"]on error resume next[/COLOR]
.....................................
.....................................
If Cells(i, 6).Value / Cells(i, 4).Value > 0.6 And Cells(i, 6).Value < 0 ) Then
.........................

error satırı kotların çalışmasını devam ettirir..

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir koşul koyarsanız programcılık açısından daha uygun olur.

[COLOR=red]if isnumeric(Cells(i, 6))=true and isnumeric(Cells(i, 4))=true then[/COLOR]
If Cells(i, 6).Value / Cells(i, 4).Value > 0.6 And Cells(i, 6).Value < 0 ) Then
.
.
.
[COLOR=red]end if[/COLOR]

[COLOR=Red]on error resume next[/COLOR]

Sn hımmmmmmmm

on error resume next komutunu çok mecbur kalmadıkça kullanmamanızı öneririm. Beklemediğiniz hataları gözden kaçırmanıza neden olur.

Not: Elbette tercih sizin ancak aktif bir üyemiz olarak kullanıcı adınızı daha anlaşılır bir isimle değiştirmenizi öneririm.