Run-time error 06 overflow hatası

[ibrahim1134]

Selamlar,
makro çalıştırmada problem yaşıyorum.Hazırlayan kişi ben değilim.
Veri tabanına bağlanıp o şekilde güncel veriler çekerek çalışmakta.

Personel listesindeki diğer personellerin verilerini çekiyor ancak birtanesinde bir noktadan sonra bu hatayı veriyor.
Hatayı iki resimle belirttim.
Yardımcı olursanız çok sevineceğim.

 

[ibrahim1134]

hata2

 

[Saban Sertkaya]

Kodlarınızın eklediğiniz kısmından anlayabildiğim kadarıyla,

- dkar ve dparça, 0 değerini döndürüyorsa bu hatayı alırsınız.
* dkar ve dparça 'nın 0 değerini döndürmesi için, Sayfa9'da A, E ve L sütunlarının boş veya değerlerinin 0 olması lazım.



Birde "Personel" değişkeninin tanımlaması yanlış olabilir diyeceğim ama o da 31. satıra kadar işlem yapmadan, daha 1.satırda hataya neden olurdu. Kısacası bu kısım hataya sebep olmamıştır. Yine de bilgi olması açısından ekleyeyim.
Değişken tanımlamaları önemlidir. Personel değişkeni için
Dim Personel as Byte diye bir tanımlama yapıldı ise, Byte tanımlı değişkenin alacağı maksimum değer 254 rakamı olabilir. 254'ten büyük bir değer döndürülmeye çalışıldığında sistem, "Overflow" hatası verir.
Örnek bir kod ile anlatacak olursak,

Sub Deneme()
Dim Personel As Byte
For Personel = 1 To [COLOR="Red"][B]300[/B][/COLOR]
Cells(Personel, 1) = "Selam"
Next
End Sub

Overflow hatası alırsınız. Personel değişkeni için 254 üstünde bir değer alması istenmiştir, gibi...