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

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

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.

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.

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

Teşekkürler hocam bende de oldu..