Find text string within a named range
 

Hi all,

I'm trying to find a text string using a named range as the searching area
but it doesn't work:

Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")

c = ActiveCell.Value

Set RngFound = RngToSearch.Find(c)

If RngFound Is Nothing Then
MsgBox "xxx"
Else

End If

End Sub

Any Ideas??

Thanks in advance.

Find text string within a named range
 

Set RngToSearch = ActiveWorkbook.Range("tipos_dcto")


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"AshMorK" wrote in message
...
Hi all,

I'm trying to find a text string using a named range as the searching area
but it doesn't work:

Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")

c = ActiveCell.Value

Set RngFound = RngToSearch.Find(c)

If RngFound Is Nothing Then
MsgBox "xxx"
Else

End If

End Sub

Any Ideas??

Thanks in advance.

Find text string within a named range
 

Thnks Bob x ur help. But although it makes reference to the named range, the
sub still can't find anything. And returns a "run time error '438': Objet
doesn't support this property or method".

Thanks.

"Bob Phillips" wrote:

Set RngToSearch = ActiveWorkbook.Range("tipos_dcto")


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"AshMorK" wrote in message
...
Hi all,

I'm trying to find a text string using a named range as the searching area
but it doesn't work:

Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")

c = ActiveCell.Value

Set RngFound = RngToSearch.Find(c)

If RngFound Is Nothing Then
MsgBox "xxx"
Else

End If

End Sub

Any Ideas??

Thanks in advance.

Find text string within a named range
 

change
Dim RngToSearch As Name
to
Dim RngToSearch As Range

and then try this
Set RngToSearch = ActiveWorkbook.names("tipos_dcto").RefersToRange
Set RngFound = RngToSearch.Find(c)

Regards,
Peter T

"AshMorK" wrote in message
...
Thnks Bob x ur help. But although it makes reference to the named range,
the
sub still can't find anything. And returns a "run time error '438': Objet
doesn't support this property or method".

Thanks.

"Bob Phillips" wrote:

Set RngToSearch = ActiveWorkbook.Range("tipos_dcto")


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"AshMorK" wrote in message
...
Hi all,

I'm trying to find a text string using a named range as the searching
area
but it doesn't work:

Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")

c = ActiveCell.Value

Set RngFound = RngToSearch.Find(c)

If RngFound Is Nothing Then
MsgBox "xxx"
Else

End If

End Sub

Any Ideas??

Thanks in advance.

Find text string within a named range
 

ActiveWorkbook (and Workbook objects generally) don't have a Range
method. You need either to change it to
ActiveWorksheet.Range("tipos_dicto")
or to use Peter T's suggestion of
ActiveWorkbook.names("tipos_dcto").RefersToRange


On Dec 6, 5:28 pm, AshMorK wrote:
Thnks Bob x ur help. But although it makes reference to the named range, the
sub still can't find anything. And returns a "run time error '438': Objet
doesn't support this property or method".

Thanks.



"Bob Phillips" wrote:
Set RngToSearch = ActiveWorkbook.Range("tipos_dcto")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"AshMorK" wrote in message
...
Hi all,

I'm trying to find a text string using a named range as the searching area
but it doesn't work:

Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")

c = ActiveCell.Value

Set RngFound = RngToSearch.Find(c)

If RngFound Is Nothing Then
MsgBox "xxx"
Else

End If

End Sub

Any Ideas??

Thanks in advance.- Hide quoted text -

- Show quoted text -

Find text string within a named range
 

Thanks Peter, It works perfectly now!!!

"Peter T" wrote:

change
Dim RngToSearch As Name
to
Dim RngToSearch As Range

and then try this
Set RngToSearch = ActiveWorkbook.names("tipos_dcto").RefersToRange
Set RngFound = RngToSearch.Find(c)

Regards,
Peter T

"AshMorK" wrote in message
...
Thnks Bob x ur help. But although it makes reference to the named range,
the
sub still can't find anything. And returns a "run time error '438': Objet
doesn't support this property or method".

Thanks.

"Bob Phillips" wrote:

Set RngToSearch = ActiveWorkbook.Range("tipos_dcto")


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"AshMorK" wrote in message
...
Hi all,

I'm trying to find a text string using a named range as the searching
area
but it doesn't work:

Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")

c = ActiveCell.Value

Set RngFound = RngToSearch.Find(c)

If RngFound Is Nothing Then
MsgBox "xxx"
Else

End If

End Sub

Any Ideas??

Thanks in advance.