Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
nested loops
Some help please
when I try to run the following code I am getting "Loop without Do" Dim cell As Range, odate As Date, ndate As Date Set cell = ActiveWorkbook.Worksheets("Working Sample (3)").Cells(3, 2) Do Until IsEmpty(cell.Value) Do While cell = cell.Offset(-1, 0) odate = cell.Offset(-1, 11).Value ndate = cell.Offset(0, 11).Value ndate = odate If cell.Offset(0, 9) = "Y" Then ndate = DateAdd("y", 1, odate) If cell.Offset(0, 9) = "Q" Then ndate = DateAdd("m", 3, odate) End If Set cell = cell.Offset(1, 0) Loop Set cell = cell.Offset(1, 0) Loop I am attempting to schedul payments based on frequency, Y = Annually and Q = quarterly. Using the first payment date for a name in column 2, I am attempting to schedule payment dates by frequency col 2 col 11 col 13 1 $120.00 Y 9/30/2006 1 $100.00 Y 9/30/2006 1 $200.00 Y 9/30/2006 1 $300.00 Y 9/30/2006 1 $150.00 Y 9/30/2006 -- thanks as always for the help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
nested loops
You have 2 if-statements, and only one End If.
Bob Umlas "jer" wrote in message ... Some help please when I try to run the following code I am getting "Loop without Do" Dim cell As Range, odate As Date, ndate As Date Set cell = ActiveWorkbook.Worksheets("Working Sample (3)").Cells(3, 2) Do Until IsEmpty(cell.Value) Do While cell = cell.Offset(-1, 0) odate = cell.Offset(-1, 11).Value ndate = cell.Offset(0, 11).Value ndate = odate If cell.Offset(0, 9) = "Y" Then ndate = DateAdd("y", 1, odate) If cell.Offset(0, 9) = "Q" Then ndate = DateAdd("m", 3, odate) End If Set cell = cell.Offset(1, 0) Loop Set cell = cell.Offset(1, 0) Loop I am attempting to schedul payments based on frequency, Y = Annually and Q = quarterly. Using the first payment date for a name in column 2, I am attempting to schedule payment dates by frequency col 2 col 11 col 13 1 $120.00 Y 9/30/2006 1 $100.00 Y 9/30/2006 1 $200.00 Y 9/30/2006 1 $300.00 Y 9/30/2006 1 $150.00 Y 9/30/2006 -- thanks as always for the help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
nested loops
Thanks Bob ... found out after I posted ...
-- thanks as always for the help "Bob Umlas" wrote: You have 2 if-statements, and only one End If. Bob Umlas "jer" wrote in message ... Some help please when I try to run the following code I am getting "Loop without Do" Dim cell As Range, odate As Date, ndate As Date Set cell = ActiveWorkbook.Worksheets("Working Sample (3)").Cells(3, 2) Do Until IsEmpty(cell.Value) Do While cell = cell.Offset(-1, 0) odate = cell.Offset(-1, 11).Value ndate = cell.Offset(0, 11).Value ndate = odate If cell.Offset(0, 9) = "Y" Then ndate = DateAdd("y", 1, odate) If cell.Offset(0, 9) = "Q" Then ndate = DateAdd("m", 3, odate) End If Set cell = cell.Offset(1, 0) Loop Set cell = cell.Offset(1, 0) Loop I am attempting to schedul payments based on frequency, Y = Annually and Q = quarterly. Using the first payment date for a name in column 2, I am attempting to schedule payment dates by frequency col 2 col 11 col 13 1 $120.00 Y 9/30/2006 1 $100.00 Y 9/30/2006 1 $200.00 Y 9/30/2006 1 $300.00 Y 9/30/2006 1 $150.00 Y 9/30/2006 -- thanks as always for the help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with nested for loops | Excel Discussion (Misc queries) | |||
Help with nested for loops | Excel Worksheet Functions | |||
nested for loops and end for | Excel Programming | |||
Help on nested loops | Excel Programming | |||
Nested loops?? | Excel Programming |