Kod Hesaplama Hatası

[BYSERTTAS]

Selamlar Herkese İyi Günler Dilerim.
Aşağıdaki kod ile Hesaplatma Yapıyorum. Ek Gösterge hücresi dolu ise sıkıntı olmuyor. ancak ek gösterge hücresi boş ise hatlı hesaplıyor. 0 (Sıfır) yazınca yine doğu hesaplıyor. benim istediğim ise Ek Gösterge Boş olsada hesaplamayı doğru şekilde yapması yardımcı olursanız sevinirim.
Kod Şu Şekilde

Private Sub EkGöstergePuanı_Change()

If EkGöstergePuanı > 8000 Then
La4_Yevmiye = FormatNumber(WsParametreler.Cells(2, 2), 2)
Else
If EkGöstergePuanı > 5799 And EkGöstergePuanı < 8000 Then
La4_Yevmiye = FormatNumber(WsParametreler.Cells(3, 2), 2)
End If

If EkGöstergePuanı > 2999 And EkGöstergePuanı < 5800 Then
La4_Yevmiye = FormatNumber(WsParametreler.Cells(4, 2), 2)
End If

If EkGöstergePuanı < 3000 And La4_derece < 5 Then
La4_Yevmiye = FormatNumber(WsParametreler.Cells(5, 2), 2)
End If

If EkGöstergePuanı < 3000 And La4_derece > 4 Then
La4_Yevmiye = FormatNumber(WsParametreler.Cells(6, 2), 2)
End If
End If
End Sub

 

[Saban Sertkaya]

Merhabalar,
O zaman işleme başlamadan önce ek gösterge hücresini kontrol ettiriniz. Boş ise 0 değerini verdiriniz.

Yani kodların en başına,
if ekgöstergehucresi = "" then ekgöstergehücresi = 0
diye yazarsanız sanırım sorununuz çözülecektir.

 

[BYSERTTAS]

Merhabalar,
O zaman işleme başlamadan önce ek gösterge hücresini kontrol ettiriniz. Boş ise 0 değerini verdiriniz.

Yani kodların en başına,
if ekgöstergehucresi = "" then ekgöstergehücresi = 0
diye yazarsanız sanırım sorununuz çözülecektir.

Teşşekkürler Kod da değilde Text değerini 0 yaptım sorunsuz çalışıyor. fakat doğrusu nedir bilemedim. belki daha basit yolu vardır diye sormuştum. ilginize teşekkür ederim.