veri

[PEPE]

A1'e yaptığım veri kayıtlarını her yinelemede yada aktarmada bir alt satıra kaydetsin nasıl yapılır.

A1
A2
A3

 

[uzmanamele]

merhaba
bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
son = Range("a65536").End(3).Row
Range("a" & son + 1) = Target
[a1].Select
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SON As Integer
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
SON = Cells(65536, "A").End(xlUp).Row + 1
Cells(SON, "A") = Target
Target = Empty
End Sub