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

Katılım
1 Aralık 2005
Mesajlar
376
Excel Vers. ve Dili
EXCEL 2002
TÜRKÇE
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 hangi hücre seçiliyse o hücrenin bulunduğu satır ile G sütunu kesişimindeki hücrede F2+Enter işlemini yapacak koda ihtiyacım vardır. Yardımlarınızı bekliyorum.
 

Ekli dosyalar

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Kod içindeki satırı aşağıdaki şekilde değiştirip deneyin.
Kod:
Cells(activecell.row, "g").Select
 
Katılım
1 Aralık 2005
Mesajlar
376
Excel Vers. ve Dili
EXCEL 2002
TÜRKÇE
Kod içindeki satırı aşağıdaki şekilde değiştirip deneyin.
Kod:
Cells(activecell.row, "g").Select
Hamitcan bey teşekkür ederim. Yardımınızla kodu aşağıdaki şekilde değiştirerek uyguladım.

Sub yenile()
Cells(ActiveCell.Row, "g").Select 'Seçilen satırdaki G hücresini seçer.
SendKeys "{F2}" ' Seçilen hücrede f2 tuşunu tetikler
SendKeys "{ENTER}" ' Seçilen hücreyi enter ile geçer
End Sub
 
Üst