son eklenen veriler üstte, eskiler altta kalacak

[etakyol]

iyi günler,

bir veri listem olacak, normal şartlarda sürekli listenin altına veriler eklenerek gidiyor malum, ancak veri girişi sürekli ve sadece a1 den yapılacak ve bir altına kayıt edilecek. diğerleride aynı şekilde aşağıya inecek. yani aslında birnevi ters listeleme. ama tam olarak nasıl açıklarım veya açıklayabildimmi bilemedim.

özetle a1 sürekli seçili kalacak, veri girdiğimde a2 ye kayıt yapacak. liste eskiden yeniye değilde yeniden eskiye doğru ilerleyecek. yardımlarınızı bekliyorum. teşekkür ederim

 

[ÖmerFaruk]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=Range("A2")
    Range("A1").ClearContents
10:
    Application.EnableEvents = True
End Sub

 

[etakyol]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=Range("A2")
    Range("A1").ClearContents
10:
    Application.EnableEvents = True
End Sub

teşekkür ederim liste istediğim gibi ilerliyor ancak a1 seçili kalmıyor? enterladığımda alt satıra geçiyor :s

 

[muhsar]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=Range("A2")
    Range("A1").ClearContents
10:
    Application.EnableEvents = True
End Sub

.

 

[etakyol]

.

bende a1 in seçili kalmamasında office365 veya mac kullanmamın etkisi olabilirmi o zzaman?

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=Range("A2")
    Range("A1").ClearContents
10:
    Range("A1").Select 'ilave'
    Application.EnableEvents = True
End Su

 

[etakyol]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    On Error GoTo 10
    Application.EnableEvents = False
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=Range("A2")
    Range("A1").ClearContents
10:
    Range("A1").Select 'ilave'
    Application.EnableEvents = True
End Su

çok teşekkür ederim elinize sağlık.