ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[emiroglu07]

elimdeki excel tablosunun liste sayfasında yer alan tarih stunundaki tarilerin karşılığına işlem tarihi ni getirmek istiyorum
tarih stunun tarihleri İşlem tarihi
01.12.2021-10.12.2021 = 10.12.2021
11.12.2021- 20.12.2021 = 20.12.2021
21.12.2021- 30.12.2021 = 30.12.2021
31.12.2021- 31.12.2021 = 31.12.2021
şeklinde iki tarih aralığının karşılığına 10-20-30-31 şeklinde gelecek şekilde bir makro arıyorum
bana lazım olan günlerin karşılığını 10 günlük halde işlem tarihi sayfasına aktarmak
örnek dosyada olduğu gibi

[veyselemre]

Kod: Tümünü seç

Sub test()
    Dim i, gun, ay, yil, trh
    For i = 3 To Cells(Rows.Count, 1).End(3).Row
        gun = Day(Cells(i, 1).Value)
        ay = Month(Cells(i, 1).Value)
        yil = Year(Cells(i, 1).Value)
        If (ay = 2 And gun > 20) Or gun = 31 Then
            trh = DateSerial(yil, ay + 1, 0)
        Else
            trh = DateSerial(yil, ay, IIf(gun < 11, 10, IIf(gun < 21, 20, 30)))
        End If
        Cells(i, 3).Value = trh
    Next i
End Sub