Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
Por rit
Posts
#29294
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 ?
Avatar do usuário
Por gfranco
Avatar
#29298
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
Por rit
Posts
#29299
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!
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por wesleyribeiro123
Posts Avatar
#29300
Rit
Bom dia,

Sim, é possivel...
Veja anexo
Você não está autorizado a ver ou baixar esse anexo.
Por rit
Posts
#29333
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord