Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Erro variavel Listeview

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

Erro variavel Listeview

Mensagem por pedro_mexico » Qua Jul 04, 2018 11:26 am

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 75 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