Saate göre sıralama

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Ekte gönderdiğim sayfamda H sütununda tarihler var, I sütununda saatler var.

Benim istediğim H sütunundaki tarihlerin sırası bozulmadan, bu tarihlere göre I sütunundaki saatlerin sıralanmasını istiyorum.

Forumdan öğrendiğim sıralama kodları ile yapmaya çalıştığımda tarihlerde sıraya giriyor, maalesef istediğim gibi olmadı.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[veyselemre]

Sub sirala()
'Tarih+Saat Sırala
    Columns("B:I").Sort Key1:=Range("H2"), Order1:=xlAscending, Key2:=Range("I2") _
                      , Order2:=xlAscending, Header:=xlGuess
End Sub

Sub siralama()
'Aynı Tarihlileri kendi içinde sırala
    bas = 2
    For i = 2 To Cells(Rows.Count, "H").End(3).Row
        If Cells(i, "H") <> Cells(i + 1, "H") Then
            son = i
            Range("B" & bas & ":I" & son).Sort Key1:=Range("I" & bas), Order1:=xlAscending, Header:=xlNo
            bas = i + 1
        End If
    Next i
End Sub

 

[ASLAN7410]

Sayın Veysel Bey ilginiz için çok teşekkür ediyorum, hayırlı geceler.

Tam istediğim gibi oldu, Allah razı olsun, ellerinize sağlık, çok teşekkür ediyorum.

 

[Ömer BARAN]

Merhabalar.

Birbirine eşit olan tarih ve saatlerin listedeki mevcut sıraları eşitliği bozacak kriter olarak kullanılması en akılcı yol olur diye düşündüm.

Formül ile elde edilmiş sonuç ekli belgede.

Sonradan ilave not: Sayın veyselemre çözümü bulup göndermiş bile. Benimkisi de alternatif olsun artık.

 

[ASLAN7410]

Sayın Ömer Bey size de ayrıca çok teşekkür ederim, ellerinize sağlık.

Sizin çözümünüz de güzel olmuş, hayırlı geceler.