Yüzde alan ve toplam makro çalıştığında donup kalma nedeni?

[mars2]

İyi Akşamlar;
Aşağıdaki makroyu uygulandığım zaman, tablonon bulunduğu sayfa donup kalmakta, neden olabilir.

Dim i As Integer, Say As Integer
Say = Range("D131").End(3).Row
On Error Resume Next
For i = 8 To Say
Range("F" & i).Value = Round(Range("D" & i).Value * 0.35, 2)
Range("G" & i).Value = Round(Range("D" & i).Value * 0.65, 2)
Next i
[D131] = WorksheetFunction.Sum(Range("D8131"))
[F131] = WorksheetFunction.Sum(Range("F8:F131"))
[G131] = WorksheetFunction.Sum(Range("G8:G131"))

 

[Huseyinkis]

İyi Akşamlar;
Aşağıdaki makroyu uygulandığım zaman, tablonon bulunduğu sayfa donup kalmakta, neden olabilir.

Dim i As Integer, Say As Integer
Say = Range("D131").End(3).Row
On Error Resume Next
For i = 8 To Say
Range("F" & i).Value = Round(Range("D" & i).Value * 0.35, 2)
Range("G" & i).Value = Round(Range("D" & i).Value * 0.65, 2)
Next i
[D131] = WorksheetFunction.Sum(Range("D8131"))
[F131] = WorksheetFunction.Sum(Range("F8:F131"))
[G131] = WorksheetFunction.Sum(Range("G8:G131"))

yukarıdaki kodlardan başka bir işlem varmı yukarıdakileri çalıştırdımda bir problem yaşamadım
fakat toplamlar kendilerinide topluyor ve "On Error Resume Next" bunu ne için koydunuz çözemedim.

 

[mars2]

Sayin Huseyinkis;

On Error Resume Next
satırını çıkarttığımda,

Range("F" & i).Value = Round(Range("D" & i).Value * 0.35, 2)
Range("G" & i).Value = Round(Range("D" & i).Value * 0.65, 2)
satırında hata vermektedir.

[G131] = WorksheetFunction.Sum(Range("G8:G131"))
satırında hata yapmışım
[G131] = WorksheetFunction.Sum(Range("G8:G130"))
olacak teşekkürler.