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

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

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

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