Este fórum está sendo desativado

[rit]

Bom dia Amigos,

Alguem tem um código que salve uma cópia de planilhas expecificas de uma pasta de trabalho e não feche o arquivo original ?

Exemplo, tenho um arquivo que tem tres planilhas dessas tres planilhas eu preciso salvar apenas as duas primeiras em um formato menor aquis xls sem ser o formato macro e ainda por cima excluir o botão da macro que vá fazer isso, alguem tem algo parecido com isso ? ou podem me ajudar com isso ?

Obrigado!

[babdallas]

Anexe um exemplo e explique com detalhes o resultado final que deseja. Aí deverá conseguir ajuda.

[mprudencio]

Experimente este codigo

Código: Selecionar todos

Sub SALVAR()

    Sheets(Array("Plan1", "Plan2")).Copy
    
    ChDir "C:\LOCAL ONDE SALVAR O ARQUIVO"
    
    ActiveWorkbook.SaveAs Filename:="C:CAMMINHO E NOME DO ARQUIVO A SALVAR", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Sheets("Plan3").Select
End Sub

Se nao conseguir ajustar basta usar o gravador de macros.

[rit]

Bom dia,

quase perfeito, só preciso agora resolver um problema "Sheets("Plan3").Select" esse cara deveria selecionar o arquivo "novo" certo ? só que esse arquivo novo sempre muda de nome como eu faço para ele selecionar o arquivo criado ? teria que criar uma variavel ou algo assim ? desculpa se estou falando asneira kk mas é que não sou nenhum expert no assunto.

Obrigado!

[rit]

Cara acertei aqui muito obrigado pela ajuda!
O código ficou assim caso alguem se interesse.

Código: Selecionar todos

Sub SALVAR()

    Sheets(Array("Cartão", "Grav Plc")).Copy
    

    
 
    ChDir "S:\Dir_Geral\Dir_Tecnica\AB\Planej_Materiais\9.Outros_Documentos\Formularios Uso Geral\Arquivo 2010\Cartões\Documentos OP\Unidades Hidraulicas\CARTOES IDENT\"
   
   
    ActiveWorkbook.SaveAs Filename:="S:\Dir_Geral\Dir_Tecnica\AB\Planej_Materiais\9.Outros_Documentos\Formularios Uso Geral\Arquivo 2010\Cartões\Documentos OP\Unidades Hidraulicas\CARTOES IDENT\" & Range("F4"), _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
Sheets("Cartão").Select
     
  ActiveSheet.Shapes.Range(Array("Botão 1")).Delete
  
Workbooks(Range("F4") & ".xlsx").Close SaveChanges:=True
  
End Sub