2 Değere Göre Sıralama

[Devkan]

Merhaba Bir Tablom Var Sürekli Şayette Güncellenen Fakat Sıralaması İle Sıkıntı Yaşamaktayım

Ürün Listemdeki Stok Koduna Göre Grup Yapmak İstiyorum Sonrada O Gurubu Kendi İçinde Stok Adetine Göre Sıralamak Yapamadım Çıldırmak Üzeriyim
Yardımcı Olursanız Sevinirim

Not Ekteki Dosyada Yapmak İstedigim Mevcuttur

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub SıralaEkle()
 
Dim son As Long, i As Long
 
Application.DisplayAlerts = False
On Error Resume Next
son = Cells(Rows.Count, "A").End(xlUp).Row
 
Range("A2:C" & son).Sort  Key1:=Range("A2"), Key2:=Range("B2"), _
[COLOR=red]Key3:=Range("C2")[/COLOR]
 
For i = son To 2 Step -1
    If Split(Cells(i, "A"), "-")(0) & "-" & Split(Cells(i, "A"), "-")(1) _
    <> Split(Cells(i - 1, "A"), "-")(0) & "-" & _
    Split(Cells(i - 1, "A"), "-")(1) Then
        Rows(i).Insert Shift:=xlDown
    End If
Next i
 
Rows(2).Delete
Application.DisplayAlerts = True
End Sub

.

 

[Devkan]

Hocam Çok Güzel Grupluyor Aralıgı Kendi Koyuyor Fakat Grubuda Kendi İçinde Satış Miktarına Göre Sıralayamazmı ?

 

[Ömer]

#2 nolu mesajı tekrar düzenledim. Yeniden denermisiniz..

 

[Devkan]

Yok Hocam Halen Aynı Stok Koduna Göre Yapıyor Onuda Rakam Olarak Algılamadıgından


O-GRP-117
O-GRP-118
O-GRP-119
O-GRP-12
O-GRP-120
O-GRP-121
O-GRP-122
O-GRP-13

Şeklinde Diziyor

 

[Ömer]

Kodu uyguladığınız dosyada kodu çalıştırın ve işlemden sonra olması gereken değerleri renklendirerek nasıl olması gerekiyorsa açıklayınız. Bu şekilde söylemek istediğinizi anlayamadım..

 

[Devkan]

Burda Renklerdiğim Ürün Gruplarıda Kendi İçinde Satış Miktarına Göre Büyükten Küçüğe Sıralansın İstiyorum

 

[Ömer]

Bunu yaparsanız A sütunundaki sıra kaybolur.

A2 de ilk sırada olması gereken,

A-BBB-002 değeri -38 den dolayı A6 hücresine kayar. Bu şekilde olmasında bir mahsur yoksa, istediğinizi yapayım.

.

 

[Devkan]

Evet İstegim O Şekilde Birde Kıssaca Anlatırmısınız Çalışmasını Kıssaca

Örneğin Burda Ne Denmek İstemiş

Range("A2:C" & son).Sort Key1:=Range("A2"), Key2:=Range("B2"), _
Key3:=Range("C2")

 

[Ömer]

Evet İstegim O Şekilde Birde Kıssaca Anlatırmısınız Çalışmasını Kıssaca

Örneğin Burda Ne Denmek İstemiş

Range("A2:C" & son).Sort Key1:=Range("A2"), Key2:=Range("B2"), _
Key3:=Range("C2")

A2:Cson arasındaki verileri önce A2 ye sonra B2 ye göre sırala" demektir.,

Kodları aşağıdaki gibi değşitiriniz..

Sub SıralaEkle()
 
Dim son As Long, i As Long
 
Application.ScreenUpdating = False
On Error Resume Next
son = Cells(Rows.Count, "A").End(xlUp).Row
 
For i = 1 To son
    Cells(i, "D") = Split(Cells(i, "A"), "-")(0) _
    & "-" & Split(Cells(i, "A"), "-")(1)
Next i
 
Range("A2:D" & son).Sort Key1:=Range("D2"), Order1:=xlAscending, _
Key2:=Range("C2"), Order2:=xlDescending
 
For i = son To 2 Step -1
    If Cells(i, "D") <> Cells(i - 1, "D") Then
        Rows(i).Insert Shift:=xlDown
    End If
Next i
 
[D:D].ClearContents
Rows(2).Delete
 
Application.ScreenUpdating = True
End Sub

.

 

[Devkan]

Halen Olmadı Be Ustan Yine Sıralamadı Hocam Bir Sıkıntı Var

 

[Ömer]

Halen Olmadı Be Ustan Yine Sıralamadı Hocam Bir Sıkıntı Var

İstediğinizin bu olduğunu yazmıştınız.

Burda Renklerdiğim Ürün Gruplarıda Kendi İçinde Satış Miktarına Göre Büyükten Küçüğe Sıralansın İstiyorum

.
.

Bunu yaparsanız A sütunundaki sıra kaybolur.

A2 de ilk sırada olması gereken,

A-BBB-002 değeri -38 den dolayı A6 hücresine kayar. Bu şekilde olmasında bir mahsur yoksa, istediğinizi yapayım.

.

.
.

Evet İstegim O Şekilde.

Eki inceleyiniz. Burada anlattıklarınızı kodlar yapıyor.

.