Makro İle Son Girilen Devam Etsin

[ormann]

İyi günler ;
ekli örnek dosyada G19:G65000 hücre aralığına herhangi bir rakam girdiğim zaman F19:F65000 hücre aralığındaki en son satırda girdiğim veri hangisi ise G19:G65000 hücre aralığında işlem yaparsam F sütündai karşılığına aynı veriyi yazmaya otomatik olarak yazmasını istiyorum.Yardımcı olur musunuz?
http://dosya.co/1tzylghn6tpi/ÖRNEK.xlsx.html

 

[YUSUF44]

Anlamak için bayağı uğraştım, inşallah doğru anlamışımdır

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G19:G65000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target.Offset(0, -1) <> "" Then Exit Sub
If Target = "" Then
    Target.Offset(0, -1) = ""
Else
    Target.Offset(0, -1) = Target.Offset(-1, -1)
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
    Dim SonSatir As Long
    SonSatir = Cells(Rows.Count, "G").End(3).Row
    Cells(SonSatir + 1, "G").Value = Cells(SonSatir, "G").Value
End Sub

 

[ormann]

Çok teşekkür ederim Sayın Yusuf ve Dalgalikur