Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find text in a string that matches value(s) in a range | Excel Programming | |||
Find the POSITION IN A RANGE of text in a string that matches value(s) in a range | Excel Programming | |||
Retrieving range string from named range | Excel Programming | |||
backwards find function to find character in a string of text | Excel Programming | |||
Setting named range in VBA- how to set as formula/reference instead of text string? | Excel Programming |