Saltar al contenido

Agregar hoja y comprobar existencia

publicado

Hola

Por la red hay varias formas de encontrar con VBA si una hoja existe (hay una funcion UDF por ahi), pero este aporte es solo una forma diferente para agregar hojas en un libro, comprobar existencia y agregar un link que nos devuelve al menu u hoja principal

Espero que sirva

Sub agregarhojas()

Dim Hoja As Worksheet, NuevaHoja As String, NuevoNombreHoja As String

With Application
.ScreenUpdating = False
Sheets("Menu").Range("A1").Name = "Inicio"
NuevaHoja = .InputBox("Nombre de hoja:", "Agregar hojas")
If NuevaHoja = "Falso" Or NuevaHoja = "False" Or NuevaHoja = Empty Then Range("A1").Select: Exit Sub
NuevoNombreHoja = VBA.StrConv(NuevaHoja, vbProperCase)
For Each Hoja In Sheets
If VBA.StrConv(Hoja.Name, vbProperCase) = NuevoNombreHoja Then _
MsgBox "La hoja " & VBA.StrConv(Hoja.Name, vbProperCase) & " ya existe", , "" _
: Range("A1").Select: Exit Sub
Next Hoja
Sheets.Add(After:=Sheets(Sheets.Count)).Name = NuevoNombreHoja
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:= _
"Inicio", TextToDisplay:="Volver al menu..."
.ScreenUpdating = True
End With

End Sub[/PHP]

Adjunto el archivo

Saludos desde Honduras

Agregar hoja y comprobar existencia.zip

Featured Replies

No posts to show

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.