LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #6   Report Post  
Posted to microsoft.public.excel.programming
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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel List Generation jrthomas Excel Worksheet Functions 0 July 24th 07 03:46 PM
Random List Generation carl Excel Worksheet Functions 4 May 23rd 06 02:18 PM
Automatic List Generation JerryS Excel Worksheet Functions 8 March 15th 06 07:01 PM
Your Help Needed with the Data List Generation alexandraVBAgirl Excel Programming 1 February 20th 06 04:13 PM
Reposting Date List Generation Question alexandraVBAgirl Excel Programming 2 February 17th 06 04:57 PM


All times are GMT +1. The time now is 12:50 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"