Exportar planilha ativa para nova pasta de trabalho

Question

Tenho uma determinada planilha ativa e gostaria de copiar ela para uma nova pasta de trabalho, exatamente como ela está, Mesmos valores, formulas e formatações. Existe algum código VBA para isso?

Answer 1

Sub Macro2()
'
' Macro2 Macro
'

'
'PLANILHA2 É A QUE VAI SER COPIADA
'PASTA2 É O ARQUIVO DE DESTINO
'OS DOIS ARQUIVO DEVEM ESTAR ABERTOS
    Sheets("Planilha2").Select
    Sheets("Planilha2").Copy After:=Workbooks("Pasta2").Sheets(1)
    Windows("Pasta1").Activate
End Sub

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 2

Ainda não é o que eu preciso, pois quero que ele gere um novo arquivo, tipo aquele processo: botão direito na aba da planilha, mover ou copiar, o "para pasta" seria (nova pasta) e selecionar a caixa de texto criar uma cópia, ou seja to exportando essa planilha para uma nova pasta, um arquivo ainda não salvo. Gostaria de criar um botão para isso.

Answer 3

Sub Macro2()
    
    'ABRE A PASTA DESTINO
    Workbooks.Open ("C:\Users\ANDERSON\Documents\Pasta2.xlsx")
    'SELECIONA A PASTA ORIGEM
    ThisWorkbook.Activate
    'SELECIONA A PLANILHA NA PASTA ORIGEM
    ThisWorkbook.Sheets("Planilha2").Select
    'COPIA PARA A PASTA DESTINO
    ThisWorkbook.Sheets("Planilha2").Copy After:=Workbooks("Pasta2").Sheets(1)
    'SELECIONA A PASTA DESTINO
    Workbooks("Pasta2").Activate
    'FECHA E SALVA A PASTA DESTINO
    ActiveWorkbook.Close SaveChanges:=True
End Sub

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 4

Sub Macro2()
    
    'ABRE A PASTA DESTINO
    Workbooks.Open ("C:\Users\ANDERSON\Documents\Pasta2.xlsx")
    'SELECIONA A PASTA ORIGEM
    ThisWorkbook.Activate
    'SELECIONA A PLANILHA NA PASTA ORIGEM
    ThisWorkbook.Sheets("Planilha2").Select
    'COPIA PARA A PASTA DESTINO
    ThisWorkbook.Sheets("Planilha2").Copy After:=Workbooks("Pasta2").Sheets(1)
    'DESATIVA ALERTAS
    Application.DisplayAlerts = False
    'APAGA A PLANILHA COPIADA
    ThisWorkbook.Sheets("Planilha2").Delete
    'ATIVA ALERTAS
    Application.DisplayAlerts = True
    'SELECIONA A PASTA DESTINO
    Workbooks("Pasta2").Activate
    'FECHA E SALVA A PASTA DESTINO
    ActiveWorkbook.Close SaveChanges:=True
End Sub

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 5

Consegui fazer com que crie e exclua automaticamente essa pan1 valeu pela ajuda