hücrelerin veriyi güncellememesi

[incsoft]

Hücre değerlerim üzerine 2 kez tıklayıp enter demeden güncellemiyor.Office 2010 kullanmaktayım tüm ayarları doğru olmasına rağmen çözemedim.Aşağıdaki şekilde yapıyorum ancak buda nedense K137 ve K138'i bir türlü güncellemiyor.Buna başka nasıl bir çözüm bulabilirim arkadaşlar?

Sub DÜZENLE()
Dim Alan As Range
For Each Alan In Range("K137,K138,M137,M138,M142,M143,M144,M145,M146,M147,M148,M149,M150,M151,M152,M153,Q143,Q145,Q146,Q151,Q152")
Alan.Select
DoEvents
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Dim Alan As Range
    For Each Alan In Range("K137,K138,M137,M138,M142,M143,M144,M145,M146,M147,M148,M149,M150,M151,M152,M153,Q143,Q145,Q146,Q151,Q152")
        Alan.Value = Alan.Value * 1
    Next
End Sub

. . .

 

[incsoft]

. . .

Sub kod()
    Dim Alan As Range
    For Each Alan In Range("K137,K138,M137,M138,M142,M143,M144,M145,M146,M147,M148,M149,M150,M151,M152,M153,Q143,Q145,Q146,Q151,Q152")
        Alan.Value = Alan.Value * 1
    Next
End Sub

. . .

Maalesef olmadı Hüseyin bey. Bu şekilde formülleri hep değere dönüştürdü.