Sıralama

[serif11]

Arkadaşlar selam.
Sayfa aktif olduğunda, B228 arasındaki verileri, C sütunu baz alınarak BÜYÜKTEN KÜÇÜĞE nasıl sıralatabilirim?
Şimdiden teşekkürler.

 

[Ömer BARAN]

Arkadaşlar selam.
Sayfa aktif olduğunda, B228 arasındaki verileri, C sütunu baz alınarak BÜYÜKTEN KÜÇÜĞE nasıl sıralatabilirim?
Şimdiden teşekkürler.

Merhaba.

Sorunuzu, cevabımın altında bulunan İMZA bölümündeki açıklamalar doğrultusunda hazırlayacağınız örnek belge üzerinden sormanızda yarar var.
.

 

[serif11]

Ömer arkadaşım selam.
Öncelikle ilginize teşekkür ederim. Cep telefonumdan ulaştığım için belge yükleme olanağım yok. Ayrıca, yeni farkettim. D harfinden önce : kullandığım için gülme efekti oluşmuş. Doğrusu b2 : d28 olacaktı.

 

[serif11]

Konuyu güncellemek istedim.

 

[PLİNT]

Merhaba
İlgili sayfanızın kod bölümüne aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Activate()
[B2:D28].Sort Key1:=[C2], Order1:=xlDescending
End Sub

 

[serif11]

Plint arkadaşım. İlginize teşekkür ederim ama çalışmadı

 

[serif11]

Plint arkadaşım. Şöyle bir durum var. Sayfadaki veriler formülle başka sayfadan geliyor ve altta 8 satır boş. Kopyala- özel yapıştır-değer deyince çalışıyor ama alttaki 8 boş satırı en başa alıyor. Formüllerin kalkması mümkün değil

 

[PLİNT]

Dosyanıza yeni bir sayfa ekleyip formüllü sayfadan değerler aktarılıp sıralanabilir.
İmkanı varsa örnek dosya eklemeniz; verimli çözüm üretecektir.
Formüllü sayfaya:

Private Sub Worksheet_Activate()
Dim s1 As Worksheet
Set s1 = Sheets("[COLOR="Red"]Sayfa4[/COLOR]")
s1.[B2:D28].ClearContents
s1.[B2:D28].Value = [B2:D28].Value
s1.[B2:D28].Sort Key1:=s1.[C2], Order1:=xlDescending
End Sub

 

[serif11]

İlginize, bilginize, emeğinize ve yüreğinize sağlık. İşyeri dışındayım. Sabah dener sonucu bildiririm.

 

[serif11]

"Başvuru geçerli değil" deyip End Sub satırından bir önceki satır sarıya boynıyor. Cep telefonumdan bağlandığım için dosya ekleyemiyorum.