F2+ENTER Kodunu Hızlandırmak için..!

[sensizsoldum]

Merhaba, Herkese İyi akşamlar.
Değerli Hocalarım, arkadaşlarım. Aşağıdaki kodu çok hızlı bir biçime getirmek mümkünmü, veriler çok fazla olduğundan, yakşalık 3 sn içinde cevap veriyor. ama bana daha hızlı kod lazım. Yada B3:B aralığına F2+ENTER yapan çok hızlı bir kod lazım.

Private Sub Worksheet_Activate()
        With Range("b3:b65536")
        .NumberFormat = "General"
        .Value = .Value
    End With    
End Sub

 

[tahsinanarat]

Belirtilen aralıkta F2 Entir yapan kodlar

Sub test1()
    Dim c As Range
    For Each c In Range("d2:bs2, d19:bs19,D36:bs36").Cells
        c.Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
End Sub

A sutununda verilerin dolu olduğu son satıra kadar F2 enter yapar

Sub test2()
    [A1].Select
    For X = 1 To [A65536].End(3).Row + 1
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    Next
End Sub

Formüllü hücrelerde F2 Enter

Sub Test3()
Dim Rng As Range
For Each Rng In Selection.SpecialCells(xlCellTypeFormulas)
If Rng.HasArray = True Then
Rng.FormulaArray = Rng.Formula
Else
Rng.Formula = Rng.Formula
End If
Next Rng
End Sub

 

[sensizsoldum]

Merhaba Tahsin Bey,
İlginiz için teşekkür ederim. Ben veri olan hücrelere F2+ENTER olan kodu denedim. Çalışmam için en hızlı olacak kodun bu olacağı için.
Kodda sanırım sıkıntılar var. Ben sayfaya girişte işleme aldım kodu. Sayfaya girince numlock de aktif oluyor ve sayfaya her girişte 7-8 hücre aşağı hücrelere doğru iniyor. İstediğim çalışma şekli bu şekilde değil.
Sayfaya her girişte B3:B aralığına çok hızlı bir biçimde F2+ENTER yapılması. Ya da veri olan hücrelere F2+ENTER yapması. İlginiz için tekrar teşekkür ederim.
Kodların son hali aşağıda ki gibidir.
İyi çalışmalar dilerim

Private Sub Worksheet_Activate()
    For X = 1 To [B65536].End(3).Row + 1
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    Next
End Sub