Otomatik hizalama (veri girişi hemen sonrası)

[pasacan_07]

Arkadaşlar öncelikler merhaba. Yeni üye oldum... Sizlere bir sorum olacak. Satırlara alt alta örnek olarak 23.09 PAŞACAN , 22.07 AHMET , 26.43 MEHMET yazdığım zaman bunlar otomatik olarak küçükten büyüğe nasıl sıralanır? Bu üç değeri yazdım otomatik sıralamadan sıraladım ve sonra 4. bir değer girdiğim zaman (örneğin 10.33 ALİ) ben sırala komutunu tekrar vermeden bu son girdiğim değer otomatik olarak ENTER a bastığımda nasıl ilk sıraya gelir? umarım anlatabilmişimdir... Şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

Merhaba, aramıza hoşgeldiniz. Keyifli paylaşımlar dilerim.

Aşağıdaki kodları çalışma sayfanın kod bölümüne yapıştırarak deneyin.
A sütununa girdiğiniz verilileri sıralayacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[1Al2Ver]

Bir sonraki mesaja resim ekledim.

 

[1Al2Ver]

Merhaba, Hata Mesajı aldım,

Sorun benim makinada mı acaba ?

Teşekkür ederim.

 

[Emir Hüseyin Çoban]

Merhaba,
Aşağıdaki kodları uygulatarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[1Al2Ver]

Merhaba,
Aşağıdaki kodları uygulatarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Sayın huseyincoban merhaba,

Teşekkür ederim.