Yaziyi otomatik alt satira atma

[xaero]

Merhaba arkadaslar,

Mesela A1 e bir sayı yazıp Enter a bastığımda o sayıyı A2 ye, A2 yi A3 e, A3 ü A4 kaydıracak bır formül varmı? A1 hücresi giriş hücresi olacak. Hücre ekleme gibi ama daha kolay. Sürekli mause kullanmak beni cok yavaşlatıyor.

şimdiden teşekkürler.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target.Value <> "" Then Target.Insert: Range("A1").Select
End Sub