Onay kutusu sorunu

[alphae]

Arkadaslar asagidaki adreste yuklu ornegi incelermisiniz. Herzamanki calisan macro sorun cikartiyor. Sorun nerede acaba bulabilirmisiniz?


https://www.sendspace.com/file/hirdyw

 

[PLİNT]

Arkadaslar asagidaki adreste yuklu ornegi incelermisiniz. Herzamanki calisan macro sorun cikartiyor. Sorun nerede acaba bulabilirmisiniz?

Merhaba
Kodlarınızda bulunan :

For i = 1 To s1.Range("[COLOR="Red"]g25[/COLOR]").End(xlUp).Row

"g26" olarak veya aşağıdaki gibi değiştirip deneyiniz.

 For i = 1 To s1.[COLOR="Red"]Cells(Rows.Count, "g")[/COLOR].End(xlUp).Row

Sizin kodlarınızda ("g" sütunundaki hücreler "g25" satırına kadar dolu olduğu için) son satır 6. satır olarak görünüyor.