none
Exportar planilha ativa para nova pasta de trabalho RRS feed

  • Pergunta

  • 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?
    domingo, 19 de novembro de 2017 18:29

Respostas

  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 19 de novembro de 2017 19:11
    • Marcado como Resposta marcelocunha04 domingo, 19 de novembro de 2017 19:42
    domingo, 19 de novembro de 2017 19:11

Todas as Respostas

  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 19 de novembro de 2017 18:54
    domingo, 19 de novembro de 2017 18:54
  • 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.
    domingo, 19 de novembro de 2017 19:11
  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 19 de novembro de 2017 19:11
    • Marcado como Resposta marcelocunha04 domingo, 19 de novembro de 2017 19:42
    domingo, 19 de novembro de 2017 19:11
  • 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 diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 domingo, 19 de novembro de 2017 19:58
    domingo, 19 de novembro de 2017 19:58
  • Consegui fazer com que crie e exclua automaticamente essa pan1 valeu pela ajuda
    domingo, 19 de novembro de 2017 19:59