Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro duplicar Libro con nuevo nombre "secuencial"

kbtoj

New member
Registrado
16 Sep 2019
Mensajes
25
Estimados expertos,

Tengo un libro con varias hojas ocultas que me sirven a manera de plantilla.

Mi consulta es si es posible que se pueda:

1.- Duplicar el libro y que se borren los datos de...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Solución
es posible que se pueda
no se si te guardaste algun "detalle en el tintero" ?, pero con base en la muestra de tu adjunto...

1) copia>pega (o escribe) este procedimiento en un modulo de codigo estandar desde el editor de vba (atajo: {Alt}+{F11} ):
Código:
Sub Guarda_consecutivo(): Dim archivo As String, sigue As String
  Application.ScreenUpdating = False
  archivo = ThisWorkbook.Path & "\" & ['hoja base'!b2] & "-" & ['hoja base'!b3] & "-"
  If Dir(archivo & "*.xlsx") <> "" Then
    Names.Add "archivos", "=files(""" & archivo & "*.xlsx"")"
    sigue = Format([counta(archivos)] + 1, "000")
    archivo = archivo & sigue
    ['hoja base'!b4] = sigue
    ['hoja base'!a12].CurrentRegion.ClearContents
    With ThisWorkbook: .Save...
Volver
Arriba