Copiar segunda e terceira planilha para outro arquivo.
Enviado: 03 Mar 2018 às 18:24
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:
Código: Selecionar todos
Plan2.Copy
Home_usuario = Environ("HOMEPATH")
ActiveWorkbook.SaveAs _
Filename:=Home_usuario & "\Desktop\etc ".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 & _
"\Desktop\etc".xlsx", vbOKOnly, "IDCROSS"
Unload Me