Otomatik Sıralama

[tisinamy]

Merhaba;

Excelde belirli bir hücredeki değişikliğe göre otomatik sıralama yapmak istiyorum. Bu konuda çok araştırma yaptım çeşitli çözümler gördüm ancak uygulama safhasında bir türlü işin içinden çıkamadım. Yardımlarınız için şimdiden teşekkür ederim.

Konu:

Resimdeki örnekte görüldüğü gibi bir tablom var. Yerleşen sütunundaki değerlere göre sıralamanın otomatik olmasını istiyorum. Yani en yüksek değere sahip hücre beraberinde ait olduğu satır (Program adı vd.)la sıralansın istiyorum. Umarım derdimi anlatabilmişimdir.

 

[Emir Hüseyin Çoban]

. . .

Veri girişi yaparken otomatik sıralama işlemi yapması, en alt satırdayken birden imlecin (aktif satırın) başka yere gitmesine sebep olur.

Veri girişi işlemi bittikten sonra, sıralama yaptırmak daha uygun olmaz mı ?

. . .

 

[tisinamy]

Bende o şekilde teklif ettim ancak bu şekilde isteniyor

 

[Emir Hüseyin Çoban]

. . .

Hangi sütunda değişiklik olduktan sonra sıralama işlemi yapmalı ?

. . .

 

[tisinamy]

. . .

Hangi sütunda değişiklik olduktan sonra sıralama işlemi yapmalı ?

. . .

E Sütünu Hocam Yerleşen bölümü yani

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [E3:E65536]) Is Nothing Then Exit Sub
    Range("A2:H" & [B65536].End(3).Row).Sort Key1:=Range("E3"), Order1:=xlDescending
End Sub

. . .