Hesaplama Hatası

[acar6783]

Merhabalar,
Aşağıdaki koddan sonra hesaplama hala mauel olarak kalıyor. Sebebi ne olabilir?

Sub sıra_no()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Range("A7:A53").ClearContents
For i = 7 To 53
If Rows(i).Hidden = False Then
a = a + 1
If a = 32 Then Exit Sub
Cells(i, 1) = a

End If
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[askm]

Dosyanızı görmek gerekir.Ama Exit Sub kısmından dolayıdır. Makro o kısımda çıkıyor sanırım.

 

[Ömer BARAN]

Merhaba.

Yaptığınız işlemi tam anlamış değilim ama ilgili satırı aşağıdaki gibi değiştirerek deneyin.
.

If a = 32 Then [B][COLOR="Red"]Exit For[/COLOR][/B]

 

[acar6783]

Mantıklı
O kadar kod yazdım beynim sulandı sanırım farketmemişim bile o ihtimali
Teşekkürler

Düzenledim...

Sub sıra_no()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Range("A7:A53").ClearContents
For i = 7 To 53
If Rows(i).Hidden = False Then
a = a + 1
If a = 32 Then GoTo çık
Cells(i, 1) = a

End If
Next i
çık:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub