Soru f2 Enter

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,665
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,352
Excel Vers. ve Dili
Excel 2007 Türkçe
Aşağıdaki linki inceler misiniz ?
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,665
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
27,573
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
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,665
Excel Vers. ve Dili
2016 TR
Korhan abi
Hayırlı Sabahlar
Son dolu hücrede enter yapmıyor.
Teşekkür eder, saygılarımı sunarım
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,573
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Önerdiğim kodu revize ettim. Tekrar deneyiniz.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,573
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
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,665
Excel Vers. ve Dili
2016 TR
Korhan abi
Ellerine Sağlık. Teşekkür ederim
 
Üst