Erro em tempo de execução '380':

[Samuel Carlos Ribeiro]

Boa tarde

Estou tentanda executar meu projeto em Excel 2019 conforme vou concluindo a programação de algum objeto, esse erro esta acontecento no ListBox conforme o que segue abaixo;

Erro em tempo de execução '380': Não é possivel definir a propriedade List. Valor de propriedade incalido

Sub CarregaListBox()

        Dim wb As Workbook
        Dim sh As Worksheet
        
        Set wb = ThisWorkbook
        Set sh = wb.Sheets("clientes")
        
        wb.Activate
        sh.Activate
        
        lins = sh.Range("A1048576").End(xlUp).Row
            For i = 1 To lins
            
            With ListBox1
                .AddItem
                    .List(i - 1, 0) = sh.Cells(i, 1).Value
                    .List(i - 1, 1) = sh.Cells(i, 2).Value
                    .List(i - 1, 2) = sh.Cells(i, 3).Value
                    .List(i - 1, 3) = sh.Cells(i, 4).Value
                    .List(i - 1, 4) = sh.Cells(i, 5).Value
                    .List(i - 1, 5) = sh.Cells(i, 6).Value
                    .List(i - 1, 6) = sh.Cells(i, 7).Value
                    .List(i - 1, 7) = sh.Cells(i, 8).Value
                    .List(i - 1, 8) = sh.Cells(i, 9).Value
                    .List(i - 1, 9) = sh.Cells(i, 10).Value
                    .List(i - 1, 10) = sh.Cells(i, 11).Value
                    .List(i - 1, 11) = sh.Cells(i, 12).Value
                    .List(i - 1, 12) = sh.Cells(i, 13).Value
                    
            End With
            
        Next i
        
        Set wb = Nothing
        Set sh = Nothing
        
End Sub

 

[Alyson Ronnan Martins]

Boa tarde @Samuel Carlos Ribeiro.

Também tive esse tipo de problema quando a base de informações do list é muito grande, pesquisei muito na microsoft e na epoca e hoje não consegui solucionar e sim contornar o problema.

Não sei qual a sua necessidade para utilizar o additem em campos do List. Eu recomendaria mudar para a propriedade RowSource, já que você esta adicionando todas as colunas (praticamente).
Olha o código exemplo:
 

Sub CarregaListBox()

    Dim wb As Workbook
    Dim sh As Worksheet
    
    Set wb = ThisWorkbook
    Set sh = wb.Sheets("clientes")
    
    wb.Activate
    sh.Activate
    
    lins = sh.Range("A1048576").End(xlUp).Row
    
    With ListBox1
        ' Define a propriedade RowSource para o intervalo desejado na planilha
        .RowSource = sh.Range("A1:M" & lins).Address
    End With
    
    Set wb = Nothing
    Set sh = Nothing
    
End Sub

Link da microsoft: Como resolver erro em tempo de execução 380 não foi possível definir a - Microsoft Community

[Samuel Carlos Ribeiro]

Boa tarde Alyson

Obrigado pelo retorno, e muito obrigado pela dica.

Deu certo