Your Help Needed with the Data List Generation

A

alexandraVBAgirl

Below is the code thats supposed to take the given start and end date and
list all the trading days in between (including the start and end dates).
The macro is taking the trading days data from DVS Reporter through a simple
formula =DVStradingDay(the start date, 1 (means next one, if u put 0, it'll
show the start date again).

Anyhow, my code gave the start date of the list and the 2nd date but nothing
beyond. Can you help me with that please?

Sub help()

Dim i%
Dim curCell As Date
Dim startDate As Date
Dim endDate As Date

startDate = Range("e1").Value
endDate = Range("e2").Value

Range("C1").Select
ActiveCell.FormulaR1C1 = startDate
Sheets("Sheet4").Select

i = 2
Do
curCell = Cells(i, 3).Select
ActiveCell.FormulaR1C1 = "=dvshandelsdatum(R[-1]C,1)"

If curCell > endDate Then Cells(i, 3) = ""
i = i + 1
Loop Until Cells(i, 3).Value = ""

End Sub

The worksheet view:

1/1/2005 start date 1/1/2005
1/3/2005 end date 2/2/2006

Thanks so much.
 
D

Dave Peterson

You have a reply at your later thread.
Below is the code thats supposed to take the given start and end date and
list all the trading days in between (including the start and end dates).
The macro is taking the trading days data from DVS Reporter through a simple
formula =DVStradingDay(the start date, 1 (means next one, if u put 0, it'll
show the start date again).

Anyhow, my code gave the start date of the list and the 2nd date but nothing
beyond. Can you help me with that please?

Sub help()

Dim i%
Dim curCell As Date
Dim startDate As Date
Dim endDate As Date

startDate = Range("e1").Value
endDate = Range("e2").Value

Range("C1").Select
ActiveCell.FormulaR1C1 = startDate
Sheets("Sheet4").Select

i = 2
Do
curCell = Cells(i, 3).Select
ActiveCell.FormulaR1C1 = "=dvshandelsdatum(R[-1]C,1)"

If curCell > endDate Then Cells(i, 3) = ""
i = i + 1
Loop Until Cells(i, 3).Value = ""

End Sub

The worksheet view:

1/1/2005 start date 1/1/2005
1/3/2005 end date 2/2/2006

Thanks so much.
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Subject: Your Help Needed with the Data List Generation 5
Help needed! Extracting Heading 3 and Contents from a Word Doc to Excel 0
Reposting Date List Generation Question 2
Help needed with the list of the trading days between start/endDat 4
"Subscript out of Range" Error Msg? 7
Help with multi-level list 0
VBA Help needed -- compile error: object required 7
Need a little help with a custom function 1

Top