Página 1 de 1

[RESOLVIDO]Erro em tempo de execução 381. Não foi possível definir a propriedade List. Índice de matriz de propriedade

Enviado: Seg Abr 15, 2019 3:42 pm
por Vagnfer
Boa tarde,
Não estou conseguindo achar onde esta o erro :
Erro em tempo de execução ´381´. Não foi possível definir a propriedade List. Índice de matriz de propriedade inválido.

podem me ajudar??

Segue meu código

Código: Selecionar todos

Private Sub ComboBox1_Change()
  Call CarregaDESPESA(Me.ComboBox1.List(Me.ComboBox1.ListIndex))

End Sub



Private Sub Text_data_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Text_data = Format(Text_data, "00""/""00""/""0000")

End Sub


Private Sub Text_valor_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Text_valor = Format(Text_valor, "R$ #,##.00")


End Sub

Private Sub UserForm_Initialize()
 Call CarregaGRUPO
 
End Sub
Private Sub CarregaGRUPO()
    Dim linha As Integer, coluna As Integer
    linha = 2
    coluna = 1
    Me.ComboBox1.Clear
    With Sheets("GRUPO")
        Do While Not IsEmpty(.Cells(linha, coluna))
            Me.ComboBox1.AddItem .Cells(linha, coluna).Value
            linha = linha + 1
        Loop
    End With
End Sub
Private Sub CarregaDESPESA(ByVal GRUPO As String)

    Dim linha As Integer, colunaDESPESA As Integer, colunaGRUPO As Integer
    linha = 2
    colunaGRUPO = 1
    colunaDESPESA = 2
       Me.ComboBox2.Clear
    With Sheets("DESPESA")
        Do While Not IsEmpty(.Cells(linha, colunaDESPESA))
            If .Cells(linha, colunaGRUPO).Value = GRUPO Then
                Me.ComboBox2.AddItem .Cells(linha, colunaDESPESA).Value
            End If
            linha = linha + 1
        Loop
    End With
End Sub

Re: Erro em tempo de execução ´381´. Não foi possível definir a propriedade List. Índice de matriz de propriedade inváli

Enviado: Ter Abr 16, 2019 9:52 am
por webmaster
Vagnfer,

O erro ocorre aqui?

Código: Selecionar todos

Call CarregaDESPESA(Me.ComboBox1.List(Me.ComboBox1.ListIndex))
Se sim, tente duas coisas:

1 - Cheque se a propriedade ListIndex não é -1
2 - Se for um combobox de coluna única, user a propriedade Value deve ser suficiente

Re: Erro em tempo de execução ´381´. Não foi possível definir a propriedade List. Índice de matriz de propriedade inváli

Enviado: Ter Abr 16, 2019 1:50 pm
por Vagnfer
boa tarde!
Desculpe minha falta de conhecimento, mas ainda não consegui.
1- não localizei ListIndex na caixa de propriedade
2 é combobox sim, como ficaria esse codigo usando propriedade Value??

Re: Erro em tempo de execução ´381´. Não foi possível definir a propriedade List. Índice de matriz de propriedade inváli

Enviado: Ter Abr 16, 2019 2:31 pm
por Mikel Silveira Fraga
Boa tarde a todos.

Vagnfer, respondendo sua dúvida, sobre a sugestão dada pelo Tomás, ficaria assim:

Código: Selecionar todos

Call CarregaDESPESA(Me.ComboBox1.Value)
A Propriedade Value, retorna o valor do texto selecionado na ComboBox, enquanto que o uso do Método List(), é necessário informar os pontos X,Y da ComboBox, para que o mesmo texto seja retornado.

Veja se vai resolver seu problema. Senão, uma boa situação seria compartilhar as partes do seu projeto em que estão gerando esse erro, com dados fictícios. Tendo um modelo em mãos, fica muito mais fácil de analisar e chegar a uma solução relevante.

Dúvidas, estamos a disposição.

[RESOLVIDO] Erro em tempo de execução ´381´. Não foi possível definir a propriedade List. Índice de matriz

Enviado: Ter Abr 16, 2019 3:30 pm
por Vagnfer
erro resolvido com o ultimo comando !!
Muito obrigado pelo suporte !!