Erro em variavel Listeview
Enviado: 05 Jul 2018 às 14:37
boa Tarde amigos.
como sou leigo em vba,adaptei um código de um fórum em que tenho uma listview e textbox's, em que faço a ediçao nas textbox's, e tem uma combobox com valores que define as colunas onde vai fazer pesquica, e uma textbox de procura.
ja adaptei o codigo ao meu formulario , mas dá erro dizendo que" NewItem"é uma "[u]variavel nao definida[/u]".
ja percebi que sempre que tenho no inicio dos formularios a opçao "Option Explicit" ,faz com que eu tenha que definir todas as variaveis.
envio codigo que tenho
fico á espera de alguma ajuda,para tentar perceber o erro.
como sou leigo em vba,adaptei um código de um fórum em que tenho uma listview e textbox's, em que faço a ediçao nas textbox's, e tem uma combobox com valores que define as colunas onde vai fazer pesquica, e uma textbox de procura.
ja adaptei o codigo ao meu formulario , mas dá erro dizendo que" NewItem"é uma "[u]variavel nao definida[/u]".
ja percebi que sempre que tenho no inicio dos formularios a opçao "Option Explicit" ,faz com que eu tenha que definir todas as variaveis.
envio codigo que tenho
Código: Selecionar todos
Sub PreencheListView()
Dim i As Long
lsLista.ListItems.Clear
If IsArray(MatrizResultadosLinha) Then
For i = 0 To UBound(MatrizResultadosLinha)
If MatrizResultadosLinha(i) <> 1 Then
Set NewItem = lsLista.ListItems.Add(, , i)
With Sheets(CInt(MatrizResultadosPlanilha(i)))
NewItem.SubItems(1) = .Cells(MatrizResultadosLinha(i), 1).Value
NewItem.SubItems(2) = .Cells(MatrizResultadosLinha(i), 2).Value
NewItem.SubItems(3) = .Cells(MatrizResultadosLinha(i), 3).Value
NewItem.SubItems(4) = .Cells(MatrizResultadosLinha(i), 4).Value
NewItem.SubItems(5) = .Cells(MatrizResultadosLinha(i), 5).Value
NewItem.SubItems(6) = .Cells(MatrizResultadosLinha(i), 6).Value
NewItem.SubItems(7) = .Cells(MatrizResultadosLinha(i), 7).Value
NewItem.SubItems(8) = .Cells(MatrizResultadosLinha(i), 8).Value
NewItem.SubItems(9) = .Cells(MatrizResultadosLinha(i), 9).Value
NewItem.SubItems(10) = .Cells(MatrizResultadosLinha(i), 10).Value
NewItem.SubItems(11) = .Cells(MatrizResultadosLinha(i), 11).Value
NewItem.SubItems(12) = .Cells(MatrizResultadosLinha(i), 12).Value
NewItem.SubItems(13) = .Cells(MatrizResultadosLinha(i), 13).Value
NewItem.SubItems(14) = .Cells(MatrizResultadosLinha(i), 14).Value
End With
End If
Next i
End If
End Subfico á espera de alguma ajuda,para tentar perceber o erro.