Analizar datos intrducidos por InputBox

[cgcamal]

Hola,

Talvez me puedan ayudar con lo siguiente:

Tengo una macro que realiza una búsqueda en una columna específica dentro de una tabla, introduciendo lo que quiero buscar por medio de un InputBox, si la palabra se encuentra se crea una hoja nueva poniendo como nombre lo que se escribió en el InputBox y arrastrando todo lo relacionado a esa frase o palabra.

Mis preguntas son:

1) Ya que el # máximo de caracteres para el nombre de una hoja es 31,
¿Cómo decirle a la macro que si encuentra la palabra cree la hoja
pero solo con los primeros 31 caracteres como nombre de hoja?
(Esto para evitar que se genere error).

2)¿Cómo decir a la macro que si la palabra o frase introducida en el
InputBox contiene caracteres prohibidos(", / \ ? * ^[ ]), dé un
mensaje informando que no se permiten introducir estos y que se
intente de nuevo?

Saludos y gracias de antemano.

 

[Greg Truby]

Disculpe que no me alcanza el tiempo para explicar esto bien, pero debe de servirle bien. Note que hay que poner una referencia a la biblioteca de MS VBScript Regular Expressions x.x (tengo 5.5)

Sub NameTheSheet()
    Dim strNewName As String
    strNewName = Application.InputBox("New name for sheet", "New Sheet Name", , , , , , 2)
    strNewName = Left(RegExpSubstitute(strNewName, "[^A-Za-z0-9 ÑñÁáÉéÍíÓóÚúÜü]", ""), 31)
    On Error Resume Next
    ActiveSheet.Name = strNewName
    If Err.Number <> 0 Then MsgBox strNewName & " no funcionó.", vbExclamation, "Nombre malo"
End Sub

Function RegExpSubstitute(ReplaceIn, ReplaceWhat, ReplaceWith)
' From Tushar's post here:
' http://www.mrexcel.com/board2/viewtopic.php?t=52283&start=11
'
' ¡¡¡ requires a reference to MS VBScript Regular Expression library !!!
'
    Dim x As RegExp
    Set x = New RegExp
    x.Pattern = ReplaceWhat
    x.Global = True
    RegExpSubstitute = x.Replace(ReplaceIn, ReplaceWith)
End Function

Si tiene alguna dificultad con poner la referencia a la biblioteca, puede probar la versión que Tushar tiene aquí.

 

[cgcamal]

Hey Greg!!!,

¿Qué tal estás?

Muchas gracias de nuevo, voy a analizar el código que me pasaste, luego lo adecuaré a mi macro y te cuento como me fue.

Saludos cordiales.