Busqueda de nombres

"Adolfo" escribió en el mensaje news:etLz%

Hola gente,
Necesito una herramienta que me permita buscar un conjunto de caracteres
dentro del nombre de las diferentes hojas que componen un libro, sería una
herramienta parecida a la opción buscar un valor dentro de una celda.
¿Existe algo así dentro de excel?

La siguiente función devuelve un objeto Worksheet que será la primera hoja en cuyo nombre se encuentre la cadena buscada:

Function BuscarEnNombreHojas(strTextoABuscar As String) As Worksheet
Dim wks As Worksheet

For Each wks In Worksheets
If InStr(wks.Name, strTextoABuscar) > 0 Then
Set BuscarEnNombreHojas = wks
Exit Function
End If
Next wks
End Function


y éste es el código para probarla:

Sub prueba()
Dim wksH As Worksheet
Set wksH = BuscarEnNombreHojas("TextoQueSeBusca")
If Not wksH Is Nothing Then MsgBox wksH.Name
End Sub

¿Desde VBA cómo se hace para saber si los caracteres "PRU" están contenidos
dentro de "prueba54"? Es decir, lo que necesito no es comparar que a=b (eso
si lo se hacer) sino si "a" esta contenido en "b" independientemente de si
son mayusculas o minusculas.

Una posibilidad de entre varias:

MsgBox IIf(InStr(UCase("PRUEBA"), UCase("pru")) > 0, True, False)

Un saludo.


Fernando Arroyo
MS MVP - Excel

Se agradece cualquier sugerencia y si necesitais mas aclaraciones sobre lo
que necesito no dudeis en preguntar.

Un saludo y gracias por anticipado
Adolfo

Con lo que me has puesto ya tengo para estar entretenido todo el fin de
semana, si tengo algun problema ya te comento.

Un saludo y muchas gracias.

"Fernando Arroyo" escribió en el mensaje
news:
"Adolfo" escribió en el mensaje
news:etLz%

Hola gente,
Necesito una herramienta que me permita buscar un conjunto de caracteres
dentro del nombre de las diferentes hojas que componen un libro, sería una
herramienta parecida a la opción buscar un valor dentro de una celda.
¿Existe algo así dentro de excel?

La siguiente función devuelve un objeto Worksheet que será la primera hoja
en cuyo nombre se encuentre la cadena buscada:

Function BuscarEnNombreHojas(strTextoABuscar As String) As Worksheet
Dim wks As Worksheet

For Each wks In Worksheets
If InStr(wks.Name, strTextoABuscar) > 0 Then
Set BuscarEnNombreHojas = wks
Exit Function
End If
Next wks
End Function


y éste es el código para probarla:

Sub prueba()
Dim wksH As Worksheet
Set wksH = BuscarEnNombreHojas("TextoQueSeBusca")
If Not wksH Is Nothing Then MsgBox wksH.Name
End Sub

¿Desde VBA cómo se hace para saber si los caracteres "PRU" están

contenidos

dentro de "prueba54"? Es decir, lo que necesito no es comparar que a=b

(eso

si lo se hacer) sino si "a" esta contenido en "b" independientemente de si
son mayusculas o minusculas.

Una posibilidad de entre varias:

MsgBox IIf(InStr(UCase("PRUEBA"), UCase("pru")) > 0, True, False)

Un saludo.


Fernando Arroyo
MS MVP - Excel

Se agradece cualquier sugerencia y si necesitais mas aclaraciones sobre lo
que necesito no dudeis en preguntar.

Un saludo y gracias por anticipado
Adolfo