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:
Yo pregunte!!
iaiajaojaia
gracias :D
Así es Dark_guey. Como ví que era una pregunta interesante, he querido compartir la respuesta con los que llegan al blog.
Salu2
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
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.
Publicar un comentario