Hücre bilgisini yenileme

[ugurrrrrr]

Kendim bir çözüm buldum


Range("e" & kayıtsonu + 2).Formula = "=TOPLA(e2:e" & kayıtsonu & ")"
Sheets("Sayfa1").Cells(kayıtsonu + 2, "E").Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True

 

[mrt]

Selamlar,

Topla yerine, SUM yazarsanız belki düzelebilir.

"Türkçe versiyon excel kullansak dahi VBA alanında ingilizce kullanıyor."

 

[mrt]

Selamlar;

Sub calistir()
For i = 1 To [a65536].End(3).Row
Cells(1, "a").Select
SendKeys "{F2}"
SendKeys "{ENTER}"
Next
End Sub

kodları Excel Ofiice 2007 TR versiyonunda hatalı çalışıyor.

6700 satırlık bir çalışmada 2481. satırda makro çalışması duruyor.

Nasıl düzeltmek gerekir ?