Get the week number of a given date

[sofas]

Welcome . Cell A2 contains a date in the format yyyy/mm/dd. I want to extract the week number in cell D4.
I found the solution using formulas, but I need to use the VBA code with the possibility of changing the start day of the week. Suppose the first day of the week is Friday.

 

[Michael M]

How about

Sub MM1()
Dim d As Integer
d = InputBox("please insert a number from 1 to 7")
Cells(4, 4).Formula = "=weeknum(a2," & d & ")"
End Sub

 

[Michael M]

Sorry, Friday will be 6 in the InputBox not 1 !!

 

[sofas]

Sorry, Friday will be 6 in the InputBox not 1 !!

Unfortunately, cell d4 remains empty!!! Is it possible to extract the week number in msgbox , for example, for testing? Only because I will then install the beginning of the week number that suits me inside the code and dispense with the checkbox if it works well.

 

[Michael M]

It could be the date format you are using
You might need to insert a line before the input box Lin.
Range(A2, number format = "dd/mm/yyyy")

 

[Michael M]

Oops typo...I'm on my phone
Range("A2").numberformat="dd/mm/yyy"

 

[sofas]

It could be the date format you are using
You might need to insert a line before the input box Lin.
Range(A2, number format = "dd/mm/yyyy")

Maybe because my format is like this: yyyy/dd/mm. I have previously obtained some solutions, but they only work with the dd/mm/yyyy format. Perhaps there is a solution to circumvent this, but I am unable to do it.