PLS HELP! A "worksheet.MATCH " formula inside a lo

gab

New Member
Joined
Jul 24, 2007
Messages
24
hello, ,,,sorry if i bother again, but the las tip you gave me works excellent.....now i got an issue regarding to that...i have this code:

Dim t
For t = 1 To last_counter
t = t + 1
Windows("Frisa.xls").Activate
xc = Application.WorksheetFunction.Match(ter, Range("A:A"), 0)

....etc

I need the counter "ter" (in this case, would be = 2),find for the "ter" value (number 2) in the range resulting in the rownumber where the value of ter is.

But is not working!....when I run the code, appears an error and ter with the value of 3 (or if i change to another var, i.e just t appears 4)...so please,,i will appreciatte your help again
 

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.

Anthony47

Well-known Member
Joined
Mar 29, 2006
Messages
2,583
If you receive a run time error 1004 it means that the value is not found within A:A; are you sure that what you look for is there?
Anywhay you must set an error handler to avoid going to debug in the case the value is missing.
You do not specify how the variable "ter" is defined (dim) and set to a value; doublecheck that the data into ter and in A:A have the same nature (both text, for example, or both numbers...).
Also, do you have an answer to why you set ter to 2 but then it shows as 3???
Finally, I should insert a Sheets("Sheet1").select (or the sheet name you have to look in) just before the .match instruction.

Hope this helps, bye.
 

jindon

MrExcel MVP
Joined
Aug 21, 2004
Messages
16,995
gab

It is always much better to specify the range with Workbook.Sheet.Range and don't Select/Activate the object.
When you use WorksheetFunction.Match, you will get Runtime error when the match doesn't exist in the range.
Code:
Dim myRng As Range
Set myRng = Workbooks("Fris.xls").Sheets("Sheet1").Range("A:A")
On Error Resume Next
xc = Application.WorksheetFunction.Match(ter, myRng, 0)
If Err <> 0 Then xc = "#N/A"
On Error GoTo 0
MsgBox xc
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,488
Messages
5,837,623
Members
430,506
Latest member
TonyIbbs

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
Top