verificador de duplicador de hojas

[gabriel calosso]

Hola, tengo esta macro que crea una hoja nueva, introduce el nombre de una pieza en una cierta celda, y el nombre de la pieza es tambien el nombre de la hoja.

Ahora lo que quiero modificar es que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola!
Es una ayuda:

Sub InsertaHoja()
Dim i As Integer, NombreHoja As String
NombreHoja = Trim(InputBox("Ingrese Nombre Pieza", "Sr. Operador"))
If Len(NombreHoja) = 0 Then Exit Sub
For i = 1 To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Perdón, este es lo más adecuado.

Sub InsertaHoja()
Dim i As Integer, NombreHoja As String
NombreHoja = Trim(InputBox("Ingrese Nombre Pieza", "Sr. Operador"))
If Len(NombreHoja) = 0 Then Exit Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[gabriel calosso]

Gracias funciono perfecto, pero no me diferencia una pieza en mayuscula y otra en minuscula, que puedo hacer?

Ejemplo, radio - RADIO o radio - Radio etc....

una posible solucion que pensé seria...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Al principio de módulo coloca Option Compare Text, es decir el módulo deberí­a quedar así­:

Option Compare Text

Sub InsertaHoja()
....
End Sub

Ojo, el Option ... va afuera del sub.
Atte.

 

[gabriel calosso]

Correcto, listo. Gracias.
Feliz fin de semana.

Gabriel.