View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
mariasa[_7_] mariasa[_7_] is offline
external usenet poster
 
Posts: 1
Default Subject: Your Help Needed with the Data List Generation


Thanks for the advice - With slight modifications your code works, but
doesnt produce the desired result - read below.

Sub helpMe()

Dim startDate As Date
Dim endDate As Date
Dim TotalDays As Long

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

Range("e3").Value = TotalDays
Range("c2").FormulaR1C1 = startDate



'With Range("B3")
'.AutoFill Destination:=.Resize(TotalDays), Type:=xlFillDays
'End With

With Range("C3")
Resize(TotalDays).FormulaR1C1 = "=dvshandelsdatum(R[-1]C,1)"
End With

End Sub

However, it doesn't do exactly what i want it to. Here is the worksheet
result

start date 1/1/2005
1/1/2005 end date 1/10/2005
1/3/2005 total days 9
1/4/2005
1/5/2005
1/6/2005
1/7/2005
1/10/2005
1/11/2005
1/12/2005
1/13/2005
So it basically gives the number of dates equal to the number of days
between start and end dates. But since the german formula gives only
the trading days ie excluding weekends and major holidays, it doesnt
stop at 1/10 but rather at 1/13.

However I was able to get the results I want by modifying my previous
code namely

Option Explicit


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)"
i = i + 1
Loop Until Cells(i - 1, 3).Value = endDate
End


End Sub

And here is the worksheet result

2/6/2004 start date 2/6/2004
2/9/2004 end date 2/10/2004
2/10/2004


So Im finally all set with this question :)


--
mariasa
------------------------------------------------------------------------
mariasa's Profile: http://www.excelforum.com/member.php...o&userid=31726
View this thread: http://www.excelforum.com/showthread...hreadid=514369