Get all weeknums from 2 input dates and put them in an array?

Question

Since I asked a wrong question in the last post, but still improved a lot (I already created a Planning table in Excel, if someone want it I will be happy to share), here is wha

Answer 1

This is an alternative way:

Sub Test()

Dim StrtD As Long, EndD As Long
Dim arr As Variant

With Sheets("Foglio1")
    StrtD = Application.WeekNum(.Cells(1, 2).Value, 2)
    EndD = Application.WeekNum(.Cells(2, 2).Value, 2)
    arr = Application.Transpose(.Evaluate("ROW(" & StrtD & ":" & EndD & ")"))
End With

End Sub

The Application.Transpose() creates an 1-D array you can call through arr(x) where x is any position within the array. You can leave the transpose if you want to create a 2-D array.

---

To not use .Transpose but use .Columns to return a 1-D array you can tweak the code to:

Sub Test()

Dim StrtD As Long, EndD As Long
Dim arr As Variant

With Sheets("Foglio1")
    StrtD = Application.WeekNum(.Cells(1, 2).Value, 2)
    EndD = Application.WeekNum(.Cells(2, 2).Value, 2)
    arr = .Evaluate("COLUMN(" & .Cells(1, StrtD ).Address & ":" & .Cells(1, EndD ).Address & ")")
End With

End Sub

I guess it's a matter of preference as both ways will return an array > arr(11, 12, 13, 14, 15, 16, 17)