Notifications
Clear all

é possivel Botao com duas opçoes

13 Posts
3 Usuários
0 Reactions
1,868 Visualizações
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

Boa noite.
em tempos vi e fiz download de um formulario [mas eliminei :( ], em que ao clicar em editar esse butao depois passava a ser de gravar.
é possivel fazer esse efeito?ter um botao que depois de uma accao passe a ter outra?

 
Postado : 04/03/2016 5:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se entendi, deve ser um Controle "ToggleButton" (Botão de Ativação), então adicione um em seu formulário e em Propriedades altere o Caption para "Editar", depois de dois cliques e cole a rotina abaixo :

Teste e depois substitua as msgbox pelas ações que pretende.

Private Sub ToggleButton1_Click()

    If ToggleButton1.Value = True Then
    
        ToggleButton1.Caption = "Gravar"
        MsgBox "Coloque sua rotina aqui para gravar"
   
    Else
    
        ToggleButton1.Caption = "Editar"
        MsgBox "Coloque sua rotina aqui para Editar"
    
    End If
    
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/03/2016 7:54 pm
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

Amigo Mauro.
sim, o que pretendia é isso.
diga-me só se é possivel fazer estes passos com o ToggleButton:

1º-colocar imagens no "gravar" e no "editar",eu tenho os botoes so com imagens
2º-fazer com que ao clicar num outro botão ele passe do "Gravar" para o "Editar"
3º- como poderei incorporar os codigos que tenho de Editar e Gravar no codigo que me deu.

Obrigado

 
Postado : 05/03/2016 3:21 pm
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

Amigo MAuro.
depois de muita pesquisa encontrei o ficheiro que tinha dito.
podia só ver o efeito que tem o "botão" criterio ou "ToggleButton"( nao consigo saber qual é pois não consigo entrar no programador, ou na userform do formulário)
neste ficheiro o botão não muda de cor, ou dá a intenção que esta seleccionado

 
Postado : 05/03/2016 3:55 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Este formulário não é um userform É um formulário que vc criava automaticamente em Dados ou Ferramentas(não me lembro mais o menu) > Formulários. Isso existia ate a versão 2003. Pra utilizar nas versões superiores utilize essa dica direto da ajuda do excel:

Adicionar o botão Formulário à Barra de Ferramentas de Acesso Rápido

1.Clique na seta ao lado da Barra de Ferramentas de Acesso Rápido e clique em Mais Comandos.

2.Na caixa Escolher comandos em, clique em Todos os Comandos.

3.Na caixa de listagem, selecione o botão Formulário Botão Controle de Formulário e clique em Adicionar.

Dica Para obter mais informações sobre como usar o formulário de dados, consulte Adicionar, editar, localizar e excluir linhas usando um formulário de dados.

Caso tenha dificuldade em entender basta abrir a ajuda do excel e digitar na busca do Excel Formulario, para mais informações.

E para ver o VBA é so usar Alt + F11

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 05/03/2016 4:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pedrom

A maneira mais fácil de criar esse formulário nativo do Excel é a seguinte:

Na tua planilha clique em ---> ALT+F11 --> Inserir Módulo --> copie e cole o código :

Sub ExibeFormulario()
     ActiveSheet.ShowDataForm
End Sub

Clique ALT+Q --> para retornar a planilha --> ALT+F8 --> clque 2 vezes na macro ExibeFormulário -> Pronto. (Ou crie um botão )

As vezes na primeira vez aparece um janela --> basta clicar em OK

Se foi útil, clique em curtir.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/03/2016 6:29 pm
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

Amigo Patropi e MPrudencio.
Obrigado pela informaçao.

conseguem me ajudar entao com o ToggleButton?

1º-colocar imagens no "gravar" e no "editar",eu tenho os botoes so com imagens
2º-fazer com que ao clicar num outro botão ele passe do "Gravar" para o "Editar"
3º- como poderei incorporar os codigos que tenho de Editar e Gravar no codigo que me deu.
4º- que o togglebutton fique sempre com a mesma cor.
Obrigado

 
Postado : 05/03/2016 6:48 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Acho que isso não possivel neste tipo de formulario, Isso não tem no arquivo que vc postou como exemplo.

Acredito que o que vc quer fazer só seja possivel em um userform

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 06/03/2016 6:24 am
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

Boa Tarde Mprudencio.
as opçoes que coloquei sao para o meu formulario em vba, nao esse que postei,

 
Postado : 06/03/2016 10:53 am
(@mprudencio)
Posts: 2749
Famed Member
 

Amigo MAuro.
depois de muita pesquisa encontrei o ficheiro que tinha dito.
podia só ver o efeito que tem o "botão" criterio ou "ToggleButton"( nao consigo saber qual é pois não consigo entrar no programador, ou na userform do formulário)
neste ficheiro o botão não muda de cor, ou dá a intenção que esta seleccionado

Me refiro ao arquivo que vc postou nesta postagem que vc responde ao Mauro.

Afinal o que vc quer de fato???

O modelo que vc postou neste post ou outro???

Se for neste não creio ser possivel, se é em outro pq usou este como exemplo???

Juro q nao entendi.

Outra coisa, vc testou os codigos postados pelo Mauro e pelo Patropi??

Se testou funcionou??

Se nao funcionou o que deu errado??

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 06/03/2016 11:16 am
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

amigo.
o meu ficheiro nao é o que postei, esse era o exemplo do botao que descobri que é um togglebutton, ou o efeito que eu quero é feito por o togglebutton.

eu tenho um formulario e queria um botao ou togglebuton , para fazer duas funcoes , editar e gravar.
ja me deram o codigo para p toggle buton, mas agora queria saber se existe maneira de adaptar ao meu formulario.
as minhas duvidas sao:

1º-colocar imagens no "gravar" e no "editar",eu tenho os botoes so com imagens
2º-fazer com que ao clicar num outro botão ele passe do "Gravar" para o "Editar"
3º- como poderei incorporar os codigos que tenho de Editar e Gravar no codigo que me deu.
4º- que o togglebutton fique sempre com a mesma cor.

 
Postado : 06/03/2016 1:29 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Poste seu arquivo entao com os codigos que ja tem.

Assim a ajuda vem mais rapido.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 06/03/2016 2:06 pm
(@pedro_m)
Posts: 56
Trusted Member
Topic starter
 

Amigos já resolvi a situação.
criei dois botoes
tornei-os invisiveis mediante a operaçao que queria fazer, isto é, ao iniciar está um visivel, quando faço a operacao de pesquisa ele trona o gravar invisivel e o editar visivel.

Obrigado pelas dicas

 
Postado : 06/03/2016 3:19 pm