#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Find


So, I'm trying to look at the current sheet and see if AWP is anywher
on the page.
I'm using the code below, but I’m getting false positives. I check i
by searching the sheet again with the normal find and nothing come
up.

Dim rngFound As Range
Dim this As String
this = ActiveSheet.Name
Set rngFound = Sheets(this).Columns("A:U").Find(What:=awp
LookAt:=xlWhole, LookIn:=xlValues)
If rngFound Is Nothing Then
MsgBox "d'oh!"
Else
With Sheets(this)
MsgBox "Yahoo"
End With
End If

Also, I’m trying to differentiate between two types of cells. On
which has either a < or and another type that just has a =. Woul
find be the way to go and possibly confine the search to just on
cell?

Thanks for any assistance you can offer,

Chri

--
cbh3571
-----------------------------------------------------------------------
cbh35711's Profile: http://www.excelforum.com/member.php...fo&userid=3027
View this thread: http://www.excelforum.com/showthread.php?threadid=52921

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5,939
Default Find

I am guessing you do not have Option Explicit at the top of your code module.
Add that line and Select debug - compile. It should highlight the find
statement with a message to the effect that awp is not defined. I think what
you want is What:="AWP". You probably also what MatchCase:=False...

Check out this link on declaring variables...

http://www.cpearson.com/excel/DeclaringVariables.htm

As for the formulas with < or , yes you can use a find. Change xlValues to
xlFormulas and you will be off to the races...
--
HTH...

Jim Thomlinson


"cbh35711" wrote:


So, I'm trying to look at the current sheet and see if AWP is anywhere
on the page.
I'm using the code below, but Im getting false positives. I check it
by searching the sheet again with the normal find and nothing comes
up.

Dim rngFound As Range
Dim this As String
this = ActiveSheet.Name
Set rngFound = Sheets(this).Columns("A:U").Find(What:=awp,
LookAt:=xlWhole, LookIn:=xlValues)
If rngFound Is Nothing Then
MsgBox "d'oh!"
Else
With Sheets(this)
MsgBox "Yahoo"
End With
End If

Also, Im trying to differentiate between two types of cells. One
which has either a < or and another type that just has a =. Would
find be the way to go and possibly confine the search to just one
cell?

Thanks for any assistance you can offer,

Chris


--
cbh35711
------------------------------------------------------------------------
cbh35711's Profile: http://www.excelforum.com/member.php...o&userid=30276
View this thread: http://www.excelforum.com/showthread...hreadid=529219


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 4,339
Default Find

need AWP in quotes otherwise EXcel treats AWP s variable.

What:="awp",

"cbh35711" wrote:


So, I'm trying to look at the current sheet and see if AWP is anywhere
on the page.
I'm using the code below, but Im getting false positives. I check it
by searching the sheet again with the normal find and nothing comes
up.

Dim rngFound As Range
Dim this As String
this = ActiveSheet.Name
Set rngFound = Sheets(this).Columns("A:U").Find(What:=awp,
LookAt:=xlWhole, LookIn:=xlValues)
If rngFound Is Nothing Then
MsgBox "d'oh!"
Else
With Sheets(this)
MsgBox "Yahoo"
End With
End If

Also, Im trying to differentiate between two types of cells. One
which has either a < or and another type that just has a =. Would
find be the way to go and possibly confine the search to just one
cell?

Thanks for any assistance you can offer,

Chris


--
cbh35711
------------------------------------------------------------------------
cbh35711's Profile: http://www.excelforum.com/member.php...o&userid=30276
View this thread: http://www.excelforum.com/showthread...hreadid=529219


  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Find


Great thanks guys.
Works groovily now.

Chri

--
cbh3571
-----------------------------------------------------------------------
cbh35711's Profile: http://www.excelforum.com/member.php...fo&userid=3027
View this thread: http://www.excelforum.com/showthread.php?threadid=52921

Reply
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
Find First Non blank cell than find column header and return that value Silver Rose Excel Worksheet Functions 10 April 30th 07 05:56 PM
Despite data existing in Excel 2002 spreadsheet Find doesn't find AnnieB Excel Discussion (Misc queries) 1 June 16th 06 02:15 AM
find and delete duplicate entries in two columns or find and prin. campare 2 columns of numbers-find unique Excel Programming 1 November 24th 04 04:09 PM
find and delete text, find a 10-digit number and put it in a textbox Paul Excel Programming 3 November 16th 04 04:21 PM
backwards find function to find character in a string of text Ashleigh K. Excel Programming 1 January 14th 04 04:36 PM


All times are GMT +1. The time now is 10:07 PM.

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

About Us

"It's about Microsoft Excel"