For Next döngüsünde sınırlama var mı?

[heft]

Selamlar,

Bir Dosyamda Fornext kullandım data girildikçe döngü sayısı artıyor.
Dim Sayi As Integer
Dim Sayac As Byte, SayiMiktari As Byte
SayiMiktari = Range("Sayfa1!h1").Value
Sayi = 0
For Sayac = 1 To SayiMiktari
Application.Run "Fornext.xls!Makro1"
Next Sayac
MsgBox "den"
End If

Sayı miktarı 490 da ama hata veriyor ?
Acaba sınırlama olabilir mi? yoksa hata mı yapıyorum.

 

[Haluk]

Değişkenleri "byte" olarak değil de "long" olarak tanımlamayı deneyin.

 

[excelvba]

Değişken tanımlamalarınız hatalı byte; 0-255 arasındaki pozitif tamsayılar için geçerlidir. Bence hata 256 olduğunda vermesi gerekir. Değişken tanımlamaları için aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=4673

 

[heft]

yok 100 den sonra kopyala-yapıştır ile ilave ettim , o yüzden uyarı en sonda geldi

yardımlarınıza teşekkür :hey: