Jump to content
German

Cambiar nombre de hoja desde una celda

Recommended Posts

Hola amigos buenas tardes, solo quería un código para poder cambiar el nombre de una hoja y que esta ponga el texto que está en la celda "C2".

No pongo archivo porque pienso que es así de fácil, si lo necesitan díganlo.

Aprovecho la ocasión para mandar un afectuoso saludo a [email protected] los componentes del foro, y en especial a los compañeros con los que compartí éste foro hace algún tiempo.

Muchas gracias, Germán.

Share this post


Link to post
Share on other sites

Hola @DiegoLG buenas tardes, ese código funciona estupendo y preciso con lo que necesito.

Ahora me gustaría poder borrar los dos botones que activan las macros en la primera hoja, una vez hecha la copia se quedan los botones, ¿como puedo quitarlos también con código en la hoja copiada?

Un saludo, Germán.

 

Share this post


Link to post
Share on other sites

Hola Germán:

Prueba la macro.

Sub MacroGermán()
ActiveSheet.Name = Range("C2")
For Each Control In ActiveSheet.Shapes
   If Control.Type = msoFormControl Then
      If Control.FormControlType = xlButtonControl Then
         Control.Delete
      End If
   End If
Next
End Sub

Saludos :)

Nota: Solo funciona para botones de formulario, no para botones ActiveX.

Share this post


Link to post
Share on other sites

Hola estimado amigo Antoni (para amigos más "veteranos" Macro Antonio) es un placer volver a "hablar" contigo, espero que todo te vaya bien.

Y volviendo al tema, he probado tu código y perfecto, ya que eran botones de formulario.

Queda SOLUCIONADO, si necesito algo más abro otro post.

Saludos cordiales a @DiegoLG y a [email protected], y un fuerte abrazo @Antoniy a @Gerson Pineda que se pasó por el post. 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png