otomatik sıralama ve yan hücreye geçme

[orhancezayirli]

Merhabalar. Ekteki dosyada A Sütununda son hücresine yeni giriş yaptığım zaman otomatik olarak sıralama yapıyor ve hemen yanındaki hücreye veri yazmaya hazır hale geliyor. Şimdi ben bu sütunu başka bir amaç için tarih sütununa çevirip kullanmak istiyorum. Bu durumda da tarihe göre otomatik sıralama yapıyor, ancak bu kez sıralandığı yeni satırda hemen yandaki hücreye otomatik geçmiyor. Ben de yukarılara çıkıp tarihi attığı yer bulmaya çalışıyorum. 2000 satırlık veride pek de kolay olmuyor. Gerekli düzeltmeyi kodda nasıl yapabilirim?
Şimdiden teşekkürler

 

[Necdet]

Merhaba,

Sayfadaki Kodları aşağıdaki şekilde değiştirip dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo Son
    Dim Sat As Long
    Dim Kolon As Integer
    Dim Deger As [B][COLOR=red]Variant
[/COLOR][/B]    Dim c As Range
    
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target.Row < 4 Then Exit Sub
    
    Kolon = [IV3].End(1).Column
    Deger = Target.Value
    Sat = [A65536].End(3).Row
    Range(Cells(4, "A"), Cells(Sat, Kolon)).Sort Key1:=Cells(4, "A")
    Set c = Range("A4:A" & Sat).Find(Deger[B][COLOR=red], LookIn:=xlFormulas, LookAt:=xlWhole[/COLOR][/B])
    Range("B" & c.Row).Select
    
Son:
    
End Sub

 

[orhancezayirli]

Necdet Hocam çok teşekkür ederim. Ellerinize sağlık tam istediğim gibi oldu.
İyi akşamlar

 

[Necdet]

Necdet Hocam çok teşekkür ederim. Ellerinize sağlık tam istediğim gibi oldu.
İyi akşamlar

İyi günlerde kullanınız.