listede seçenekli sıralama

[igultekin2000]

iyi akşamlar,
8-10 bin satırlık listeden

101 00 Portföydeki Çekler
101 10 Tahsildeki Çekler
121 00 Portföydeki Senetler
121 10 Tahsildeki Senetler
121 11 İskontodaki Senetler
121 12 Teminattaki Senetler
103 00 Verilen TL Çekler ve Ödeme E
103 50 Verilen Yabancı Paralı Çekle
hesap kodlarının tamamı veya ilk üç rakamıda baz alınabilir, 335 Fişte renklendirdiğim şekilde yani fişnosundaki düzen bozulmadan enüst satıra veya başka çalışma sayfasına listeleyerek değerlendirme yapmam gerekiyor. biraz karışık oldu ama 335 nolu fişte ki A:K satırlarının tamamını sıralanması.bu şekilde içinde yukarıdaki kodların geçtiği fiş numarasındaki satırların olduğu düzende listelenmesi, yardımcı olacak arkadaşlara teşekkür ederim. değişik yöntemler denedim malesef sonuç alamadım.
http://s6.dosya.tc/server8/9xt9tt/yeniListe.xlsx.html

 

[igultekin2000]

ilave açıklama

örneği biraz daha açıklayıcı olması babından bir izahata daha ihtiyaç duydum. daha önce gene bu siteden aldığım

Sub KOD_AKTARIMI()
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        Select Case Left(Cells(i, 3).Value, 3)
            Case 120, 340, 320, 159, 336, 136
                Cells(i, "H").Value = Cells(i, 3).Value
            Case Else
                Cells(i, "H").Value = ""
        End Select
    Next i
End Sub

Sub KOD_TAMAMLAMA()
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "C").End(3).Row 'SON HALİ DOĞRU OLAN BU KARIŞTIRMA
        If Cells(i, "F") = "" And Cells(i, "G") <> "" And Cells(i, "H") = "" Then
            Cells(i, "H") = Cells(i - 1, "H")
        End If
    Next i
    i = Empty
    
    For i = Cells(Rows.Count, "C").End(3).Row To 2 Step -1
        If Cells(i, "F") <> "" And Cells(i, "G") = "" And Cells(i, "H") = "" Then
            Cells(i, "H") = Cells(i + 1, "H")
        End If
    Next i
    i = Empty
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

kodlarla işimi hallediyorum ancak dosya üzerinde bir işlemin yapılması gerekiyor. dosya ilgili açıklamayı yazdım, şimdiden teşekkürler
http://s3.dosya.tc/server10/ze2164/ornek_2.rar.html