Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
copiar segunda e te...
 
Notifications
Clear all

copiar segunda e terceira planilha para outro arquivo

 
2024 - VBA & Macros
Post Recente por edumanilha 7 anos atrás
9 Posts
3 Usuários
0 Reactions
1,320 Visualizações
RSS
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Pessoal, boa noite! Estou editando uma planilha e ela tem 3 abas...A primeira colo o conteúdo, e a macro então separa em partes e distribui nas células da segunda, no caso adicionei a terceira e gostaria de na hora de salvar o arquivo à parte, ele copiasse tbm essa terceira planilha...O código está assim:

Plan2.Copy
            Home_usuario = Environ("HOMEPATH")
            ActiveWorkbook.SaveAs _
            Filename:=Home_usuario & "Desktopetc ".xlsx"
            ActiveWorkbook.Worksheets.Select
            Range("A1:BG1").Interior.Color = RGB(216, 228, 188)
            Range("D1").Interior.Color = RGB(255, 255, 0)
            Range("L1:P1").Interior.Color = RGB(197, 217, 241)
            Range("U1,X1,AA1,AD1,AG1,AJ1,AM1,AP1,AS1,AV1,AY1").Interior.Color = RGB(196, 215, 155)
            Range("BH1:BK1").Interior.Color = RGB(197, 217, 241)
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            Plan2.Range("A2:BO50").ClearContents
            MsgBox "O arquivo foi salvo em C:" & Home_usuario & _
            "Desktopetc".xlsx", vbOKOnly, "IDCROSS"
            Unload Me
 
Postado : 03/03/2018 3:39 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tentou usar o gravador de macros?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/03/2018 4:07 pm
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Opa! Boa noite Marcelo...Rapaz...Eu comecei a mexer nessa planilha, pq estava abandonada, buscando umas informações erradas e td mais...Não sou familiarizado com macros mas já programei uma coisa aqui e ali, então consegui ver a lógica da planilha e até agora estava me virando...Pode me orientar sobre esse gravador?

 
Postado : 03/03/2018 5:17 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://www.youtube.com/results?search_query=vba+gravar+macro

 
Postado : 04/03/2018 10:05 am
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Valeu pelo toque do gravador galera, mas só queria mesmo o esquema pra salvar as 2 planilhas preenchidas em outro arquivo! alguma dica???

 
Postado : 04/03/2018 3:32 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://www.youtube.com/results?search_query=vba+copiar+planilha+para+outro+arquivo

 
Postado : 04/03/2018 4:37 pm
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

tentei alterar o começo assim:

ThisWorkbook.Sheets(Array("Plan2", "Plan3")).Copy

Mas não deu certo...

 
Postado : 04/03/2018 6:20 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Sub Macro3()
'
' Macro3 Macro
'

'
    Sheets(Array("Plan1", "Plan2")).Select
    Sheets("Plan2").Activate
    Sheets(Array("Plan1", "Plan2")).Copy Before:=Workbooks("Pasta2").Sheets(1)
    Windows("Pasta1").Activate
End Sub
 
Postado : 04/03/2018 6:24 pm
 edumanilha
(@edumanilha)
Posts: 20
Eminent Member
Topic starter
 

Ao invés de colocar Plan1 e Plan2, coloquei os nomes e foi...Estranho que todo o resto considera o Plan e nessa parte de salvar só foi com o nome...Muito obrigado!

 
Postado : 04/03/2018 9:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico