Soru f2 Enter

sirkülasyon

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

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Hamit abi
o linki görmüştüm. Benim istediğimi karşılamadığı gerekçesi ile talepte bulunmuştum.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
2,471
Excel Vers. ve Dili
2021 LTSC TR
Korhan abi
Hayırlı Sabahlar
Son dolu hücrede enter yapmıyor.
Teşekkür eder, saygılarımı sunarım
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Önerdiğim kodu revize ettim. Tekrar deneyiniz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
2,471
Excel Vers. ve Dili
2021 LTSC TR
Korhan abi
Ellerine Sağlık. Teşekkür ederim
 
Üst