Toplama işlemi yaparken hücreler boş iken hata veriyor

[ferhatgurbuz]

ben 11 ile 325 arasını toplatmak istiyorum
formülde 304'ten sonrası boş iken hata veriyor.



Private Sub CommandButton3_Click()
Sheets("Bordro").Select
If MsgBox("Toplamak İstediğnden Eminmisin.", vbYesNo) = vbNo Then
Exit Sub
End If

For i = 11 To 305
Cells(i, "bb").Value = Cells(i, "au").Value + Cells(i, "at").Value
Next i
End Sub

 

[Necdet]

ben 11 ile 325 arasını toplatmak istiyorum
formülde 304'ten sonrası boş iken hata veriyor.



Private Sub CommandButton3_Click()
Sheets("Bordro").Select
If MsgBox("Toplamak İstediğnden Eminmisin.", vbYesNo) = vbNo Then
Exit Sub
End If

For i = 11 To 305
Cells(i, "bb").Value = Cells(i, "au").Value + Cells(i, "at").Value
Next i
End Sub

Kırmızı kodları aşağıdaki gibi değiştirip dener misiniz?

For i = 11 To 305
    Değer1 = 0
    Değer2 = 0
    
    If IsNumeric(Cells(i, "AU")) = True Then Değer1 = Cells(i, "AU")
    If IsNumeric(Cells(i, "AT")) = True Then Değer2 = Cells(i, "AT")
    Cells(i, "bb").Value = Değer1 + Değer2
Next i

 

[ferhatgurbuz]

Teşekkür ederim. Sayın Necdet_Yesertener şuan bir problem yok. Kolay gelsin.