Otomatik sıralama

[Korhan Ayhan]

Selamlar,

Sn. manisalı_mdr,

Son verdiğiniz bilgilere göre aşağıdaki kodu deneyiniz. En son C sütununa veri girişi yapıp enter tuşuna bastığınızda sıralama işlemi yapılır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [C2:C65536]) Is Nothing Then Exit Sub
    If Target <> Empty Then
    Range("A2:C65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End If
Son:
End Sub

 

[mekist]

Selamlar,

Sn. mekist,

Sayfa2 nin kod bölümüne aşağıdaki kodu uygulayıp deneyin. Yapıştırma işlemini yaptıktan sonra bazen bir hücre seçmeniz gerekebilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    Range("A2:G65536").Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Son:
End Sub

teşekkür ederim elinize sağlık,


Sayın KUman Hocam,
sizede teşekkür ederim,
süper olumş elinize sağlık