Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Dates help
Hi All, I have written the following code to display the dates on a row which occur between two dates (sdate and edate). These are all mondays. I am having two problems with this. 1. I want the form to work out the number of weeks between these two dates (currently you have to type in the amount of weeks). And then i want this number to automatically update on the form when the end date has been entered. 2. The dates appear on the excel sheet as 1900 even when i have entered the dates in the form as dd/mm/yyyy. Thanks for the help. :) rivate Sub PromoDatesOK_Click() Dim sdate As Date Dim edate As Date Dim cnt As Integer Dim wknumtot As Integer 'ActiveWorkbook.Sheets("Claim").Activate Range("a1").Select wknumtot = cboweeks.Value ActiveCell.Value = wknumtot sdate = Val(sdatebox.Value) - 1 edate = edatebox.Value Range("d6").Select ActiveCell.Value = sdate cnt = 1 Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(0, 1).Select ActiveCell = ActiveCell.Offset(0, -1) + 7 cnt = cnt + 1 End If Loop Until cnt = wknumtot Unload Me End Sub -- Sami82 ------------------------------------------------------------------------ Sami82's Profile: http://www.excelforum.com/member.php...o&userid=27111 View this thread: http://www.excelforum.com/showthread...hreadid=466700 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Linking computer dates (time) to spreadsheet dates that have formu | Excel Worksheet Functions | |||
how do I sort a column of random dates into Consecutive dates | Excel Worksheet Functions | |||
Toggle a range of Julian dates to Gregorian Dates and Back | Excel Programming | |||
Identifying unique dates in a range of cells containing dates... | Excel Discussion (Misc queries) | |||
Identifying unique dates within a range of cells containing dates | Excel Discussion (Misc queries) |