Salvar alteração &q...
 
Notifications
Clear all

Salvar alteração "caption"

4 Posts
3 Usuários
0 Reactions
1,569 Visualizações
(@valzito)
Posts: 22
Eminent Member
Topic starter
 

Olá Amigos,

Como faço para salvar a Caption conforme mostrado no arquivo exemplo? Eu queria habilitar o botão "SALVAR" no form2 e que ao fechar o aplicativo a alteração seja mantida no form1.

Agradeço desde já!

Segue arquivo exemplo:

https://www.dropbox.com/s/qd437r1zjegwk ... o.zip?dl=0

 
Postado : 23/11/2019 11:06 am
(@klarc28)
Posts: 971
Prominent Member
 

Se quiser que seu tópico seja respondido.
Envie o arquivo com todos os controles e formulários que serão usados.
Esses controles e formulários já devem estar formatados. Inclusive com os textos claros para quem não sabe o que você deseja fazer, por exemplo: "salvar na planilha".
Depois explique com muitos detalhes. O que é obvio para você, é completamente incompreensível para quem não sabe o que você deseja fazer.

 
Postado : 24/11/2019 10:45 am
(@laerteb)
Posts: 67
Trusted Member
 

Boa tarde, valzito

Primeiro o nosso amigo klarc28 está corretíssimo, não é só colocar o arquivo exemplo, mas precisa
estar completo com todos os botões, userforms e outros que estão relacionados a suas dúvidas..

Não entendi o que quer... "salvar a Caption..." e o "ao fechar o aplicativo a alteração seja mantida no form1" do que
se trata?? mudar um "nome" de algum comando, botão ou outro (explique melhor o que quer) e sem o userform2 fica
mais difícil :( ....

Para o erro "O item especificado não foi encontrado" quando tu clica no Botão de comando1
(no UserForm1) foi sanado, para a palavra da Planilha / Sheet estar incompleta - você tinha colocado
"ut" em vez de "utg" que é o correto - agora para o Shapes tu tens que colocar como está na Planilha
utg, então não seria "imagem 1" e sim "IMAGEM 1" que é o correto; veja a linha que está agora
corrigida, conforme abaixo:

Worksheets("utg").Shapes("IMAGEM 1").CopyPicture

Outra forma de representar a Planilha sem o Nome dela, como para a linha acima "utg" seria:

Plan1.Shapes("IMAGEM 1").CopyPicture

Abaixo o arquivo exemplo "Exemplo Solucao 1 Caption LB.Zip" com as alterações do erro descritas acima:

https://www.sendspace.com/file/g7xf2f

Verifique e me informe se foi sanado o erro :)..

Aguardando sua resposta (com o arquivo exemplo completo) e seu Feed Back (é muito importante)... se foi útil, não esqueça de clicar na "mãozinha" :D

LaerteB :D

 
Postado : 24/11/2019 1:55 pm
(@valzito)
Posts: 22
Eminent Member
Topic starter
 

Senhores, me desculpem, eu postei arquivo errado!! Na verdade arquivo anexado não tinha nenhuma relação com o que pretendia.

Obrigado por responder.

 
Postado : 24/11/2019 4:49 pm