Insertar hoja con prefijo (facilmente)

Gerson Pineda · el 28 de octubre

Hola

No se si hay algo similar o al menos no lo recuerdo, pero igual lo dejo mas al alcance

A raiz de un tema aqui por el foro, para insertar una hoja nueva en nuestro libro, manualmente, damos click derecho en el tab de una hoja cualquiera y damos click en "Insertar", pero Excel por defecto nos crea el nombre segun su contador interno, indexado

Con esto podemos prefijar el nombre de nuestra hoja, acompañado del numero segun la cantidad de hojas creadas/contadas en el libro

Pegarlo en Thisworkbook

Private Sub Workbook_NewSheet(ByVal sh As Object)
    sh.Name = "AyudaExcel" & ActiveWorkbook.Sheets.Count
End Sub[/PHP]

Con ellos cada vez que[b] insertemos una hoja nueva, [/b]veremos algo como [b]AyudaExcel2, AyudaExcel3 ...etc

[/b]Como notaran es sumamente sencillo y en una linea de codigo

Espero sea de utilidad

Saludos desde Honduras

German · el 30 de octubre

Sí efectivamente hace dos días un usuario preguntó por esto mismo, estuve mirando por la configuración pero no encontré nada al respecto, esto es una forma sencilla y muy practica en un momento dado para hacerlo.

Espero que ese compañero lo halla visto y tenga su contestación.

Gracias amigo Gerson, un fuerte abrazo, Germán.

Gerson Pineda · el 30 de octubre

Hola mi estimado German! que bueno verte por aca y efectivamente en ese tema respondi al amigo

Saludos a todos

mellapm · el 30 de octubre

una pregunta y no se si aqui la pueda hacer o tenga que hacer un post nuevo, pero es referente a este tema, hay manera de que el nombre de la hoja lo adopte de un valor que se encuentra en una celda especifica y lo haga automaticamente con cada una de las hojas del libro??? como ejemplo que las hojas adopten el nombre de la celda M9 en cada hoja por decir si en una dice 15 este sea el nombre de la hoja y si en otra tiene otro valor, adopte ese valor, alguien me podria despejar mi duda???

el 30 de octubre

... no se si aqui la pueda hacer o tenga que hacer un post nuevo ...

Aquí estamos en Ideas y aportes, de modo que no es el ámbito adecuado.

En tu lugar utilizaría el buscador del Foro pues se trata de una pregunta muy reiterada.

...
Pegarlo en Thisworkbook
Private Sub Workbook_NewSheet(ByVal sh As Object)
    sh.Name = "AyudaExcel" & ActiveWorkbook.Sheets.Count
End Sub[/PHP]
Con ellos cada vez que[b] insertemos una hoja nueva, [/b]veremos algo como [b]AyudaExcel2, AyudaExcel3 ...etc

[/b]Como notaran es sumamente sencillo y en [b]una linea de codigo[/b]...

Al ver esta propuesta me preguntaba: ¿Acaso... todo -en la vida- es una macro (con mis disculpas del caso al gran Macro Antonio, (jajaja)?

Mi estimado Gerson: tu propuesta no tiene nada de malo aunque pueda fallar reiteradamente.

Por ejemplo: Creas 4 hojas con tu método. Adviertes que las dos primeras no las vas a utilizar (o, simplemente, ya no te interesa conservarlas) y las eliminas (te quedarán la 3ª y la 4ª).

Si vuelves a crear una nueva hoja con tu método: fallará :beaten: pues ya existe una hoja con ese nombre.

El otro inconveniente que tiene (volvemos al inicio de la cuestión) es que el libro -necesariamente- tiene que estar habilitado para la ejecución de macros: ¿Y si no se necesita (hasta por seguridad) que se ejecuten macros en el libro?...

¡Pero no os desesperéis!... pues Excel es capaz de crear nuevos nombres y numerarlos a nuestra voluntad.

¿Cómo?...

La carpeta [color=#ff8c00][b]XLSTART[/b][/color] tiene muchísimo que decirnos al respecto, al igual que un libro o una hoja guardados como [color=#ee82ee][b]plantilla[/b][/color].

Saludos, Cacho R.

Gerson Pineda · el 31 de octubre

Cacho! como te va?

Gracias por comentar el tema/aporte, pero porfavor como todo en la vida, casi todo (creo que todo), tiene sus pro y contras no?, es decir entonces que hacemos dando aportes en el apartado de macros? no vamos estar recalcando/recordando que si no habilitamos las macros, nada funcionara? me parece que eso se sobre entiende verdad? (al menos para los que ya sabemos que vba es dependiente de que el usuario debe realizar tal configuracion), ademas nunca comente que este era la mejor y/o ultima forma de insertar una hoja con un prefijo, por lo que:

[NOTE]Los aportes o ideas, son solo "tips" o "trucos", para poder ampliar mas alguna idea, que a lo mejor ha quedado en el aire, para mas de alguno[/NOTE]

¡Pero no os desesperéis!... pues Excel es capaz de crear nuevos nombres y numerarlos a nuestra voluntad.
¿Cómo?...

Mandalo! no esperes que te lo soliciten....

Saludos a todos!

Antoni · el 31 de octubre

Hola a todos:

Esto subsana el posible error que se produciría al eliminar una hoja:

Private Sub Workbook_NewSheet(ByVal sh As Object)


  prefijo = "AyudaExcel " 'Cambiar el prefijo a voluntad <============


  longitud = Len(prefijo)

  número = 0

  For Each hoja In Sheets

     If Left(hoja.Name, longitud) = prefijo Then

        numerohoja = Val(Mid(hoja.Name, longitud + 1))

        If numerohoja > numero Then numero = numerohoja

     End If

  Next

  sh.Name = prefijo & numero + 1



End Sub



[/CODE]

Saludos

el 31 de octubre

... Mandalo! no esperes que te lo soliciten ...
Pero no os desesperéis!... pues Excel es capaz de crear nuevos nombres y numerarlos a nuestra voluntad.
¿Cómo?...

La carpeta XLSTART tiene muchísimo que decirnos al respecto, al igual que un libro o una hoja guardados como plantilla.

¡¡¡ Jajajaja !!!...

Vamos a tener que coordinarlo mejor para la próxima pues -imaginé- que te estaba brindando "servido en bandeja" la opción de lucirte y señalar lo que hacemos todos los que queremos investigar algo sobre un tema: ir al Google y escribir por ejemplo

--> [DBOX]XLStart plantilla hoja[/DBOX]

Allí aparecen más de 3000 enlace que enseñan como definir una hoja (a la hoja le pondremos el nombre que nos gusta) como plantilla. A partir de entonces: es Excel quien maneja el tema de la numeración.

¡Pero no te hagas problemas!... ¡La próxima coordinaremos mejor! :tennis:

Saludos, Cacho R.

--- Mensaje unido automáticamente ---

... Esto subsana el posible error que se produciría al eliminar una hoja: ...

Efectivamente, Antonio: por lo que estuve investigando (ensayos, pruebas) es -más o menos- esto que mencionas, lo que hace el Excel de modo automático con la numeración de las plantillas.

Saludos, Cacho R.