Sıralama ile ilgili ?

[megadeth61]

Merhabalar

Forumdaki bir çok örneğe baktım ama vba bilmediğim için bana gerekli olan doğru kodu diğerlerinden ayıramadım.

Rica etsem ekteki dosyada mevcut olan sıralama ile ilgili sorunuma bir göz atabiir misiniz?

Saygılar.

 

[fedeal]

dosyanız ekte,

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı. C Sütununda değişiklik olduğunda otomatik olarak Büyükten küçüğe sıralanacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Range("B2:C" & [C65536].End(3).Row).Sort Key1:=[C2], Order1:=xlDescending
Son:
End Sub

Geç kalmışım

 

[mami68]

Merhabalar.
Bir alternatif daha.

Modüle yazın

Sub Sirala()
Worksheets("Sayfa1").Range("B2:C200").Sort _
Key1:=Worksheets("Sayfa1").Range("B2"), _
Key2:=Worksheets("Sayfa1").Range("C2")
End Sub

İyi çalışmalar.

 

[megadeth61]

Sn. fedeal,Sn. Necdet Yeşertener,Sn.mami68

İlginiz ve çözümleriniz için çok çok teşekkür ederim.

Yardımlarınız sayesinde sorunum çözülmüş oldu.

Geç cevap için özür diler,tekrar teşekkür ederim.