Enhance existing VBA for multiple loops

[ItalianPlatinum]

Hello - looking for a way to expand my loop to also run off another loop. What I mean is it runs for all Items for each date. Currently I have it loop for all dates as seen below and want to add items. For example:

Dates and Items would like to be amendable based off another range in another sheet.

Date 5/5/21; run for Item A, B, C then
Date 5/6/21: run for Item A, B, C and so forth

Option Explicit
Sub RUN_DATE_LOOP()
Dim Dates As Date
Dim i As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

Call Clear

Sheets("Sec").Range("Items") = A

' Run Dates loop
i = 1
Do Until Sheets("Date Loop").Range("Dates").Offset(i, 0) = ""
Dates = Sheets("Date Loop").Range("Dates").Offset(i, 0)
Sheets("Sec").Range(REQDATE") = Dates
Call Sec2
i = i + 1
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

 

[ItalianPlatinum]

Ohhhh i think we are in business now! let me review this!

 

[offthelip]

you changed "items" into "views" !!

 

[ItalianPlatinum]

??

 

[ItalianPlatinum]

Ok challenge number 1. it is taking almost 1min6sec to run. if i do just the dates my old way but that didn't have the items 3 per. it was 17 seconds x 3 (items). So about 15secs faster.

 

[offthelip]

That is exactly why I suggest using variant arays because it would be even slower ifyou were referencing the worksheet everytime. The code that I have written is very fast , the time must be taken in your sub routine sec2.
Just try it with the call to sec2 commented out and you will see it is lightening fast

 

[ItalianPlatinum]

in both ways i need sec2. that is a VBA that has to be run in both scenarios. I would expect i wouldnt be going slower in your approach

 

[offthelip]

If you want to speed it up , you could pass the "View" and the "Date" as parameters to the Sec2 subroutine, but that depends on whether there are any equations on the Sec workhseet that use the "REQDate" or S_Items .
Also if it takes 17 secs to run with a single loop I suspect it will be possioble to speed up the Sec2 routine. Can you post the code of Sec2?

 

[ItalianPlatinum]

sec2 is locked for viewing I cannot. but if both use it should be a non issue when it comes to timing.