Busca Informação
Enviado: 16 Mai 2019 às 11:17
Olá!
Estou com um problema em um código. Na verdade eu usei este código em outra planilha e estou adaptando ele.
A questão é tenho uma planilha com alguns nomes e nas colunas ao lado tenho 5 opções.
Quando eu seleciono o nome ele carrega nos textbox as informações.
Ai é que está o problema, eu sei aonde está o problema do código mas não sei como resolver.
Segue o código.
Estou com um problema em um código. Na verdade eu usei este código em outra planilha e estou adaptando ele.
A questão é tenho uma planilha com alguns nomes e nas colunas ao lado tenho 5 opções.
Quando eu seleciono o nome ele carrega nos textbox as informações.
Ai é que está o problema, eu sei aonde está o problema do código mas não sei como resolver.
Segue o código.
Código: Selecionar todos
Ao meu ver o problema está em "l = 3 'linha de inicio" ele busca informação só na linha 3, porem tenho 30 nomes abaixo. Como posso resolver isso?Dim W As Worksheet
Dim i As Long
Dim l As Long
Set W = Sheets("Rodeio")
l = 3 'linha de inicio"
i = W.Range("D" & Rows.Count).End(xlUp).Row 'coluna
Do Until i > l
If CDbl(Entidade.Text = (W.Cells(l, 16))) Then
textbox1 = (W.Cells(l, 17))
textbox2.Text = W.Cells(l, 18)
textbox3.Text = W.Cells(l, 19)
textbox4.Text = W.Cells(l, 20)
textbox5.Text = W.Cells(l, 21)
End If
i = i + 1
Loop