For Döngüsü Overflow Hatasını Çözme

[selis]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Bu kodu görmek için giriş yapmanız gerekmektedir (21 satır). Giriş Yap

Arkadaşlar herkese merhaba, overflow hatasıyla karşılaşıyorum. Ne yapmam gerekiyor? Şimdiden teşekkürler.

 

[selis]

*Overflow olacak arkadaslar yanlış yazmısım..

 

[Ömer BARAN]

Sayın @selis,

Sorularınızı, ilgili formül/makro kodları içinde ve çalışır durumda olacak şekilde
örnek belge üzerinden sormaya özen gösteriniz.
Sorular örnek belgeyle desteklendiğinde çözüme daha hızlı ulaşmanız kolaylaşır.

 

[Ömer BARAN]

Sayın @selis

Kodun başında Dim x As Integer şeklinde bir tanımlama var.
Integer değişken türünün alabileceği değer aralığı -32.767 ile + 32.767 aralığında.
x = Sheets("Güncel Proje Takibi").Range("B2").End(xlDown).Row satırıyla x'e değer ataması yapıyorsunuz.
Bu durumda x'in karşılığı olan değer 32.767'den büyükse bu sorunu yaşıyor olmanız doğal.

Dim x As Integer yerine
Dim x As Long diye tanımlama yaparak deneyin.

Bu değişikliğe rağmen sorun yaşarsanız, bundan önceki cevabımda da belirttiğim gibi bir örnek belge yükleyin.

 

[Cengizhan]

Evet hocam benzer bi dosya bende vardı stok dosyası bende de aynı hata diyodu fazla veri girince aynı hata çıkıyordu dediğiniz gibi yaptım o sayısal değişkenleri long yapınca düzeldi işiniz rast gelsin Ömer hocam

 

[selis]

Teşekkürler hocam bende de oldu..