Satır tamamlanınca alt satıra inme

[temizerb]

Merhaba,

ekteki gibi bir dosyam var bu dosyadaki hücreleri doldurduğumda otomatik olarak bir alt satıra inmesini ve sıra numarasını kendi yazmasını istiyorum. Yardımcı olabilirseniz sevinirim.

 

[Murat OSMA]

Sayfa1'in kod kısmına şu kodları yapıştırıp I sütuna veri girip deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 9 Then Exit Sub
    Cells(Target.Row, "A").AutoFill Destination:=Range("A" & _
    Target.Row & ":A" & Target.Row + 1), Type:=xlFillSeries
    Cells(Target.Row + 1, "B").Select
End Sub

 

[nane]

2003 de kaydedilmiyor