Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Vagnfer
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Abr 15, 2019 3:35 pm

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

Mensagem 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
Editado pela última vez por Vagnfer em Ter Abr 16, 2019 4:30 pm, em um total de 1 vez.


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

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

Mensagem 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


Vagnfer
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Abr 15, 2019 3:35 pm

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

Mensagem 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??


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

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

Mensagem 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.


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.


Vagnfer
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Abr 15, 2019 3:35 pm

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

Mensagem por Vagnfer »

erro resolvido com o ultimo comando !!
Muito obrigado pelo suporte !!


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