Yardım tarihleri macro ile komuta dönüştürme

incsoft · 14 Şub 2023

Arkadaşlar B sütunundaki tarihleri F1 de olduğu gibi macro ile tek seferde yan yana nasıl yazdırabilirim? Virgül koyarak bir sonraki tarihi alacak mesela ,

{Command.Kayıt tarihi} in [ Date (2017, 01, 01), Date (2017, 01, 08), Date (2017, 01, 15) , Date (2017, 01, 22) , Date (2017, 01, 29) ]

Teşekkürler.

veyselemre · 15 Şub 2023

Kod:

Sub test()
    Dim lst, ver, t As Date, s$, i&
    s = "Date(#y, #a, #g)"
    With Sheets("Sayfa2")
        lst = .Range("B1:B" & .Cells(Rows.Count, 2).End(3).Row).Value
        
        ReDim ver(1 To UBound(lst))
        For i = 1 To UBound(lst)
            t = lst(i, 1)
            ver(i) = Replace(Replace(Replace(s, "#g", Format(Day(t), "00")), _
                                     "#a", Format(Month(t), "00")), "#y", Year(t))
        Next i
        s = "{Command.Kayıt tarihi} in [" & Join(ver, ", ") & "]"
        .Range("F1").Value = s
    End With
End Sub

incsoft · 15 Şub 2023

veyselemre' Alıntı:
Sub test() Dim lst, ver, t As Date, s$, i& s = "Date(#y, #a, #g)" With Sheets("Sayfa2") lst = .Range("B1:B" & .Cells(Rows.Count, 2).End(3).Row).Value ReDim ver(1 To UBound(lst)) For i = 1 To UBound(lst) t = lst(i, 1) ver(i) = Replace(Replace(Replace(s, "#g", Format(Day(t), "00")), _ "#a", Format(Month(t), "00")), "#y", Year(t)) Next i s = "{Command.Kayıt tarihi} in [" & Join(ver, ", ") & "]" .Range("F1").Value = s End With End Sub

Çok teşekkürler Veysel bey tam istediğim gibi.

Yardım tarihleri macro ile komuta dönüştürme

Daha fazla seçenek

incsoft

Ekli dosyalar

veyselemre

incsoft