30.000 satırdan sonra hata veriyor

[musculus]

2 sayfadaki verileri karşılaştırıp aynı mı diye bakmam gerekiyor.
kodlar 30.000 satıra kadar gayet güzel çalışıyor.
ama veriler 30.001 olunca overflow hatası veriyor
hata kodunu ekte ilave ettim
nasıl düzeltebilirim
?



protokolsayisi = CInt(Sheets("SONUC").Range("B1").FormulaR1C1) + 2

 

[uzmanamele]

merhaba

bunu deneyiniz

Dim protokolsayisi As Double

 

[musculus]

malesef aynı hatayı tekrar verdi

 

[ffff7]

CInt yerine Cdbl dener misiniz?

 

[musculus]

teşekkür ederim sorunum çözüldü