Tópicos relacionados a códigos VBA, gravação de macros, etc.
#60898
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
#60900
Jeczei escreveu: 04 Dez 2020 às 18:35 ... talvez utilizando Worksheet. Changel (??)
Não seria ComboBox1_Change() ?
Código: Selecionar todos
Private 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.
#60902
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
Você não está autorizado a ver ou baixar esse anexo.
#60904
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.
Jeczei agradeceu por isso
#60907
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
Você não está autorizado a ver ou baixar esse anexo.
#60914
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.
Jeczei agradeceu por isso
#60916
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
#60930
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 ?
#60938
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
Você não está autorizado a ver ou baixar esse anexo.
#60944
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 todos
Sub sair()
 Application.DisplayAlerts = False
 ActiveWorkbook.Save
 Application.Quit
End Sub
[/code]
Jeczei agradeceu por isso
#60949
J.Eduardo, valeu pelo retorno.
Que bom que resolveu.
Ótima semana também.

Olá pessoal, espero que estejam bem. Tenho[…]

Boa noite. Sou novo no VBA, veja se resolve o seu […]

Top, asism ficou bem melhor, Muito Obrigado

Erro em tempo de Execução...

Bom dia amigos, neste código abaixo esta da[…]

Boa tarde. Segue uma opção. At&ea[…]

Leitura de planilha fechada

Consegui explicar :) :shock: :?: :?: N&at[…]

Bom-dia! Numa pasta do servidor [ D:\Server\BemVi[…]

Enviando email outlook

Boa tarde! Estou usando o codigo abaixo e esta fun[…]