Son Satırdan Sonra Yeni Veri Eklenince bazı Hücreler Otomati

[askm]

Kolay gelsin.
Liste adında bir sayfam mevcut. bu sayfaya son dolu satırdan sonra yeni b sutununa yeni veri eklenince A sütununa otomatik sıra no, C sutununa da bir önceki satırdan c sutunundaki veriyi nasıl getirebilirim.
Teşekkürler.

 

[Merhum İdris SERDAR]

.

Table - Tablo'yu kullanın.

Örnek dosya eklerseniz üzerinden gidebiliriz.


.

.

 

[askm]

İlginiz için teşekkürler. Örnek ekliyorum.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.


.

 

[isyankarzarar]

merhabalar

aşağıdaki formül çalıştı ancak

üst satırdaki bazı formüllerimin eklenen satırda da devam etmesini istiyorum

ne yapabilirim


Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Cells <> "" Then
Rows(Target.Row + 1).Insert shift:=xlDown
Else
Rows(Target.Row + 1).EntireRow.Delete
End If
Application.EnableEvents = True
End Sub

 

[askm]

Aşağıdaki kod ile hallettim. Teşekkürler.
Ayrıca F sutununa girilen tarihe göre de işlem K ye ayın son gününü J ye de 3 ay öncesi ayın ilk gününü getiriyor.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next

If Intersect(Target, [B:B, F:F]) Is Nothing Then Exit Sub
If Target.Column <> 2 Then GoTo Devam
'If Target.Column <> 2 Then Exit Sub
Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value + 1
Target.Offset(0, 1).Value = Target.Offset(-1, 1).Value
Target.Offset(0, 10).Value = Target.Offset(-1, 10).Value
Target.Offset(0, 11).Value = Target.Offset(-1, 11).Value

Devam:
If Target.Column <> 6 Then GoTo Son
Target.Offset(0, 5).Value = CDate(WorksheetFunction.EoMonth(Target.Offset(0, 0), 0)) 'Tarih
Target.Offset(0, 4).Value = DateSerial(Year(Target.Offset(0, 5)), Month(Target.Offset(0, 5)) - 3, 1)
'Target.Offset(0, 9).Value = CDate(WorksheetFunction.EoMonth(Target.Offset(0, 9), 0)) 'Tarih
Son:
End Sub