kod sürekli çalışıyor hatası

[polis-53]

Option Explicit

Sub SAYFALARDAN_TOPLAM_AL()
Dim HÜCRE As Range

For Each HÜCRE In Sheets("İCMAL").Range("C:C")
If HÜCRE.HasFormula Then
Else
HÜCRE.FormulaR1C1 = "=SUM('başla:bitir'!RC)"
HÜCRE.Value = HÜCRE.Value
End If
Next

End Sub

merhaba arkadaşlar yukarkadi kodu mancubus arkadaşım gönderdi ellerine sağlık bu kod sürekli döngü içinde kalıyor çalıştırdığım zaman mudahale edemiyorum sürekli çalışır halde kalıyor. yardım ederseniz çok sevineceğim kolay gelsin arkadaşlar.

 

[Husgvarna]

Döngüyü sınırlandırabilirsiniz.

 Dim HÜCRE As Range

d = Sheets("İCMAL").Cells(65000, 1).End(xlUp).Row

For Each HÜCRE In Sheets("İCMAL").Range("C1:C" & d)
If HÜCRE.HasFormula Then
Else
HÜCRE.FormulaR1C1 = "=SUM('başla:bitir'!RC)"
HÜCRE.Value = HÜCRE.Value
End If
Next