LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 60
Default type mismatch error

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
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Visual Basic Error Run Time Error, Type Mismatch Meg Partridge Excel Discussion (Misc queries) 12 September 10th 08 06:10 PM
Type Mismatch error Grant Excel Programming 6 September 1st 04 11:12 PM
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error rdavis7408 Excel Programming 1 August 25th 04 03:54 AM
Help with Error: Type Mismatch rleonard[_2_] Excel Programming 0 June 5th 04 07:46 AM
Type Mismatch Error Need Help Ray Batig Excel Programming 1 September 16th 03 12:57 AM


All times are GMT +1. The time now is 02:41 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"