List of ISO week numbers between 2 dates

[willow1985]

Hello,

I need help with a formula that will give me a list of the ISO week numbers between 2 dates.

Customer Part Analysis Dashboard.xlsm
	A	B	C	D
1	Todays date	2021-03-18		Week Number List
2	Year Selected	2021		53
3	Input Date Range	44197	44227	1
4				2
5				3
6				4
Graph Data

Cell Formulas
Range	Formula
B1	B1	=TODAY()

Thank you to anyone who can help!

Note: The 2 dates are linked cells from a combo box so they come through in that format - as a value, but my other formulas compensate for the format so I need the Week number formula to be able to do the same.

 

[willow1985]

You're welcome & thanks for the feedback.

Looks like my update affected more than I thought. As soon as I refreshed the combo box, the dates came through on the linked cells completely different so the formula broke.

Customer Part Analysis Dashboard.xlsm
	A	B	C	D
1	Today's date	2021-03-18		Week Number List
2	Year Selected	2021		#VALUE!
3	Input Date Range	March 1,2021	March 31,2021	#VALUE!
4				#VALUE!
5				#VALUE!
6				#VALUE!
7				#VALUE!
8				#VALUE!
9				#VALUE!
10				#VALUE!
11				#VALUE!
12				#VALUE!
Graph Data

Cell Formulas
Range	Formula
B1	B1	=TODAY()
D2:D12	D2	=IF(VALUE($B$3)+ROWS(D$2:D2)*7-7>VALUE($C$3),"",ISOWEEKNUM(VALUE($B$3)+ROWS(D$2:D2)*7-7))

 

[willow1985]

On the combo box there is a VBA formula to convert the number date to something the user can read instead of 44197 for example.

Private Sub Date_End_Click()
ActiveSheet.Date_End.Value = Format(ActiveSheet.Date_End.Value, "mmmm d,yyyy")
End Sub

However when I link the combo box result to a cell I get a value a formula cannot recognize. I don't know how to resolve this....Should I make a new post or is this a quick fix?

 

[willow1985]

I will do a new post. Thank you

 

[Fluff]

No need, just use

Private Sub Date_End_Click()
ActiveSheet.Date_End.Value = Format(ActiveSheet.Date_End.Value, "mmmm d,yyyy")
Range("c3") = CDate(Me.Date_End)
End Sub

 

[willow1985]

No need, just use

Private Sub Date_End_Click()
ActiveSheet.Date_End.Value = Format(ActiveSheet.Date_End.Value, "mmmm d,yyyy")
Range("c3") = CDate(Me.Date_End)
End Sub

Didn't fix the issue. I switched to the standard combo box but still cannot get the linked cell to display properly. I made a new post.
I hope I can figure this out as my whole sheet relies on the combo box input for dates.

 

[Fluff]

I made a new post.

Ok

 

[willow1985]

Ok

I honestly don't know which combo box to use as both are not working. The formula you gave me above does work for the linked cell but the combo box itself went back to a number (44197) so no idea what to do ?

Also the formulas you gave me for the week numbers are not stopping at 4 again with the new date formats. ? ?

 

[Fluff]

the formulas you gave me for the week numbers are not stopping at 4 again with the new date formats.

That's probably because your "dates " are in fact text

 

[willow1985]

I got everything working minus the combo boxes displaying Month day year instead of a number. Not sure how to fix that as the code you gave me successfully converts the linked cell but in doing so changes what is displayed in the combo box (Active X combo box)

Private Sub Date_End_Click()
ActiveSheet.Date_End.Value = Format(ActiveSheet.Date_End.Value, "mmmm d,yyyy")
Range("c3") = CDate(Me.Date_End)
End Sub

I don't know how to make the formulas that the combo box is using as it's list recognized as dates instead of text however...

 

[Fluff]

As you have already started a new thread for this part, you need to stick to it. Thanks