Otomatik Olarak Büyükten Küçüğe Sıralama

[pcDeviL]

Merhaba,

Ekli dosyada da ifade etmeye çalıştığım gibi dinamik bir büyükten küçüğe sıralama istiyorum.

Bu mümkün mü?

Saygılar,

 

[Ömer BARAN]

Merhaba.
Sayfanın kod bölümüne uygulayınız.
(Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçteğinizde açılan ekranın sağ tarafına yapıştırın.)

[FONT="Trebuchet MS"][SIZE="2"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
Range("F6:[B][COLOR="Red"]F[/COLOR][/B]" & [F65536].End(3).Row).Sort Key1:=Range("F6"), Order1:=xlDescending
[B]End Sub[/B][/SIZE][/FONT]

Bitişik başka sütunlardaki bilgilerin de F sütununa göre hareket etmesi için kırmızı renkle sütun adını değiştirin.

 

[pcDeviL]

Ömer bey çok teşekkürler, peki rakamların yanında ürün adı yazsaydı da o rakamlarda otomatik yer değiştirir miydi? Değiştirmesse bunu nasıl yaparız?

 

[pcDeviL]

Mükemmel birşey ya tekrar teşekkürler.