Aynı tarihte ki verileri yanyana yazdırmak

[account2]

Merhaba,
öncelikle herkeze şimdiden teşekkür ederim.
Ben bir dosya ekledim. Bu dosyada aynı tarihte alt alta yazılmış olan değerler yine tek bir tarihte yanyana yazdırmak istiyorum. Acaba nasıl birşey yapabiliriz ?

 

[Necdet]

Merhaba,

Public Sub Duzenle()
Dim EskiTarih As Date
Dim i, Sat As Long
Dim Kol As Integer
Application.ScreenUpdating = False
Range("F4:IV65536").ClearContents
Sat = 4
For i = 5 To [B65536].End(3).Row
    If Cells(i, "B") <> EskiTarih Then
        EskiTarih = Cells(i, "B")
        Sat = Sat + 1
        Kol = 6
        Cells(Sat, "F") = Cells(i, "B")
    End If
    
    Kol = Kol + 1
    Cells(Sat, Kol) = Cells(i, "C")
    
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır..."
End Sub

 

[account2]

Merhaba,

Public Sub Duzenle()
Dim EskiTarih As Date
Dim i, Sat As Long
Dim Kol As Integer
Application.ScreenUpdating = False
Range("F4:IV65536").ClearContents
Sat = 4
For i = 5 To [B65536].End(3).Row
    If Cells(i, "B") <> EskiTarih Then
        EskiTarih = Cells(i, "B")
        Sat = Sat + 1
        Kol = 6
        Cells(Sat, "F") = Cells(i, "B")
    End If
    
    Kol = Kol + 1
    Cells(Sat, Kol) = Cells(i, "C")
    
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır..."
End Sub

Günaydın Üstadım,
ellerinize sağlık demekten başka birşey bırakmıyorsunuz bana. İstediğimden daha iyisi bunu söyleyebilirim birtek.
Tekrar ilginize teşekkür ederim.