Este fórum está sendo desativado

[SandroLima]

Bom dia.

Tenho uma macro onde gero o PDF da Tabela "TB_CronogramaMensal" e salvo em uma pasta específica com o endereço descrito na macro.

Agora preciso de ajuda para criar uma macro em que um arquivo de excel seja gerado com o nome igual ao da macro que gera PDF.

Obs (1).:
1) Porém gostaria que a macro gerasse o arquivo excel na pasta de trabalho em que se encontra a planilha atual.
2) Gostaria que o novo arquivo excel fosse gerado SOMENTE contendo uma aba cujo nome fosse: "MÊS - Ano" (referente aos intervalos "Mes_CronogramaMensal" e "Ano_CronogramaMensal" existentes na Aba CRONOGRAMA MENSAL
3) A macro deve apagar os Botões "GERAR PDF" E "NOVO" da nova planilha gerada.

Obs(2).:
1) Como segunda opção para a macro gostaria que ela fizesse as mesmas atividades já citadas porém agora excluindo apenas o Botão "NOVO" da nova planilha gerada.

Segue planilha para teste.

[SandroLima]

Pessoal consegui resolver a parte de gerar o novo arquivo excel com a seguinte Macro:

Código: Selecionar todos

Sub Gerar_ArquivoExcel()

    On Error GoTo Erro
    
    Dim Arquivo As Workbook
    Dim Plan As Worksheet
    Dim Ano As String, Mes As String, DocTipo As String
    
    Set Plan = ActiveSheet
    
    Mes = Plan.Range("Mes_CronogramaMensal")
    Ano = Plan.Range("Ano_CronogramaMensal")
    
    DocTipo = "CRONOGRAMA MENSAL"
    
    'Abre um arquivo Excel
    Set Arquivo = Application.Workbooks.Add
    
    Application.ScreenUpdating = False
    
    On Error GoTo Erro
    
    'Copia planilha para a posição 1 (Plan1) do novo arquivo
    Plan.Copy before:=Arquivo.Sheets(1)
    
    With Sheets(1)
        .Name = UCase(Sheets("CRONOGRAMA - MENSAL").Range("Mes_CronogramaMensal").Value) & " - " & Sheets("CRONOGRAMA - MENSAL").Range("Ano_CronogramaMensal").Value
    End With
        
    Sheets(2).Delete
    
    'Salva o novo Arquivo na mesma pasta do Arquivo Principal
    Arquivo.SaveAs ThisWorkbook.Path & "\" & " (" & Num_Mes(Mes) & ") " & UCase(Mes) & " (" & Ano & ") - " & DocTipo & ".xls"
    
    MsgBox "Arquivo criado com sucesso!", vbInformation, "ARQUIVO"
    
    Application.ScreenUpdating = True
    
    Exit Sub
    
Erro:
    MsgBox "Erro ao gerar Arquivo Excel!", vbCritical, "ARQUIVO"
    
End Sub

Porém, ao gerar o novo arquivo aparece essa tela:


Como faço para eliminar essa etapa? Não preciso salvar a macro no novo arquivo.

Ainda não consegui resolver a parte de apagar os Botões "GERAR PDF" E "NOVO" da nova planilha gerada.