büyük sayıların MOD unu alma

[exceltrik]

Merhaba,

aşağıdaki kodla 25 karakterlik bir sayının modunu almak istiyorum ancak runtime error 6 overflow hatası alıyorum. Hatanın neden kaynaklandığı veya çözümü ile ilgili bilginiz var mı acaba?

mb long olarak da double olarak da tanımlansa yine aynı hatayı alınıyor.
işlem fonksiyonlarla da gerçekleşmiyor.

yardımcı olabilirseniz sevinirim, teşekkürler.

For i = 1To 20
mb = Cells(i, 1).Value
If mb Mod 5 <> 0 Then MsgBox "hatalı"
GoTo son
Else
GoTo S0
End If

 

[Orion1]

Bu şekilde deneyiniz.

Sub m()
For i = 1 To 20
mb = Cells(i, 1).Value
If mb Mod 5 <> 0 Then
    MsgBox "hatalı"
GoTo son
Else
GoTo S0
End If
Next
son:
S0:
End Sub

 

[exceltrik]

merhaba,
ilginiz için teşekkürler ancak bu kod problemi çözmüyor. siz 25 karakterlik bir sayı için bunu denediniz mi? çalıştı mı?

 

[Orion1]

Evet haklısınız.Bölünemiyor,taşıyor.