belli bir koşula göre sıralama yapma

[onur3466]

Merhaba arkadaşlar,
Ekteki dosyada renkli olarak işaretlediğim hücrelerin, Datalar sayfasında doğru bir şekilde sıralanmasını istiyorum. Ancak, görselde de belirtildiği gibi, yazdığım kod sıralamayı düzgün bir şekilde gerçekleştiremiyor. Accses Verielr sayfasındaki gibi verileri Datalar sayfasına aktarılmasını istiyorum. Bu konuda destek olabilir misiniz?

 

[onur3466]

bir yere kadar yaptım ama resimdeki hala getirecek şekilde olmadı yardımlarınızı bekliyorum.

 

[DoğanD]

Peki aynı şekilde görünmesini istiyorsanız neden sıralamaya çalışıyorsunuz? Verilerinize çok aşina değilim o yüzden anlayamamış olabilirim fakat aşağıdaki kodları projeden çıkarınca istediğiniz sonuç olmuyor mu?

'    Say = syf.Cells(Rows.Count, "A").End(xlUp).row

'    For Bak = 5 To 1 Step -1
'        If Bak <> 4 Then
'            With syf.Sort
'                .SortFields.Clear
'                .SortFields.Add Key:=syf.Columns(Bak), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'                .SetRange syf.Range("A1:G" & Say)
'                .Header = xlYes
'                .MatchCase = False
'                .Orientation = xlTopToBottom
'                .SortMethod = xlPinYin
'                .Apply
'            End With
'        End If
'    Next Bak

 

[onur3466]

excele göre c sütunundaki değer 1 , d sütunundaki değer 1 , e sütunundaki değer 1 , f sütunundaki değer 1 den başlayarak artarak gitsin istiyorum. (yani resme göre 6. sütunun sıralı gitmesini istiyorum).G sütunundaki en küçük değeri bulsun örneğin 1000 bunu 2000 ile kıyaslasın 1000,2000,2000,5000,.... diye sıralasın fakat c,d,e,f sütunundaki değerlerinde sıralaması yukarıdan aşağıya doğru sıralansın istemekteyim.