Ir ao conteúdo
  • Cadastre-se
Eliel_Silva

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

Compartilhar este post


Link para o post
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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Deu certo....Obrigado pelo apoio.

 

abç

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!