VERİ GİRİŞİNE GÖRE OTOMATİK SIRALAMA

[AS3434]

VERÝ GÝRÝÞÝNE G�RE OTOMATÝK SIRALAMA

Herkese Selam...
yapmış olduğum tabloda B sütununa girmiş olduğum değerleri OTOMATİK olarak artan sıralama yapmasını istiyorum. ( tabi satırları ile "yani b5 e bir değer girdiğim zaman 5. satırıda beraberinde götürecek "). Biraz karışık gibi oldu ama yardımcı olursanız sevinirim.

 

[mraltin]

asagidaki kodlari sayfaniza ekleyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub
--İstediginiz ornekteki gibi bisey mi acaba?