Este fórum está sendo desativado

[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 ?

[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 todos

Sub 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

[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!

[wesleyribeiro123]

Rit
Bom dia,

Sim, é possivel...
Veja anexo

[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 todos

Sub 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