[Resolvido] Erro em tempo de execução 381

[milton]

Boa tarde pessoal,

A planilha em anexo, da o seguinte erro:

Erro em tempo de execução 381
Nao foi possivel obter a propriedade list. Indice de matriz de propriedade invalido.

Alguém pode resolver pra mim, por favor.

[Reinaldo]

Da maneira que está configurado sua rotina, o erro ocorre quando clica no botão "Inserir" sem selecionar o item no listbox.
Selecione um dos itens e acione o botão

[milton]

Ola Reinaldo, obrigado pelo retorno.

Meu objetivo é, quando clicar no botão "Inserir" todos os itens da listbox sejam inseridos na Planilha sem que eu tenha que selecionar manualmente.

Pode me ajudar?

[Reinaldo]

Talvez assim:

Código: Selecionar todos

Private Sub BtnInserir_Click()
Dim iCodigo As String
Dim Lin As Integer
Dim Qtde As Double

For x = 0 To ListBox1.ListCount - 1
    'Pego o Código da LisBox
    iCodigo = ListBox1.List(x, 0)
    'Pego a Qtde
    Qtde = ListBox1.List(x, 1)
    
    Lin = 2
    
    'Faz um Loop na  Plan Estoque
    Do While Sheets("ESTOQUE").Cells(Lin, 1) <> ""
        'Se  o Código da Plan Estoque for igual ao Código Selecionado
        'da Listbox então soma o saldo do estoque com a qtde da listbox
        If Sheets("ESTOQUE").Cells(Lin, 2) = iCodigo Then
            Sheets("ESTOQUE").Cells(Lin, 4) = Sheets("ESTOQUE").Cells(Lin, 4) + Qtde
            'Sai do Loop
            Exit Do
        End If
    Lin = Lin + 1
    Loop
Next
MsgBox "Quantidade Atualizada com sucesso!!", vbInformation + vbOKOnly, "Atenção"

End Sub

[milton]

Bom dia Reinaldo.
Perfeito, era isso mesmo. Muito obrigado!!!
Abraço.