vba 'Match' function with dates

B

BigLRIP

Board Regular
Joined
May 7, 2009
Messages
123
Hi,

I'm trying to use the Match function to take a specific date and find it within a row of cells. However, dates are giving me problems as the match function seems to be functioning poorly.

Code: 
...
Sheets("Sheet1").Select
date = Cells(row_index, 5).Text
lookup_range = Sheets("Sheet2").Range("2:2")
date_col_index = Application.Match(date, lookup_range, 0)
...

date_col_index returns 'Error 2042'

My dates are in the format of mmm-yy.
I was thinking about casting my date as a long, but the lookup_range would still be in normal date format. Any ideas around this?
 

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).
Sort by date Sort by votes
Don't use Date as a variable name - Date is the equivalent of Today() in VBA.

Once the above is corrected I would cast the variable to Long in the Match as you suggest.
 
Upvote 0
DonkeyOte said:
Don't use Date as a variable name - Date is the equivalent of Today() in VBA.

Once the above is corrected I would cast the variable to Long in the Match as you suggest.
Click to expand...

I'm actually not using date as a variable name, just changed it for this forum.

Code: 
Dim quarter As String
quarter = Sheets("Sheet1").Cells(row_index, 5).Text
quarter = CDate(quarter)
quarter = CLng(quarter)

Final line keeps giving me a <'type mismatch> error
 
Upvote 0
...quarter is declared as a string.

...accepting the above fact and adapting your earlier pseudo-code perhaps:

Code: 
Dim quarter As String
quarter = Sheets("Sheet1").Cells(row_index, 5).Text
Set lookup_range = Sheets("Sheet2").Range("2:2")
date_col_index = Application.Match(CLng(CDate(quarter)), lookup_range, 0)
Set lookup_range = Nothing

It's unclear what date_col_index is declared as but it should probably be a Variant (test variable result IsNumeric to ensure valid Match has been found)
 
Upvote 0
DonkeyOte said:
...quarter is declared as a string.

...accepting the above fact and adapting your earlier pseudo-code perhaps:

Code: 
Dim quarter As String
quarter = Sheets("Sheet1").Cells(row_index, 5).Text
Set lookup_range = Sheets("Sheet2").Range("2:2")
date_col_index = Application.Match(CLng(CDate(quarter)), lookup_range, 0)
Set lookup_range = Nothing

It's unclear what date_col_index is declared as but it should probably be a Variant (test IsNumeric to ensure valid Match has been found)
Click to expand...

Thanks Donkey I'll test it out.

I actually just changed
Code: 
quarter = Sheets("Sheet1").Cells(row_index, 5).Text
to:
Code: 
quarter = Sheets("Sheet1").Cells(row_index, 5).Value

Then did
Code: 
Cdate(quarter)

and it seems to be working fine.
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Question Question
I need to reference sheets with names that are dates, but cannot get formula to work!
Replies
3
Views
171
RoryA
RoryA
D
  • Solved
Date Issues with User Forms
Replies
4
Views
204
dmt32
D
P
  • Solved
Dynamic Sheet Tabs in Index Match function
Replies
9
Views
268
Peter_SSs
Peter_SSs
A
  • Question Question
Rename sheets by cell value in date format
Replies
1
Views
184
Kaper
Kaper
A
  • Question Question
How restrict copy data from form to sheet based on five days within current month
Replies
3
Views
110
Ali M
A

Forum statistics

Threads
1,224,507
Messages
6,179,181
Members
452,893
Latest member
denay

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top