Inquiridor
Sequencia de validação de dados

Pergunta
-
Todas as Respostas
-
-
Option Explicit Private Sub ComboBox1_Change() If ComboBox1.Value = 1 Then TextBox1.Visible = True TextBox2.Visible = False TextBox3.Visible = False TextBox4.Visible = False TextBox5.Visible = False End If If ComboBox1.Value = 2 Then TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = False TextBox4.Visible = False TextBox5.Visible = False End If If ComboBox1.Value = 3 Then TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = True TextBox4.Visible = False TextBox5.Visible = False End If If ComboBox1.Value = 4 Then TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = True TextBox4.Visible = True TextBox5.Visible = False End If If ComboBox1.Value = 1 Then TextBox1.Visible = True TextBox2.Visible = True TextBox3.Visible = True TextBox4.Visible = True TextBox5.Visible = True End If End Sub
A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com
- Sugerido como Resposta AndersonFDiniz2 sexta-feira, 8 de dezembro de 2017 14:25
-
Option Explicit Private Sub Workbook_Open() Planilha1.ComboBox1.AddItem (1) Planilha1.ComboBox1.AddItem (2) Planilha1.ComboBox1.AddItem (3) Planilha1.ComboBox1.AddItem (4) Planilha1.ComboBox1.AddItem (5) Planilha1.TextBox1.Visible = False Planilha1.TextBox2.Visible = False Planilha1.TextBox3.Visible = False Planilha1.TextBox4.Visible = False Planilha1.TextBox5.Visible = False End Sub
A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com
- Sugerido como Resposta AndersonFDiniz2 sexta-feira, 8 de dezembro de 2017 14:25