Macro copiar hoja de excel y cambiarle nombre.

Me podrían ayudar a realizar una macro,

Tengo un archivo excel donde genero un inventario diario, tengo una hoja que llamo "molde" donde están varias formulas para generar el inventario, como puedo ponerle una macro que me copie esa hoja y le cambie el nombre a un numero consecutivo que va relacionado al dia de inventario, por ejemplo en ese archivo excel tengo una hoja que se llama "molde" y 11 hojas mas que son los primeros once días del mes con los nombres, 1, 2, 3... Hasta 11, como guardo la nueva copia que se hizo de la hoja "molde" con el siguiente numero que seria "12" ya si sucesivamente el siguiente dia seria guardarlo con el nombre "13".

1 respuesta

Respuesta
7

Molder87 te dejo el código que copia (al final del libro) la hoja molde y la renombra con el dia de la fecha actual, pruébalo y me cuentas como te va. Saludos

Sub ReplicarHojaActual()
''Creada por FSerrano en 120313
''para molder87 en TodoExpertos.com
''copia la hoja llamada molde y la renombra de acuerdo al dia de la fecha actual
    Sheets("molde").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    ActiveSheet.Name = Day(Now())
End Sub

NO OLVIDES FINALIZAR Y PUNTUAR LA PREGUNTA

Funciona a la perfección solo una cosa mas que me pudieras ayudar regularmente en mi trabajo pasa la media noche quiero decir que por ejemplo inicio labores hoy 14-03-12 y finalizo el 15-03-12 por la madruga y es a esa hora que genero el inventario diario pero seria con la fecha de un dia antes, me podrías decir como modificar tu macro para que me guarde la copia con la fecha del dia anterior...

gracias por tu ayuda

Para lograr lo que quieres debes modificar esta fila

ActiveSheet.Name = Day(Now())

para que quede de esta forma

ActiveSheet.Name = Day(Now())-1

Y listo! Funciona.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Necesito una macro que copie una hoja y le cambie el nombre por el valor de una celda

Tengo ya una macro, la cual cambia el nombre por la fecha actual Sub ReplicarHojaActual() Sheets("Control de tareas").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Day(Now()) End Sub En la fila ActiveSheet.Name = Day(Now()) La...
2 respuestas

Como copiar de una hoja o otra exactamente igual

No soy experto en excel ni en visual basic pero he aprendido con uds a través de sus comentarios. Elabore un inventario de almacen con formulario, entradas y salidas de materiales y los datos los guardo en una hoja llamada movimientos, para esto en...
1 respuesta

Macro Crear - Renombrar hojas Excel

Quiero hacer un libro donde registro un inventario, éste se verifica 3 o 4 veces al día y los registros los llevamos en papel, ya tengo la hoja en excel pero quiero una macro que copie esta hoja y la renombre con la fecha y hora de la función ahora,...
1 respuesta

Como hacer una copia de una hoja en otra renombrandola

Tengo un libro, con una hoja, necesito una macro que me realice una copia de esa hoja solo de los valores y formatos, y me la guarde en la misma carpeta que la hoja original y que me la renombre con el mismo nombre de la hoja mas la fecha y hora que...
1 respuesta

Macro para pegar y copiar

Nuevamente solicitando el apoyo de los expertos, necesito desarrollar una Macro. Tengo un archivo con "n" numero de hojas (el numero de hojas varia mes con mes) Necesito una macro que recorra hoja por hoja, copie los datos y los pegue en una nueva...
1 respuesta

Macro para buscar valor "#N/A" en una columna

Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código descripción 001 zanahorias. 002 cebollas. 003...
1 respuesta

Vba para crear una hoja de excel con los datos de ya una creada

Me gustaría saber si es posible con Vba crear una hoja nueva con los datos de una ya creada, me gustaría saber como es más fácil si al hacer click en el botón te saliera un cuadro de dialogo donde crear el nombre nuevo de la hoja o hacer que coloque...
1 respuesta

Como guardar un excel en CSV en un directorio ?

Quiero usar esta macro, pero me encuentro con un problema Copia las columnas que quiero, pero las pega en una sola columna delimitado por comas. Me gustaría que: 1- Genere una copia en CSV ( MS-DOS ) 2- Guarde esa copia en un lugar de la red Sub...
1 respuesta

Poner nombre de hoja el valor de una celda

A través de una macro me creo una hoja de datos y en la celda D225 le inserto la fecha en la que se crea dicha hoja. Quisiera poner el valor de esa celda D225 como nombre de la hoja.
2 respuestas

Mcro para copiar filtrado en hojas separadas

Vi en el foro un macro para copiar un rango filtrado en otra oja esta incompleto me podrán ayudar: saludos Sub ejemplo()'por luismondeloSheets("datos").Selectnombre = InputBox("Qué nombre desea poner a la nueva hoja con los datos filtrados???")If...
1 respuesta