• Merhaba, 22 Ocak 2020 Çarşamba günü sabah 08:00 ile 12:00 saatleri arasında forumun bulunduğu sunucuda genel bakım çalışması yapılacaktır.
    Bu sürenin tamamında olmasa da bir süreliğine forum geçici olarak erişilemez olacaktır. Bilgilerinize

Soru f2 Enter

Katılım
10 Temmuz 2012
Mesajlar
1,432
Excel Vers. ve Dili
2016 TR
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,320
Excel Vers. ve Dili
Excel 2007 Türkçe
Aşağıdaki linki inceler misiniz ?
 
Katılım
10 Temmuz 2012
Mesajlar
1,432
Excel Vers. ve Dili
2016 TR
Hamit abi
o linki görmüştüm. Benim istediğimi karşılamadığı gerekçesi ile talepte bulunmuştum.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
25,526
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Deneyiniz.

Kod:
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
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
25,526
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Alternatif;

Kod:
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
 
Üst