I have a sorted column of text that I want to find the last instance
where the text begins with an asterisk ("*"). I can use this code to
do the search, but I would have to know how many times to "continue the
search". Also, the "~*" will also find any word with the asterisk in
it, while I only want those words with the asterisk as the first
character.


Columns("C:C").Select
Selection.Find(What:="~*", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate




--

try this

just change matchcase:=False to matchcase:=True



On Jan 7, 11:26*pm, "Chris Premo" wrote:
I have a sorted column of text that I want to find the last instance
where the text begins with an asterisk ("*"). *I can use this code to
do the search, but I would have to know how many times to "continue the
search". *Also, the "~*" will also find any word with the asterisk in
it, while I only want those words with the asterisk as the first
character.

* * Columns("C:C").Select
* * Selection.Find(What:="~*", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
* * * * :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
* * * * False, SearchFormat:=False).Activate
* * Selection.FindNext(After:=ActiveCell).Activate

--

muddan madhu wrote:

try this

just change matchcase:=False to matchcase:=True

No help, but thanks any way.


--

On Wed, 07 Jan 2009 10:26:52 -0800, "Chris Premo" wrote:

I have a sorted column of text that I want to find the last instance
where the text begins with an asterisk ("*"). I can use this code to
do the search, but I would have to know how many times to "continue the
search". Also, the "~*" will also find any word with the asterisk in
it, while I only want those words with the asterisk as the first
character.


Columns("C:C").Select
Selection.Find(What:="~*", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate


If by "last instance" you mean the instance in the highest numbered row in
Column C, and if you mean that the first character in the cell should be an
asterisk, then try this:

==========================
Sub LastAsterisk()
Dim r As Range
Set r = Columns(3).Find(what:="~**", _
after:=Range("C1"), _
lookat:=xlWhole, _
searchdirection:=xlPrevious)

Debug.Print r.Address
End Sub
====================

--ron

Ron Rosenfeld wrote:

That worked. Thanks!


--

On Wed, 07 Jan 2009 12:05:36 -0800, "Chris Premo" wrote:

Ron Rosenfeld wrote:

That worked. Thanks!


Glad to help. Thanks for the feedback.
--ron