Página 1 de 1
MACRO PARA SALVAR SEM A MACRO
Enviado: 09 Jan 2018 às 06:51
por rit
Bom dia amigos, Feliz ano novo!
Tenho uma macro que preenche alguns dados em uma planilha e eu preciso de um código que faça o seguinte, depois que preencher os dados ele salve a planilha com o nome de uma celula (F4) e desabilite a macro (tem um botão gostaria que ele desaparecesse quando eu salvar o arquivo), isso é possível ?
Re: MACRO PARA SALVAR SEM A MACRO
Enviado: 09 Jan 2018 às 07:19
por gfranco
Bom dia.
Pela sua descrição, creio que o seguinte seja suficiente.
Troque os nomes conforme sua realidade pra não dar erro.
Código: Selecionar todosSub salvar()
Dim caminho As String
Dim wb As Workbook
Dim nome As String
caminho = "C:\local para salvar\"
nome = Planilha1.Range("f4").Value
Set wb = ThisWorkbook
Planilha1.Shapes("Nome do botão").Delete
Application.DisplayAlerts = False
wb.SaveAs Filename:=caminho & nome, FileFormat:=51
Application.DisplayAlerts = True
MsgBox "Arquivo Salvo"
End Sub
Dê retorno.
Giovani
MACRO PARA SALVAR SEM A MACRO
Enviado: 09 Jan 2018 às 07:39
por rit
Ele da um erro ali na linha "nome = Planilha1.Range("f4").Value" diz que o objeto é obrigatório, vou anexar um exemplo da planilha para ver se ajuda, talvez nao tenha falado mas tem como o arquivo ser salvo com outra extensão ? invés de ser xlsm ser xlsx... preciso que os botões sumam depois que salve. Obrigado!
MACRO PARA SALVAR SEM A MACRO
Enviado: 09 Jan 2018 às 07:42
por wesleyribeiro123
Rit
Bom dia,
Sim, é possivel...
Veja anexo
Re: MACRO PARA SALVAR SEM A MACRO
Enviado: 10 Jan 2018 às 08:25
por rit
Bom dia Amigos,
Tem algo que eu possa adicionar a esse código para que ele não feche o arquivo original ? esse código salva e apaga o botão, ai no caso eu tenho que ir na pasta e abrir o arquivo original de volta, não teria como ele só salvar uma copia ? e continuar com o arquivo aberto..
Obrigado!
Código: Selecionar todosSub Excluir()
Application.DisplayAlerts = True
ActiveSheet.Shapes.Range(Array("Botão 2")).Delete
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:=xlWorkbookDefault
Application.DisplayAlerts = True
End Sub