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 hocamSayı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.
.
Bu yüzden sadece web sitemizin çalışması yönelik temel çerezleri ve deneyiminizi geliştirmek için isteğe bağlı çerezleri kullanıyoruz.
Çerezler hakkında daha fazla bilgi görüntülemek ve tercihlerinizi yapılandırmak için tıklayın