Verileri aktarma makrosu

[kemal turan]

Başka bir konu başlığı altında soruğum soru anlaşılabilir olmadığını düşündüğümden farklı bir şekilde sormaya çalıştım.
Sayfanın kod bölümüne yazılacak bir makro ile (düğme olmadan)diğer sayfaya veriler aktarılacak.
Konu ile ilgili açıklama ve örnek dosya ek tedir.
Teşekkürler

 

[kemal turan]

Merhaba ustadlar,
Yukarıdaki isteğim teknik olarak mükün görülmüyor herhalde.
Herkese iyi geceler,
Selametle kalın.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
On Error Resume Next
If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Then Exit Sub
sat = Sheets("kasa").Cells(Rows.Count, "A").End(xlUp).Row + 1
If Target.Value <> "" Then
    Sheets("kasa").Cells(sat, "A").Value = Target.Offset(0, -3).Value
    Sheets("kasa").Cells(sat, "B").Value = Target.Offset(0, -2).Value
    Sheets("kasa").Cells(sat, "C").Value = Target.Value
End If
MsgBox "Veriler Aktarıldı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[kemal turan]

Sn.Orıon
Allah ne muradınız varsa versin.
İki gündür bunu bekler dururdum be
Selametle kalın.

 

[Failimechul]

Cevabınız verilmiş sayın kemal turan ve harika olmuş. Tebrikler