F2 + Enter

[blackakin]

Arkadaşlar ben şunu merak ediyorum mesela A1 sütunundaki bütün veya sınırlı sayıdaki hücrelere tek seferde nasıl F2+Enter yapabilirim?

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub F2_ENTER()
    Dim Hucre As Range
    
    Range("A1").Select
    
    For Each Hucre In Range("A1:A1000")
        SendKeys "{F2}~", True
    Next
End Sub

 

[blackakin]

Aşağıdaki kodu kullanabilirsiniz.

Sub F2_ENTER()
    Dim Hucre As Range
    
    Range("A1").Select
    
    For Each Hucre In Range("A1:A1000")
        SendKeys "{F2}~", True
    Next
End Sub

merhaba hocam bu kodu tam olarak nereye yapıştırıcam. yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Dosyanızı açın.
ALT+F11 tuşlarına basarak kod penceresini açın.
Açılan pencerede INSERT menüsünden Module seçeneğini seçin. Sağ tarafta beyaz bir pencere açılacaktır.
Kodu bu alana uygulayın.

Daha sonra excel sayfasına dönün.

Alt+F8 tuşuna basarak makroyu çalıştırın.