Página 1 de 1
Valor do Combobox em userform através de worksheet change ?
Enviado: 04 Dez 2020 às 18:35
por Jeczei
Caros,
Peço ajuda por gentileza sobre como tornar visível um textbox dependendo da escolha feita no combobox, porém sem o uso do botão do formulário, talvez utilizando Worksheet. Changel (??)
Melhor explicando:
Tenho 1 combobox e mais 3 textbox em um formulário, além do botão de execução do próprio formulário, sendo que o último dos 3 textbox está oculto e só deverá se tornar visível se a opção do combobox for igual a "Resgate", por exemplo.
É possível obter o valor da escolha do combobox previamente a execução do botão do formulário ?
Obrigado antecipadamente
Abraços
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 04 Dez 2020 às 21:04
por osvaldomp
Jeczei escreveu: ↑04 Dez 2020 às 18:35
... talvez utilizando Worksheet. Changel (??)
Não seria ComboBox1_Change() ?
Código: Selecionar todosPrivate Sub ComboBox1_Change()
Me.TextBox3.Visible = (Me.ComboBox1.Text = "Resgate")
End Sub
Se não for isso então sugiro que você disponibilize uma amostra do seu arquivo Excel.
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 04 Dez 2020 às 21:44
por Jeczei
Osvaldo, boa noite
Funcionou perfeitamente mas após a exceção do botão do formulário.
Não há possibilidade de se obter o valor logo após o usuário ter escolhido a opção , mas sem ter executado o botão ?
Segue anexo com mais detalhes.
Muito obrigado pelo retorno
Abs
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 04 Dez 2020 às 22:22
por osvaldomp
osvaldomp escreveu: ↑04 Dez 2020 às 21:04
Se não for isso então sugiro que você disponibilize uma amostra do seu arquivo Excel.
E aí,
@Jeczei .
Me parece que eu não me fiz entender. Ao sugerir pra você disponibilizar o seu
arquivo Excel, eu quis dizer o seu
arquivo Excel e não um
Word com capturas de tela.
Disponibilize o arquivo na forma em que está, com o código que passei, e explique o que você quer dizer com "
após a exceção do botão do formulário", please.
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 04 Dez 2020 às 23:37
por Jeczei
Osvaldo, enviei o print screen com o objetivo de facilitar o entendimento, desculpe-me se não atendeu.
Sobre o texto, houve erro de digitação... o correto seria "após a execução do botão do formulário"
Segue o arquivo com o código, porém ao preparar o arquivo para lhe enviar, acabei encontrando uma solução que me atende, conforme anexo, mas penso que talvez existam outras soluções.
Obrigado pela atenção
Abs
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 05 Dez 2020 às 08:38
por osvaldomp
Salve, @Jeczei .
Eu coloquei ComboBox1 porque você não havia informado o nome, então coloquei o nome default que o Excel atribui ao ser criada a Combo. Como você alterou o nome, basta substituir o título do código, assim, no lugar de Private Sub combobox1_change() coloque Private Sub caixaoperacao_Change(). Aí o código que você montou para exibir/ocultar a TextBox e o Label vai funcionar ao selecionar um item na Combo caixaoperacao, sem precisar acionar o botão.
Após efetuar a alteração acima apague a linha ComboBox1_Change que está no código Private Sub CommandButton1_Click(), se não o código irá travar.
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 05 Dez 2020 às 10:55
por Jeczei
Bom dia Osvaldo,
Funcionou perfeitamente, era exatamente o que precisava! Excelente, muito obrigado pela ajuda.
Aproveitando a oportunidade, como devo proceder para ao encerrar o código e retornar para o Windows ? Pois estou usando Application.Quit e não está funcionando.
Ótimo fim de semana
Abs
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 05 Dez 2020 às 20:44
por osvaldomp
Jeczei escreveu: ↑05 Dez 2020 às 10:55
Pois estou usando Application.Quit e não está funcionando.
O que exatamente acontece? O código não roda? Roda mas não fecha o Excel? Roda e ocorre erro ? Ou ... ?
E o que exatamente você quer fazer ?
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 06 Dez 2020 às 13:13
por Jeczei
Boa tarde Osvaldo,
O que pretendo é sair para a tela do Windows após pressionar o botão "sair para windows"
Atualmente a saída está sendo para o excel embora com o arquivo fechado. É possível ir para a tela do Windows ?
Como a planilha já inicia em tela cheia, há outro botão que permite sair para edição do código.
Segue anexo
Bom domingo !
Obrigado
Abs
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 06 Dez 2020 às 16:06
por osvaldomp
Jeczei escreveu: ↑06 Dez 2020 às 13:13
... após pressionar o botão "sair para windows"
#
Entendi agora.
Se você quis dizer botão "
Sair do Excel" então experimente o código abaixo.
Código: Selecionar todosSub sair()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End Sub
[/code]
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 06 Dez 2020 às 18:15
por Jeczei
Osvaldo, done ! Show de bola !!
Muito obrigado mais uma vez
Ótima semana !
abs
Re: Valor do Combobox em userform através de worksheet change ?
Enviado: 06 Dez 2020 às 19:11
por osvaldomp
J.Eduardo, valeu pelo retorno.
Que bom que resolveu.
Ótima semana também.