Desperately Seeking FirstCell Find !

  • Thread starter Thread starter Goofy
  • Start date Start date
G

Goofy

I am trying to search in the fist column of a range using the following
code. The problem is that the first item is never searched as it allways
starts 'AFTER' the top left hand cell, so I have a column of numbers 1 to
16 and I want to find 1, it starts at cell 2 and therfore never find the 1

Any Ideas ???

Public Function lookupRange(ByVal rangeName As Range, key As Variant, col As
Presets) As Variant

On Error Resume Next

Dim mr As Range

Set mr = rangeName.Find(what:=key, LookIn:=xlValues, lookat:=xlWhole,
SearchDirection:=xlNext, SearchOrder:=xlByColumns)
lookupRange = mr.Offset(0, col)


End Function
 
But what I have is not a formula, its a simple value. What I have ended up
doing is specifying my range as the first column only, this way it wrapos
around to the first cell.

Thanks for your help anyway
 
Thanks Don, I'll take a look at this. There seems to be many ways of
skinning the cat in Excel VBA
 
You don't need vba to create what exists. What you were doing was creating a
new function when you could just use the functions already in existance.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Object Variable Not Set 3
Find Question 1
Loop through Variables 4
Resize to last entry in row and copy to sheet 1 3
find question on vba 1
Dynamic Offset from an Application.Goto cell = Date or Time 10
Placing the MsgBox "No ID found" statement in my code?? 12
Transfer array element offset value to a matched value 3

Back
Top