Son yazılanı sürekli güncel tutma

[Yesilyurtlu]

Uzmanlarım;
ekli dosya da A:E sütununda son yazdığım ne ise onu I sütununa onu yazacak.
Bu konuda yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Değerler "I" sütununa yazılırken alt altamı yazılacak belirtmemişsiniz. Eğer değerler "I" sütununda alt ata yazılacaksa 1. kodu kullanın. Eğer değerler "I" sütununda sabit bir hücreye yazılacaksa 2. kodu kullanın.

1. KOD;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A3:E65536")) Is Nothing Then Exit Sub
    If Target <> "" Then [COLOR=red]Range("I65536").End(3).Offset(1, 0) = Target[/COLOR]
End Sub

2. KOD;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A3:E65536")) Is Nothing Then Exit Sub
    If Target <> "" Then [COLOR=red]Range("I3") = Target[/COLOR]
End Sub

 

[Yesilyurtlu]

Korhan Abi Esasında 2 kod işimi gördü. Ama 1. kodda bir çok yerde işime yarayacak kodlardan biri.
Ellerine sağlık abi sağolasın. Zahmet verdik Hakkını helal et