Jump to content
Fórum Script Brasil
  • 0

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


Samuel Carlos Ribeiro

Question

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

 

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.9k
×
×
  • Create New...