Bu makroyu kodla nasıl kısaltabiliriz

[tahsinanarat]

Aşağıdaki kod makro kaydet ile yapılmıştır, biz bu makroyu a sutunun en son dolu hücresine kadar nasıl kısa bir kod ile yazabiliriz.
Makro, a sutununda sırasıyla bir alt satıra inip F2+Enter görevini yapmaktadır. Yardımlarınız için şimdiden teşekkürler.

Sub Makro2()
'
' Makro1 Makro
' Makro tahsin tarafından 04.01.2009 tarihinde kaydedildi.
'
'
ActiveCell.FormulaR1C1 = ""
Range("A3").Select
ActiveCell.FormulaR1C1 = ""
Range("A4").Select
ActiveCell.FormulaR1C1 = ""
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
Range("A6").Select
ActiveCell.FormulaR1C1 = ""
Range("A7").Select
ActiveCell.FormulaR1C1 = ""
Range("A8").Select
ActiveCell.FormulaR1C1 = ""
Range("A9").Select
ActiveCell.FormulaR1C1 = ""
Range("A10").Select
ActiveCell.FormulaR1C1 = ""
Range("A11").Select
ActiveCell.FormulaR1C1 = ""
Range("A12").Select
ActiveCell.FormulaR1C1 = ""
Range("A13").Select
End Sub

 

[ozgretmen]

Aşağıdaki kodu dener misiniz ?

Sub Makro1()
For i = 1 To [A65536].End(3).Row
  Cells(i, 1).Select
  ActiveCell.FormulaR1C1 = ""
Next i
End Sub

 

[tahsinanarat]

Sn. ozgretmen, cevabınız için teşekkür ederim, kodunuz güzel çalışıyor ancak girdiği hücrenin içini siliyor, ben hücre içeriğinin aynı kalmak koşulu ile saadece F2 + Enter tuşu görevini görüp son satıra kadar gitmesini istiyorum, eğer olmazsada sizin kodlarınızı bu şekilde kullanırım, a sutunun kopyasını alıp kodunuzu çalıştırdıktan sonra tekrar silinen a sutunu yerine yapıştırarak işimi hallederim, ancak dediğim gibi olma imkanı varsa daha da güzel olacak. ilginiz için tekrar teşekkürler.

 

[tahsinanarat]

sn. ozgretmen, F2 yapmadan saadece Enter yaparak son satıra gitmesi de oluyor, bu şekilde de olabilirse işimi görecek.

 

[tahsinanarat]

Sub Makro1()
For i = 1 To [A65536].End(3).Row
Cells(i, 1).Select
Application.OnKey "{13}"
Next i
End Sub

kodlarınızdan faydalanarak Şeklinde yaptım oldu, çok teşekkür ederim. Sağolun.

 

[ozgretmen]

Rica ederim.İyi çalışmalar dilerim.