Özet tablo yardım

[rabbace]

Merhaba,

Netsisten sql ile rapor çekip bir özet tablo oluşturduk, bu rapora bazı formüller ekleyerek kar, kar yüzdesi falan ekledik. Yüzdeleri büyükten küçüğe sıralamak istiyorum fakat özet tabloya bağlı olduğu için sıralama yapamıyorum. Nasıl yapabilirim?. Fikirlerinize ihtiyacım var, şimdiden teşekkürler

 

[Ömer BARAN]

Merhaba.

Sanırım istediğiniz ekli belgedeki gibi birşey.

O sütunu kod tarafından kullanılıyor, O sütununa veri yazmayınız.
O4 hücresinden, sıralama yöntemini seçmeniz yeterli olacaktır.
.

 

[rabbace]

Üstad dosyayı inceledim tam tam istediğim gibi olmuş, çok teşekkür ederim.

Ben kendi orijinal dosyama uyarlayıp geri dönüş yapacağım. Ekstra bir sorum daha olabilir, ekleyip soracağım, yardımlarınızı bekliyorum. Tekrar teşekkürler.

 

[rabbace]

Merhaba,

Özet tabloma bunu uyarlayıp çalıştırınca, resimdeki uyarıyı veriyor.

http://hizliresim.com/LQy37V



Run dedikten sonra da aşağıdaki hatayı alıyorum.

http://hizliresim.com/9GQLXo

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S13]) Is Nothing Then Exit Sub
Call sırala
End Sub

Sub sırala()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
[S13] = "KRİTER"
With Range("S14:S" & [C65536].End(3).Row)
    .Formula = "=IF(R14="""",S15,1+COUNTIF($R$14:$R$" & [C65536].End(3).Row & ","">""&R14)-ROW()/1000)"
    .Calculate
    .Value = .Value
End With
If [S12] = "ARTAN" Then
Range("A14:S" & [C65536].End(3).Row).Sort Range("S13"), xlAscending
Else
Range("A14:S" & [C65536].End(3).Row).Sort Range("S13"), xlDescending
End If
Range("S13:S" & [C65536].End(3).Row).ClearContents
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

End Sub

 

[Ömer BARAN]

Tekrar merhaba.

Gerçek belgenizin bir örneğini paylaşırsanız bakayım.
Ya da "özet tablo sıralama" şeklinde araştırma yapmanızı öneririm.
.