The issue has been solved.
Please find below the code to start from Week number, transform it date (dd/mm/yyyy) and finally transform it again to the format dd.mmm.yyyy
Hoping to be usefull for someone.![]()
Dim filtrodata1 As Date Dim filtrodata2 As String Dim iWeek, iYear As Integer iWeek = xDWs.Cells(2, 4).Value iYear = 2019 filtrodata = DateSerial(iYear, 1, ((iWeek - 1) * 7) + 2 - Weekday(DateSerial(iYear, 1, 1)) + 1) filtrodata2 = Format(filtrodata, "dd.mmm.yyyy")
thanks
Rossofoco
Bookmarks