Excel - Cambiar nombre a hojas creadas

   
Vista:

Cambiar nombre a hojas creadas

Publicado por Jeancarlo (3 intervenciones) el 25/07/2008 23:57:14
Buenas, el problema es el siguiente, quiero hacer una macro con la cual cuando la ejecute me cree una copia de la hoja de trabajo y me le cambie el nombre tambien. Por ejemplo si comenzamos con hoja INVENTARIO y me hace una copia y el cambiarle el nombre a INVENTARIO 1, por ejemplo, luego del INVENTARIO 1, cuando ejecute la macro alli, me haga INVENTARIO 2, y asi sucesivamente.

Gracias,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Cambiar nombre a hojas creadas

Publicado por JuanC (1054 intervenciones) el 26/07/2008 13:38:44
En este mismo Foro podés buscar 'sheet.name' y encontrarás lo que buscás y más también...

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar nombre a hojas creadas

Publicado por carlos (33 intervenciones) el 26/07/2008 14:46:40
Hola Jeancaro. Espero le sirva el siguiente codigo
Carlos augusto lópez
www.compexcel.net.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar nombre a hojas creadas

Publicado por Santiago (193 intervenciones) el 28/07/2008 18:04:24
Sub CrearHojayCambiarNombre()
orden = 1
nohayhoja = 0
Do While nohayhoja <> 1
For x = 1 To Sheets.Count
If Sheets(x).Name = "INVENTARIO " & orden And Sheets.Count = x Then
orden = orden + 1
nohayhoja = 1
ElseIf Sheets(x).Name = "INVENTARIO " & orden Then
orden = orden + 1
Exit For
ElseIf Sheets.Count = x Then
nohayhoja = 1
End If
Next x
Loop
Sheets.Add
ActiveSheet.Name = "INVENTARIO " & orden
If orden = 1 Then
ActiveSheet.Move after:=Sheets("INVENTARIO")
Else
ActiveSheet.Move after:=Sheets("INVENTARIO " & orden - 1)
End If
Sheets("INVENTARIO").Cells.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(1, 1).Select
End Sub

Espero que te sirva mucho

Un saludo
SCM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar