F2 uygulama makrosunun hızlanması

[SELEX]

Başka bir alandan seçerek yapıştırdığım verileri formülde kullanmak istediğimde çalışabilmesi için bütün değerlerin üzerinde F2 uygulaması gerekmektedir. Bunu makroyla yaptığımda yaklaşık 10 dakika sürmektedir.
Hızlandırabilmek için desteğinizi rica ederim.

'SECIM sayfasi tercihlerinin GEREKCE sayfasina kopyalanmasi

Sheets("secim").Select
Range("BOLGE1").Select
Selection.Copy
Sheets("gerekce").Select
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("A1").Select
'----------------------------
'GEREKCE sayfasinda formullerin calismasi icin ilgili alanda F2 uygulanmasi

Dim Alan As Range
For Each Alan In Range("G2:BD2,G3:BD207")
Alan.Select
DoEvents
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next

 

[PLİNT]

Merhaba
Aslında örnek dosya olsa daha iyi çözüm bulunabilir ama şöyle bir deneyin

[COLOR="Red"]Application.Calculation = xlCalculationManual[/COLOR]
Dim Alan As Range
For Each Alan In Range("G2:BD2,G3:BD207")
Alan.Select
DoEvents
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
[COLOR="Red"]Application.Calculation = xlCalculationAutomatic[/COLOR]