[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
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
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