Soru Otomotik aşağıya Tablonun Dolması

[MirzaDaDaS]

Merhabalar,

Ekte gönderdiğim şekliyle basit bir tablo takip işi var. Ancak manuel olarak sonsuza kadar oluşturulabilecekken benim yapmak istediğim otomatik olarak her satır dolduğunda aşağı satıra yeni bir satır eklesin. Şöyleki bahsedeyim

Birkaç yardıma ihtiyacım olacaktır;

Birincisi: Tablo doldukça aşağıya ENTER'ladıkça kendi kendine oluşması.
İkincisi: Sıra ve tarih kısımları Enter basınca otomatik gelmesi tarih kısmıda yine enter yapınca bugünün tarihi gelmesini nasıl sağlarız.

 

[ÖmerFaruk]

Sayfanızın kod sayfasına yapıştırın. Dosyanızı xlsm olarak kaydedin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (IsEmpty(Range("A" & ActiveCell.Row)) And Range("A" & ActiveCell.Row - 1) > 0) Then Exit Sub
    Set Hcr = ActiveCell
    Application.EnableEvents = False
    Range("A" & ActiveCell.Row - 1).Resize(1, 10).Copy
    Range("A" & ActiveCell.Row).Resize(1, 10).PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
    Range("A" & ActiveCell.Row) = Range("A" & ActiveCell.Row - 1) + 1
    Range("B" & ActiveCell.Row) = Date
    Range("C" & ActiveCell.Row).Select
    Application.EnableEvents = True
End Sub

 

[MirzaDaDaS]

Teşekkürler Hocam, işe yaradı. Emeğinize sağlık.