Soru f2 Enter

[sirkülasyon]

B6 : I41 aralığında dolu hücreler kadar f2 işlemini makro ile yapmak istiyorum mümkün müdür?
Örnek B6 - I6 aralığı dolu ise sadece bu aralıkta F2 çalışacak
B6 - I9 aralığı dolu ise sadece bu aralıkta F2 çalışacak

Teşekkür ederim

 

[hamitcan]

Aşağıdaki linki inceler misiniz ?

Seçili Hücrede F2+Enter İşlemi

Modüle 1 bulunan yenile makrosu G sütununda F2+Enter işleminin yapılmasını sağlıyor. Kodu: Sub yenile() For i = 1 To [g65536].End(3).Row Cells(1, "g").Select SendKeys "{F2}" SendKeys "{ENTER}" Next End Sub Sorum şu: excel sayfasında...

www.excel.web.tr

 

[sirkülasyon]

Hamit abi
o linki görmüştüm. Benim istediğimi karşılamadığı gerekçesi ile talepte bulunmuştum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub F2_ENTER()
    Dim Alan As Range
    
    For Each Alan In Range("B6:I41").SpecialCells(xlCellTypeConstants, 23)
        Alan.Select
        SendKeys "{F2}"
        SendKeys "{ENTER}"
        DoEvents
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sirkülasyon]

Korhan abi
Hayırlı Sabahlar
Son dolu hücrede enter yapmıyor.
Teşekkür eder, saygılarımı sunarım

 

[Korhan Ayhan]

Önerdiğim kodu revize ettim. Tekrar deneyiniz.

 

[Korhan Ayhan]

Alternatif;

Sub Degere_Cevir()
    Dim Alan As Range
    
    For Each Alan In Range("B6:I41").SpecialCells(xlCellTypeConstants, 23)
        Alan.Formula = Alan.Formula
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sirkülasyon]

Korhan abi
Ellerine Sağlık. Teşekkür ederim