Sıralama (Kayıt birden çok satır içeriyor)

[yargıç]

Merhaba arkadaşlar, arama yapmama rağmen bir sonuca ulaşamadım.

Kayıtlarımın çoğu birden çok satır içeriyor; bu kayıtları sıralamak istiyorum. Ama bir çözüm bulamadım.

Yardımınız için şimdiden teşekkür ediyorum.

Belge ekte.

 

[ozgretmen]

Böyle bir şey işinize yarar mı ?

 

[yargıç]

Yanıt için çok teşekkür ederim ozgretmen, ancak orijinal belgemde 700 kayıt var ve tüm belge 1200 satırdan oluşuyor aynı kayda ilişkin tarihleri tek tek girmem çok çok uzun zaman alır.

Kayda ilişkin satırları birbirine bağlayıp buna göre sırala gibi bir komut olabileceğini düşünmüştüm.

Tekrar çok teşekkür ederim.

 

[ozgretmen]

Dosya ekte...

Sub sırala()
For i = 8 To [D65536].End(3).Row
If Cells(i, 2) <> "" And Cells(i + 1, 2) = "" Then
Cells(i + 1, 2) = Cells(i, 2)
End If
Next i
Range("A7:D" & [D65536].End(3).Row).Select
Selection.Sort Key1:=Range("B8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
MsgBox " İşlem Tamamdır "
End Sub