Hücreye yazılan veri

[kan-nas]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("c65536").End(3)(2, 1) = ActiveCell
End Sub

Yukarıdaki kodla tıklanan her hücreyi alt alta yazdırabiliyorum. Ama benim istediğim A1 hücresine veri girip Enter yada yön tuşlarıyla yer değiştirdiğinde veya fare ile başka bir alan tıklandığında A1 hücresineki yazılan veriyi altalta yazdırmak.

Kısaca en son aktif hücreden önceki aktif hücreye yazılan veriyi istediğim alana yazdırmak.

Yardımlarınız için

 

[hamitcan]

Dim sonhucre As String
Private Sub Worksheet_Change(ByVal Target As Range)
sonhucre = Target.Text
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
 Target = sonhucre
End Sub