Pessoal Boa Noite!
Estou com um problema em Listview e não consigo resolver, fiz varias pesquisas para o tema, porém sem solução.
Necessito fazer uma pesquisa por meio de um TextBox em uma planilha. Do item pesquisado retorna os valores da linha (6 colunas) para uma Listview. E quando pesquisar um novo número o anterior seja mantido.
* Com o código abaixo o valor que retorna na listview é o somente o da 1º linha de dados, pois estou fixando o lin=2.
Private Sub txt_codigo_AfterUpdate()
Dim vcodigo As String
Sheets("Plan1").Select
ActiveSheet.Range("A2").Select
ListView1.ListItems.Clear
vcodigo = txt_codigo
lin = 2
Do While ActiveCell <> ""
If ActiveCell.Value = vcodigo Then
Set linha = ListView1.ListItems.Add(text:=Sheets("Plan1").Cells(lin, 1).Value)
linha.ListSubItems.Add text:=Sheets("Plan1").Cells(lin, 2).Value
linha.ListSubItems.Add text:=Sheets("Plan1").Cells(lin, 3).Value
linha.ListSubItems.Add text:=Sheets("Plan1").Cells(lin, 4).Value
linha.ListSubItems.Add text:=Sheets("Plan1").Cells(lin, 5).Value
linha.ListSubItems.Add text:=Sheets("Plan1").Cells(lin, 6).Value
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Muito Obrigado
Postado : 22/04/2017 6:27 pm