Problema com Listbox

[amazonascf]

ME AJUDA O QUE PODE TA ERRADO NO MEU CODIGO QUANDO ADICIONO:

.List(linhalistbox, 10) = Sheets("Dados").Cells(linha, 66), DA ERRO



Private Sub buscar_valores()

    Dim guia As Worksheet
    Dim linha As Integer
    Dim coluna As Integer
    Dim linhalistbox As Integer
    Dim valor_celula As String
    Dim conta_registros As Integer
    Set guia = ThisWorkbook.Worksheets("Dados") 'segunda guia da planilha
    
    linha = 2
    coluna = 57 'coluna da busca na planilha
    linhalistbox = 0
    conta_registros = 0
    
    ListBox1.Clear
    
    With guia
        While .Cells(linha, coluna).Value <> Empty
            valor_celula = .Cells(linha, coluna).Value
            
            'If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then
            If InStr(1, UCase(valor_celula), Trim$(UCase(valor_pesquisado))) > 0 Then
                
             With ListBox1
             .AddItem
             .List(linhalistbox, 0) = Sheets("Dados").Cells(linha, 57)
             .List(linhalistbox, 1) = Sheets("Dados").Cells(linha, 58)
             .List(linhalistbox, 2) = Sheets("Dados").Cells(linha, 59)
             .List(linhalistbox, 3) = Sheets("Dados").Cells(linha, 67)
             
             .List(linhalistbox, 4) = Sheets("Dados").Cells(linha, 60)
             .List(linhalistbox, 5) = Sheets("Dados").Cells(linha, 61)
             .List(linhalistbox, 6) = Sheets("Dados").Cells(linha, 62)
             .List(linhalistbox, 7) = Sheets("Dados").Cells(linha, 63)
             .List(linhalistbox, 8) = Sheets("Dados").Cells(linha, 64)
             .List(linhalistbox, 9) = Sheets("Dados").Cells(linha, 65)
             '.List(linhalistbox, 10) = Sheets("Dados").Cells(linha, 66)

             
             linhalistbox = linhalistbox + 1
             conta_registros = conta_registros + 1
             End With
                
            End If
            linha = linha + 1
        Wend
    End With
    
    
lbl_registros = ListBox1.ListCount

End Sub

 

[Alyson Ronnan Martins]

Boa noite, teria como postar a planilha para olhar. para entender porque não adcionar no listbox;

[amazonascf]

segue a planilha quero apenas que ela consiga pegar todos os campos quando eu pesquiso

 

https://www.4shared.com/file/Vh1c4Yx7ba/VBA.html

[Alyson Ronnan Martins]

Boa noite. Eu dei uma revisada no seu projeto e vi um problema. 
Nas referências cadastradas não tinha uma delas no meu computador e creio que seja a mesma que esteja dando erro no seu. Eu desativei a referência e a planilha funcionou normalmente.

Desativa ela ai e me passa uma resposta.

No VBA: Menu Ferramentas > Referências...