Excel Excel VBA - Condição de visibilidade

josequali · 28 de novembro de 2020

Bom dia @LaerteB @Midoritenho a seguinte situação:

"gostaria que alguns campos fossem habilitados ou desabilitados a depender do texto que tenha na textbox1. Por exemplo: Se a palavra que estiver na textbox1 for QUALIDADE OU ADM OU JOSE todos os campos devem ficar habilitados (nome, cpf, rg, data e endereço). Agora se for qualquer outra palavra, só os campos NOME e CPF devem aparecer. Tentei usando o código abaixo, mas precisa adaptar. Segue em anexo a planilha. OBS: se poder colocar a condição que as palavras Qualidade/Adm/Jose possam ser escritas de qualquer forma, seja em maiúsculas e minusculas, ou só maiúsculas ou só minusculas.

Private Sub TextBox1_Change()

If TextBox1.Value = "QUALIDADE" Then
nome.Visible = True
cpf.Visible = True
rg.Visible = True
data.Visible = True
endereço.Visible = True


ElseIf TextBox1.Value = "ADM" Then
nome.Visible = True
cpf.Visible = True
rg.Visible = True
data.Visible = True
endereço.Visible = True

'AGORA se for outro nome qualquer escrito em maiusculo ou minusculo eu quero que so esses campos habilitem e os outro desabilitem
ElseIf TextBox1.Value = "OUTRO NOME QUALQUER" Then
nome.Visible = True
cpf.Visible = True
rg.Visible = False
data.Visible = False
endereço.Visible = False
End If

End Sub


Private Sub UserForm_Initialize()
nome.Visible = False
cpf.Visible = False
rg.Visible = False
data.Visible = False
endereço.Visible = False
End Sub

Desde já agradeço a disponibilidade e ajuda!

EXCEL CONDICAO DE VISIBILIDADE.rar

@Midori @LaerteB consegui fazendo assim.

Só falta colocar que independe se é maiúsculo/minusculo e se estiver vazio também desative.

'AGORA se for outro nome qualquer escrito em maiusculo ou minusculo eu quero que so esses campos habilitem e os outro desabilitem
ElseIf TextBox1.Value <= Empty > "" Then
nome.Visible = True
cpf.Visible = True
rg.Visible = False
data.Visible = False
endereço.Visible = False
End If