makro ile sıralamada hata

[şehiriçi]

Merhaba Arkadaşlar,
Ekli dosyamda J sütununu P sütununda büyükten küçültme sıraladım .P sütununa göre de Q, R, S sütunundaki besleyici I, K, L sütunlarından çektim
sorun şu ki; P sütunundaki aynı sayıların karşısında (yani 11) ki veriler, yardımlarınızı bekliyorum teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Döngüden daha hızlı sonuç verecektir.

Private Sub cmdsirala_Click()
    Dim Son As Long
    Application.ScreenUpdating = False
    With Sheets("Sayfa1")
        .Range("P:S").ClearContents
         Son = .Cells(.Rows.Count, "I").End(3).Row
        .Range("J2:J" & Son).Copy .Range("P2")
        .Range("I2:I" & Son).Copy .Range("Q2")
        .Range("K2:L" & Son).Copy .Range("R2")
        .Range("P2:S" & Son).Sort Key1:=.Range("P2"), Order1:=xlDescending, Header:=xlNo
    End With
    Application.ScreenUpdating = True
End Sub

 

[şehiriçi]

Elinize sağlık Korhan bey , teşekkürler