Hojas de cálculo en Excel - página principal

Verificar si existe o no, una hoja del libro

Ayer publiqué este código en un foro de la red, en respuesta a una pregunta sobre como controlar la existencia de una hoja de cálculo dentro de un libro de excel. Como creo que es interesante, y os puede ser de utilizad a más de uno, lo comparto en mi blog:


Sub comprobar_la_existencia_de_la_hoja()
'***************************************
'Aquí pondremos el nombre de la hoja de cálculo
'cuya existencia queremos verificar

hoja_de_calculo = "nombre_de_la_hoja"
'***************************************
On Error Resume Next
Sheets(hoja_de_calculo).Select
'comprobamos si existe o no la hoja
If ActiveSheet.Name <> hoja_de_calculo Then
respuesta = MsgBox("La hoja de cálculo no existe." + Chr(13) + "¿Deseas crear una " _
+ "hoja de cálculo que se llame """ & hoja_de_calculo & """?", vbOKCancel, "Pregunta")
If respuesta = 1 Then
'Añadimos la hoja
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = hoja_de_calculo
mensaje = MsgBox("La hoja de cálculo """ & hoja_de_calculo & """ ha " _
+ "sido creada.", vbOKOnly, "Conclusión")
End If
Else
mensaje = MsgBox("La hoja de cálculo """ & hoja_de_calculo & """ ya " _
+ "existe.", vbOKOnly, "Conclusión")
End If
End Sub



4 comentarios:

Anónimo dijo...

Yo pregunte!!
iaiajaojaia
gracias :D

Javier Marco dijo...

Así es Dark_guey. Como ví que era una pregunta interesante, he querido compartir la respuesta con los que llegan al blog.

Salu2

jose dijo...

Hola Javier! Muy buena tu pagina se aprenden muchas cosas. SE podria hacer una macxro parecida con workbook en vez de sheets para verificar que no se guardan archivos excell iguales. Gracias

Anónimo dijo...

Realmente excelente el codigo que usaste, te lo agradesco, pero tengo una inquietud, si tengo una lista de Nombres de Hojas por VErificar y crear si no existen, como le harias, porque es lo que estoy intentando pero estoy muy verde en esto, espero me puedas ayudar.