Usuário com melhor resposta
Exportar planilha ativa para nova pasta de trabalho

Pergunta
-
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
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
-
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.
-
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
-
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
-