Soru Makro İle Liste İçinde Tarih Yazdırma?

[baykan_m]

Merhaba Arkadaşlar,

PDKS programından tarih bazında hareket raporu alıyorum. Ancak bu rapor tarihe göre gruplandırarak rapor veriyor. Ben her personelin yanında tarih yazsın ve bazı satırların silinmesini istiyorum. Dosya içerisinde de anlatmaya çalıştım umarım anlatabilmişimdir. Yardımcı olanlara şimdiden teşekkür ederim.

İyi çalışmalar

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
Dim a As Long
Dim trh As Date
Dim sil As Range
Set sil = Range("A5")
Application.ScreenUpdating = False
For a = 5 To Cells(Rows.Count, 1).End(3).Row + 3
    If Cells(a, 1) = "" Then
        Set sil = Union(sil, Cells(a, 1))
    ElseIf Cells(a, 1) = "GENEL TOPLAM :" Then
        Set sil = Union(sil, Cells(a, 1))
    ElseIf IsDate(Split(Cells(a, 1), " ")(0)) Then
        trh = Split(Cells(a, 1), " ")(0)
        Set sil = Union(sil, Cells(a, 1))
    Else
        Cells(a, "B").Value = trh
    End If
Next
sil.EntireRow.Delete
Application.ScreenUpdating = True
End Sub