excel ileri düzey sıralama

[mehdin82]

arkadaşlar dosya ektedir forumda malesef yok biraz spesifik bir örnek çünkü yardımınızı biliyorum

 

[Ömer]

Merhaba,

Sıralamadaki mantığı açıklamamışsınız. Mantık nasıl işliyor detaylı açıklarmısınız.

Benim anladığım;

E2 hücresine yazıp yana ve alt satırlara kopyalayın.

=EĞER(EHATALIYSA(KAÇINCI(MİN($A$2:$B$2)+SATIRSAY(E$2:E2)-1;A:A;0));"";İNDİS(A:A;KAÇINCI(MİN($A$2:$B$2)+SATIRSAY(E$2:E2)-1;A:A;0)))

Fakat buradaki sonuçlar da sizinkiyle örtüşmüyor.

 

[mehdin82]

Merhaba,

Sıralamadaki mantığı açıklamamışsınız. Mantık nasıl işliyor detaylı açıklarmısınız.

ömer bey amacım sol ve sağ eşit ise yan yana koy eğer farklı ise küçük olan üst satırda büyük olan alt satırda olacak şekilde olsun

233 233
234 ---
235 ---
--- 236
--- 237
--- 239
240 240
--- 241
243 ---
244 ---
--- 245
246 246
247 ---
248 248


şeklinde olacak

 

[Ömer]

ömer bey amacım sol ve sağ eşit ise yan yana koy eğer farklı ise küçük olan üst satırda büyük olan alt satırda olacak şekilde olsun

Module kopyalayıp çalıştırın.

Sub Sirala()
    Dim mn As Double, mk As Double, i As Long, sat As Long, c As Range
    
    mn = WorksheetFunction.Min([A:B])
    mk = WorksheetFunction.Max([A:B])
    sat = 2
    
    Application.ScreenUpdating = False
    Range("D2:E" & Rows.Count).ClearContents
    For i = mn To mk
        Set c = [A:A].Find(i, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(sat, "D") = Cells(c.Row, "A")
        End If
        Set c = [B:B].Find(i, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(sat, "E") = Cells(c.Row, "B")
        End If
        sat = sat + 1
    Next i
    
    For i = sat To 2 Step -1
        If Cells(i, "D") = "" And Cells(i, "E") = "" Then
            Range("D" & i & ":E" & i).Delete Shift:=xlUp
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.