bölme işlemi yardım

[koboy]

merhabalar
a - b- c diye sutunum var

c/b yapıyor ançak satır içinde rakam yoksa makro overflow hatası veriyor

Next r

Worksheets("özet").Cells(n, 8).Value = (deg2 / deg1) 'MAL.ORAN

 

[GursoyC]

kodlarınızın başına şu kısmı ekleyerek deneyin.

if deg1 = "" then
Worksheets("özet").Cells(n, 8).Value = 0
else

 

[Orion1]

Buyurun.

Worksheets("özet").Cells(n, 8).Value = ""
If IsNumeric(deg2) And IsNumeric(deg1) Then
    If deg2 <> 0 And deg2 <> 0 Then
        Worksheets("özet").Cells(n, 8).Value = (deg2 / deg1) 'MAL.ORAN
    End If
End If

 

[koboy]

çok teşekkür ederim