igultekin2000
Altın Üye
- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,237
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
iyi akşamlar; daha önce kullandığım makro idi, nasıl ve ne işe yaradığını unutmuşum. Teşekkürler
Kod:
Sub f2_enter()
Application.Calculation = xlCalculationManual
Sayfa1.Range("e3").Select
For i = 7 To Sayfa1.Range("e" & Rows.Count).End(3).Row
SendKeys "{F2}"
SendKeys "{ENTER}"
If ActiveCell.Row > Sayfa1.Range("e" & Rows.Count).End(3).Row Then Exit Sub
Next i
Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı.", vbInformation, "RAPOR"
End Sub