Thread
:
"Subscript out of Range" Error Msg?
View Single Post
#
4
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
"Subscript out of Range" Error Msg?
To answer your question, this would be better.
Sub ft()
Set SheetNumber = Sheets("sheet1")
MsgBox SheetNumber.Range("a1")
End Sub
But you can't select the way you did. try something like
with sheets("sheet1")
startDate = .Range("c2")
endDate = .Range("e2")
..Columns("C:C").NumberFormat = "m/d/yyyy"
..Range("c2")=startDate '???
end with
--
Don Guillett
SalesAid Software
"mariasa" wrote in
message ...
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett