Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
Hi guys, could you pls have a look at my code and let me know why i keep getting this error msg every time i try to execute it? Thanks so much, Maria Sub CommandButtonDRG_Click() Dim i As Integer Dim curCell As Date Dim startDate As Date Dim endDate As Date Dim SheetNumber As Integer SheetNumber = "949" startDate = Sheets(SheetNumber).Range("c2").Value endDate = Sheets(SheetNumber).Range("e2").Value Sheets(SheetNumber).Columns("C:C").Select Selection.NumberFormat = "m/d/yyyy" Sheets(SheetNumber).Range("c2").Select ActiveCell.FormulaR1C1 = startDate i = 3 Do curCell = Sheets(SheetNumber).Cells(i, 3).Select ActiveCell.FormulaR1C1 = "=dvstradedate(R[-1]C,1)" i = i + 1 Loop Until Sheets(SheetNumber).Cells(i - 1, 3).Value = endDate End End Sub -- mariasa ------------------------------------------------------------------------ mariasa's Profile: http://www.excelforum.com/member.php...o&userid=31726 View this thread: http://www.excelforum.com/showthread...hreadid=523076 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
Dim SheetNumber As String
HTH -- AP "mariasa" a écrit dans le message de ... Hi guys, could you pls have a look at my code and let me know why i keep getting this error msg every time i try to execute it? Thanks so much, Maria Sub CommandButtonDRG_Click() Dim i As Integer Dim curCell As Date Dim startDate As Date Dim endDate As Date Dim SheetNumber As Integer SheetNumber = "949" startDate = Sheets(SheetNumber).Range("c2").Value endDate = Sheets(SheetNumber).Range("e2").Value Sheets(SheetNumber).Columns("C:C").Select Selection.NumberFormat = "m/d/yyyy" Sheets(SheetNumber).Range("c2").Select ActiveCell.FormulaR1C1 = startDate i = 3 Do curCell = Sheets(SheetNumber).Cells(i, 3).Select ActiveCell.FormulaR1C1 = "=dvstradedate(R[-1]C,1)" i = i + 1 Loop Until Sheets(SheetNumber).Cells(i - 1, 3).Value = endDate End End Sub -- mariasa ------------------------------------------------------------------------ mariasa's Profile: http://www.excelforum.com/member.php...o&userid=31726 View this thread: http://www.excelforum.com/showthread...hreadid=523076 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
Thanks, but I tried that, and now I get the "Application-defined o object-defined error" msg :- -- marias ----------------------------------------------------------------------- mariasa's Profile: http://www.excelforum.com/member.php...fo&userid=3172 View this thread: http://www.excelforum.com/showthread.php?threadid=52307 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
Try dimming it as a long and removing the quotes from around it (unless it's
really named "929"). hth, Doug "mariasa" wrote in message ... Thanks, but I tried that, and now I get the "Application-defined or object-defined error" msg :-( -- mariasa ------------------------------------------------------------------------ mariasa's Profile: http://www.excelforum.com/member.php...o&userid=31726 View this thread: http://www.excelforum.com/showthread...hreadid=523076 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
Thanks for the suggestion. I tried this, following ur advice. But i still gives me the error message - really annoying. Best, Maria Sub CommandButtonDRG_Click() Dim i As Integer Dim curCell As Date Dim startDate As Date Dim endDate As Date With Sheets("943") startDate = Range("c2").Value endDate = Range("e2").Value Columns("C:C").Select Selection.NumberFormat = "m/d/yyyy" Range("c2").Select ActiveCell.FormulaR1C1 = startDate i = 3 Do curCell = Cells(i, 3).Select ActiveCell.FormulaR1C1 = "=dvstradedate(R[-1]C,1)" i = i + 1 Loop Until Cells(i - 1, 3).Value = endDate End End With End Su -- marias ----------------------------------------------------------------------- mariasa's Profile: http://www.excelforum.com/member.php...fo&userid=3172 View this thread: http://www.excelforum.com/showthread.php?threadid=52307 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
Actually doing it with the String object works /see code below. So seem to be all set. Thanks, guys!!! :-) Best, Maria Sub CommandButtonDRG_Click() Dim i As Integer Dim curCell As Date Dim startDate As Date Dim endDate As Date Dim SheetNumber As String SheetNumber = "943" startDate = Sheets(SheetNumber).Range("c2").Value endDate = Sheets(SheetNumber).Range("e2").Value Sheets(SheetNumber).Columns("C:C").Select Selection.NumberFormat = "m/d/yyyy" Sheets(SheetNumber).Range("c2").Select ActiveCell.FormulaR1C1 = startDate i = 3 Do curCell = Sheets(SheetNumber).Cells(i, 3).Select ActiveCell.FormulaR1C1 = "=dvstradedate(R[-1]C,1)" i = i + 1 Loop Until Sheets(SheetNumber).Cells(i - 1, 3).Value = endDate End End Su -- marias ----------------------------------------------------------------------- mariasa's Profile: http://www.excelforum.com/member.php...fo&userid=3172 View this thread: http://www.excelforum.com/showthread.php?threadid=52307 |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Subscript out of Range" Error Msg?
When you use WITH you need to use . in front of your ranges that apply to
the with startDate = Range("c2").Value startDate = . Range("c2").Value Also, you paid NO attention to the other suggestions I gave about selecting. -- Don Guillett SalesAid Software "mariasa" wrote in message ... Thanks for the suggestion. I tried this, following ur advice. But it still gives me the error message - really annoying. Best, Maria Sub CommandButtonDRG_Click() Dim i As Integer Dim curCell As Date Dim startDate As Date Dim endDate As Date With Sheets("943") startDate = Range("c2").Value endDate = Range("e2").Value Columns("C:C").Select Selection.NumberFormat = "m/d/yyyy" Range("c2").Select ActiveCell.FormulaR1C1 = startDate i = 3 Do curCell = Cells(i, 3).Select ActiveCell.FormulaR1C1 = "=dvstradedate(R[-1]C,1)" i = i + 1 Loop Until Cells(i - 1, 3).Value = endDate End End With End Sub -- mariasa ------------------------------------------------------------------------ mariasa's Profile: http://www.excelforum.com/member.php...o&userid=31726 View this thread: http://www.excelforum.com/showthread...hreadid=523076 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Subscript out of range" error for: Workbooks("Test1.xls").Save | Excel Programming | |||
FileCopy Command Giving "Subscript Out of Range" Error Message | Excel Programming | |||
"Subscript out of range Runtime Error 9" | Excel Programming | |||
SaveAs "subscript out of range" error (COM - SOAP) | Excel Programming | |||
SaveAs "subscript out of range" error (COM - SOAP) | Excel Programming |