É possível usar o Excel VBA para inserir um botão para criar e salvar um modelo duplicado com um nome de arquivo de números.

0

Eu tenho um formulário de melhoria que gostaria de usar como um modelo para criar documentos futuros. Eu queria saber se era possível usar o VBA para inserir um botão de comando na planilha para criar uma cópia e salvá-la com o nome do autor com um número adicionado para que possamos acompanhar as melhorias feitas ao longo do ano.

Como ter um modelo de documento > clique no botão > Abra o formulário de usuário para inserir o nome do autor > e clique para criar um novo documento salvo em um local específico.

    
por Moises Cabb 03.01.2018 / 17:09

1 resposta

0

SIM, é muito possível. Gostaria de sugerir que você use o código VBA abaixo escrito, irá ajudá-lo a salvar a pasta de trabalho de modelo com novo nome.

Sub CreateNewBook()

Dim wbk As Workbook
Dim sht1,sht2 As Worksheet
Dim lng As Long, rng As Range

Set sht1 = Sheets("IndexName") 
Set sht2 = Sheets("NameData") 
lng = sht1.Cells(Rows.Count, "A").End(xlUp).Row

Set rng = sht1.Range("A2:A" & lng)

    For Each c In rng
        Sheets("Template").Copy 
        Set wbk = ActiveWorkbook

        wbk.Sheets(1).Range("A100") = c.Value
        sht2.Copy After:=wbk.Sheets(1)    
        wbk.SaveAs c.Value & ".xlsx"
        wbk.Close False

    Next

End Sub

NB: A planilha "IndexName" tem o nome na célula A2, que é usada pelo código como "Novo nome de arquivo" toda vez que você clica no botão para copiar a folha de modelo. Portanto, não se esqueça de atualizar a Cell A2 com o novo nome.

A planilha "NameData" é usada para manter registros de novos arquivos na célula A100 em diante.

Além disso, este código salvará os arquivos no local padrão. Se você quiser mudar isso, você pode.

Espero que isso ajude você, eu postei este código VBA depois de ter sido testado por mim.

    
por 04.01.2018 / 13:12