Soru son dolu hücre

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9:D35]) Is Nothing Then Exit Sub
Dim SonSat As Long
SonSat = Range("D" & Rows.Count).End(xlUp).Row + 3
Cells(SonSat, "D") = Date

Örneğin D6 hücresinde son buldu D9 hücresine tarih atıyor, ama D6 hücresinde değişiklik yaptığımdada Ek bir satır eklemediğim halde D12 hücresine yine tarih atıyor.
nasıl bir ekleme ile satır eklemedikçe en son dolu hücrenin +3 altına tarih atsın. Satır eklersem de ilk eklediği +3 ü silsin yenisini son dolu hücrenin +3 altına eklesin.Teşekkür ederim.

 

[muratboz06]

SonSat = Range("D" & Rows.Count).End(xlUp).Row + 3 bu satırı aşağıdaki kod ile değiştiriniz.
Dim cell As Range
Set cell = ActiveSheet.Range("D:D").Find("*", SearchDirection:=xlPrevious)
SonSat = cell.Row + 3

 

[sirkülasyon]

Murat Bey
Aynı sıkıntı hala sürüyor.

 

[muratboz06]

D9 hücresine tarih atadıktan sonra, artık sonsatır 9. satır oluyor. Bu yüzden D6 da değişiklik yaptığınızda sonsatır = 9 olduğundan 12.satıra değer atıyordur diye düşünüyorum.