Ir ao conteúdo
  • Cadastre-se

Copiar sheet e salvar como no vba


Posts recomendados

Caros, boa tarde.

 

Quero criar um macro para Copiar de uma planilha matriz "Pedido de compra", apenas a sheets "Pedido", e posteriormente, "salvar como" em pasta especifica utilizando como referencia o numero do pedido para salvar o arquivo. 

Apos salvar, quero fechar a sheet copiada e continuar utilizando a planilha matriz.
Estou utilizando o codigo abaixo, mais ele fecha a planilha matriz, não a sheet copiada.

Sub copiar()

Sheets("PEDIDO").Select
Sheets("pedido").Copy

ThisWorkbook.SaveAs Filename:="C:\SAMMA\Pedidos\" & Range("D5").Text & "-" & ".XLSM"

End Sub

 

Conto com apoio de vocês.

 

abç

 

PEDIDO DE COMPRA_mod.xlsm

Link para o comentário
Compartilhar em outros sites

Tenta esse codigo:

 

Sub Salvar()

Dim WPed As Worksheet
Dim W As Workbook
Dim Arq As String


Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set WPed = Sheets("Pedido")


    Arq = WPed.Range("D5").Value
    WPed.Copy
    
'Salva o arquivo na pasta pedidos
       
    ChDir "C:\SAMMA\Pedidos"
       
    ActiveWorkbook.SaveAs _
    Filename:="C:\SAMMA\Pedidos\" _
    & Arq & ".xlsx"
    ActiveWorkbook.Close

 MsgBox "Dados do Pedido Salvo com Sucesso", vbOKOnly, "Resumo Clientes"

    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    
End Sub

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...