Cambiar el nombre de hoja con macro

Para todos en este magnifico foro para aprender .

Tengo una nueva consulta. Esta ves tengo tengo una macro para dar nombre a las hojas el problema radica en que tengo una hoja indice y al dar el nombre a la hoja nueva esta se me colococa siempre al comienzo de la lista y requiero que siempre se valla al final de mi lista osea para ke mi lista indice no se modifique.

El código de la macro es:

Sub copiahoja()
Dim nombre
Sheets("formato").Activate
Sheets("formato").Copy Before:=Sheets(1)
Sheets("formato (2)").Select
 nombre = InputBox("Que Nombre le quiere dar a la hoja activa")
ActiveSheet.Name = nombre
Sheets("menu").Select
Sheets("menu").Activate
End Sub

1

1 respuesta

Respuesta
1

Pon tu códig de esta manera:

sub hoja_nueva()

nombre = inputbox("que nombre quieres???")

if nombre = "" then exit sub

sheets.add after:=sheets(sheets.count)

activesheet.name = nombre

sheets(1).select

end sub

Recuerda finalizar y puntuar

hola experto gracias por revisar mi consulta

esta muy bien al crear la nueva hoja  y la posición en que me la ubica ; pero resulta que tengo una hoja llamada formato el cual ya tiene unos formatos establecidos, botones y demás y quisiera que me copiara este mismo formato para la nueva hoja,

gracias experto por tu tiempo y colaboración.

Entonces creo que quieres esto:

sub hoja_nueva()
nombre = inputbox("que nombre quieres???")
if nombre = "" then exit sub
sheets("formato").copy after:=sheets(sheets.count)
activesheet.name = nombre
sheets(1).select
end sub

genial....luismondelo

gracias de nuevo me han ahorrado un gran tiempo a la hora de hacer mi trabajo.

magnifico foro..

Dios los bendiga

Waquiro...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas