Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro variavel Listeview

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Erro variavel Listeview

Mensagem por pedro_mexico »

boa Tarde amigos.
como sou leigo em vba,adaptei um código aqui do 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 um dos valores "variavel nao definida".
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 Sub
fico á espera de alguma ajuda,pata tentar perceber o erro.
Anexos
erro variavel.jpg
erro variavel.jpg (344.15 KiB) Exibido 1461 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder