Buscar una hoja en las hojas y si no existe crearla
Cuál es el código de la macro para buscar una hoja en todas las hojas que tengo del libro y si no la encuentra que la cree y si ya existe que me envíe una mensaje de aviso. Gracias anticipadas
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia en la macro "nueva" por el nombre de hoja que vas a buscar.
Sub CrearHoja() 'Por.Dante Amor nombre = "nueva" For Each h In Sheets If h.Name = nombre Then existe = True Exit For End If Next If existe = False Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = nombre Else MsgBox "Ya existe la hoja: " & nombre End If End Sub
Saludos.Dante Amor
