none
Sequencia de validação de dados RRS feed

  • Pergunta

  • ola! estou querendo criar uma planilha, onde ao informar o numero total de vencimentos apareçam campos para digitar o valor e a data de cada vencimento de acordo com o numero informado!
    sexta-feira, 8 de dezembro de 2017 12:37

Todas as Respostas

  • muito obrigado, mas não seria exatamente isso, gostaria de uma validação de dados, onde após eu selecionar 5 por exemplo, apareçam 5 novas caixas para informar o valor, se digitar 3 apareçam somente 3 e assim por diante

    sexta-feira, 8 de dezembro de 2017 13:50
  • 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
    sexta-feira, 8 de dezembro de 2017 14:23
  • 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
    sexta-feira, 8 de dezembro de 2017 14:25