Quero preencher a próxima TextBox vazia.
Tenho 16 TextBox dispostas em 4 linhas e 4 colunas, que serão preenchidas gradativamente, quando o botão Inserir for acionado.
Um dos códigos que tentei usar para realizar o preenchimento, segue abaixo. Mas tem tanto If que ta dando pau! Este código já esta dentro de outro If.
Gostaria de um código mais limpo, ja tentei improvisar com diversas sugestões que encontrei para localizar "próxima célula vazia", mas não deu certo.
alguém consegue me sugerir algum loop tipo o abaixo:
Tenho 16 TextBox dispostas em 4 linhas e 4 colunas, que serão preenchidas gradativamente, quando o botão Inserir for acionado.
Um dos códigos que tentei usar para realizar o preenchimento, segue abaixo. Mas tem tanto If que ta dando pau! Este código já esta dentro de outro If.
- Código:
If OptionButtonCred = True Then
If txtClassificacao1.Text = Empty Then
txtClassificacao1.Text = "C:"
TextBox.SetFocus
ElseIf txtClassificacao2.Text = Empty Then
txtClassificacao2.Text = "C:"
TextBox.SetFocus
ElseIf txtClassificacao3.Text = Empty Then
txtClassificacao3.Text = "C:"
TextBox.SetFocus
Else
txtClassificacao4.Text = "C:"
TextBox.SetFocus
Exit Sub
ElseIf OptionButtonDeb = True Then
If txtClassificacao1.Text = Empty Then
txtClassificacao1.Text = "D:"
TextBox.SetFocus
ElseIf txtClassificacao2.Text = Empty Then
txtClassificacao2.Text = "D:"
TextBox.SetFocus
ElseIf txtClassificacao3.Text = Empty Then
txtClassificacao3.Text = "D:"
TextBox.SetFocus
Else
txtClassificacao4.Text = "D:"
TextBox.SetFocus
Exit Sub
End If
Gostaria de um código mais limpo, ja tentei improvisar com diversas sugestões que encontrei para localizar "próxima célula vazia", mas não deu certo.
alguém consegue me sugerir algum loop tipo o abaixo:
- Código:
Select Case OptionButtonCred
Case True
'a próxima TextBox Classificação vazia será txtClassificacaoi.Text = "C:" ,tal que {i=1,2,3,4}
Else
'a próxima TextBox Classificação vazia será txtClassificacaoi.Text = "D:" ,tal que {i=1,2,3,4}
End Select
- Anexos
- Razonete e Balancete.xlsm
- Você não tem permissão para fazer download dos arquivos anexados.
- (1.2 Mb) Baixado 2 vez(es)