Soru overflow hatası

[bycakir]

merhaba aşagıdaki döngüde overflow hatası alıyorum. for next dongusunun başladıgı yerde kırmızı ile boyadım yardımcı olabilecek varmı

Private Sub CommandButton8_Click()
Dim myRow, id, son, tes As Long
Dim sh As Worksheet
Dim b As Byte
Set sh = ThisWorkbook.Sheets("AddressBook")


myRow = Application.WorksheetFunction.CountA(sh.Range("A:A")) + 1
id = Application.WorksheetFunction.Max(sh.Range("A:A")) + 1
son = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)

For b = son To id

tes = WorksheetFunction.CountIf(sh.Range(Cells(b, "G")).Value, "")

Next b



End Sub

 

[Haluk]

Dim b As long

.

 

[ÖmerFaruk]

Öncelikle tavsiyem b - son - id değişkenlerinizi LONG olarak tanımlayın
Ayrıca A sütununda Max değer id değişkeninin aldığı değerden fazla olabilir

 

[bycakir]

@ÖmerFaruk teşekkurler hocam dediğiniz gibi sorun düzeldi

 

[ÖmerFaruk]

Hangisinden kaynaklanıyormuş? Ben de merak ettim.

• Öncelikle tavsiyem b - son - id değişkenlerinizi LONG olarak tanımlayın
• Ayrıca A sütununda Max değer id değişkeninin aldığı değerden fazla olabilir

 

[bycakir]

long seçenegi sorunu çözdü tekrar elinize sağlık hocam

 

[bycakir]

hocam birde soru olarak açtıgım başlıkları çözüldü seçenegine çeviremiyorum forumda duzenle seçenegini bulamadım

 

[ÖmerFaruk]

Bence de pratik bir uygulama olacaktır. Tavsiyeniz için teşekkürler.