Új hozzászólás Aktív témák

• #42111 Delila_1 veterán karlkani #42108

  Új Válasz 2019-11-05 07:11:59 #42111

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz karlkani #42108 üzenetére

  Sub nnn()
    Dim tol As Date, ig As Date
    
    If Weekday(Date, 3) = 7 Then
        tol = Date - Weekday(Date, 3) + 7
    Else
        tol = Date - Weekday(Date, 3)
    End If
    ig = tol + 4
    
    Range("A1") = Format(tol, "mm.dd.") & "-" & Format(ig, "mm.dd.")
End Sub

Új hozzászólás Aktív témák