type mismatch error
Hi Monique,
You dimension temparray(0 To CellsAcross)
then you make a loop :
For j = 1 To CellsAcross
Next j
The For ... next will actually stop untill j = CellsAcross+1
Therefore, temparray(j) =temparray(CellsAcross +1), wich gives an error
because you exceed the upper bound.
Regards
Jean-Yves
"Monique" wrote in message
...
this happens after the loop is complete, so when i type in
datestr = "1/" & temparray(j). it gives me a subscript out of range error.
when should i format the datestr then?
"ben" wrote:
you don't tell excel which array value in temparray to use try that
for instance
dateStr = "1/" & temparray(j-1)
'would give you last value assigned to the temparry
also try maybe
dateStr = "1/" + trim(str(temparray))
--
When you lose your mind, you free your life.
"Monique" wrote:
I keep receiving a type mismatch error at the datestr location. I'm
not sure
why.
If anyone could assist... thanks
Private Sub GetDate(DateRange As String, cellSrc As String, cellStart
As
Range)
Dim setDate As Integer
Dim j As Integer
Dim myRange As Range
Dim dateStr As String
Dim temparray() As Integer
Dim CellsAcross As Integer
CellsAcross = cellSrc
ReDim temparray(0 To CellsAcross)
Set myRange = cellStart.Range(Cells(1, 1), Cells(1, CellsAcross))
setDate = Year(DateRange)
For j = 1 To CellsAcross
temparray(j) = setDate + 1
setDate = setDate + 1
Next j
dateStr = "1/" & temparray
myRange.value = dateStr
End Sub
|