Si no existe hoja "nombre", crearla, en VBA

Prueba colocando este codigo en un nuevo modulo.

Sub BuscaHoja()

Dim NombreHoja As String
Dim Hoja As Worksheet

NombreHoja = InputBox("Ingrese el Nombre de la Hoja a
Buscar", "Busqueda de Hoja")


For Each Hoja In Worksheets
If NombreHoja = Hoja.Name Then
MsgBox "La hoja ya existe"
Sheets(NombreHoja).Activate
Exit Sub
End If
Next

Sheets.Add
ActiveSheet.Name = NombreHoja

End Sub

Mostrar la cita

Saludos al entrar en el grupo. He mirado los mensajes y

no veo este asunto,
Mostrar la cita

por eso lo abro: quiero saber cómo detectar por programa

VBA si en un libro
Mostrar la cita

xls existe una hoja con un "nombre" determinado.
En caso contrario, crearla.





.

"Tito" escribió en el mensaje news:
Mostrar la cita

Saludos al entrar en el grupo. He mirado los mensajes y no veo este asunto,
por eso lo abro: quiero saber cómo detectar por programa VBA si en un libro
xls existe una hoja con un "nombre" determinado.
En caso contrario, crearla.

Hay varias formas de hacerlo. Una de ellas, que tiene la ventaja de no tener que trabajar con For Each podría ser:

If IsError([NombreHoja!IV65536]) Then
Worksheets.Add
ActiveSheet.Name = "NombreHoja"
End If

El código fallaría si existiera una hoja llamada NombreHoja y su celda IV65536 tuviera un valor de error, pero ¡ya sería casualidad! :-))
Un saludo.


Fernando Arroyo
MS MVP - Excel

Gracias, Leandro. Tu solución es más elegante que otra que me estaban
explicando mientras contestabas.
Intentábamos hacerlo con bucle While Do Loop con Sheets(i) hasta que
Sheets(i).Name coincide con el nombre buscado.
Ahora, una vez vista la solución, lo veo facil, pero a mí no se me ocurre...
¿falta de práctica?

Tambien se podría hacer de esa manera.
Igualmente se podría perfeccionar un poco más, debido a
que no distingue mayusculas y minusculas. Si ingresas
hoja1 te va a decir que no existe, pero en realidad existe
Hoja1, por lo que te va a generar un error al intentar
crear la hoja porque la hoja1 ya existe.
Sinceramente la idea de Fernando Arroyo no puedo
entenderla...
Como vos decis creo que todo es práctica pero tambien es
muy importante "saber donde encontrar la informacion"

saludos desde Buenos Aires, Argentina

Mostrar la cita

Gracias, Leandro. Tu solución es más elegante que otra

que me estaban
Mostrar la cita

explicando mientras contestabas.
Intentábamos hacerlo con bucle While Do Loop con Sheets

(i) hasta que
Mostrar la cita

Sheets(i).Name coincide con el nombre buscado.
Ahora, una vez vista la solución, lo veo facil, pero a mí

no se me ocurre...
Mostrar la cita

¿falta de práctica?





.

Mostrar la cita

Tambien se podría hacer de esa manera.
Igualmente se podría perfeccionar un poco más, debido a
que no distingue mayusculas y minusculas. Si ingresas
hoja1 te va a decir que no existe, pero en realidad

existe
Mostrar la cita

Hoja1, por lo que te va a generar un error al intentar
crear la hoja porque la hoja1 ya existe.
Sinceramente la idea de Fernando Arroyo no puedo
entenderla...

la verdad es que yo tampoco la entiendo :D
pero funciona!!
fernando, podrias explicarnos tu codigo?? gracias!!


desi

Mostrar la cita

Como vos decis creo que todo es práctica pero tambien es
muy importante "saber donde encontrar la informacion"

saludos desde Buenos Aires, Argentina

Mostrar la cita

Gracias, Leandro. Tu solución es más elegante que otra

que me estaban
Mostrar la cita

explicando mientras contestabas.
Intentábamos hacerlo con bucle While Do Loop con Sheets

(i) hasta que
Mostrar la cita

Sheets(i).Name coincide con el nombre buscado.
Ahora, una vez vista la solución, lo veo facil, pero a

mí
Mostrar la cita

no se me ocurre...
Mostrar la cita

¿falta de práctica?





.

.