Este fórum está sendo desativado

[Adrianossilva]

Olá pessoal, estou adaptando este controle de estoque em anexo para minhas necessidades, já está quase como gostaria, mas apareceu um problema no botão de remover item, e como sou iniciante ainda, não consigo resolver. Alguém poderia me ajudar? Desde já, obrigado!!

[RafaelRabaquim]

Boa noite...dentro do botão de remover item...colocar isso....

Dim resposta As Integer

If lstprodutos.ListIndex = -1 Then
MsgBox "Você deve selecionar um item primeiro!", vbInformation
Exit Sub
Else
resposta = MsgBox("Você deseja remover esse item?", vbQuestion + vbYesNo, "Remover itens")
If resposta = vbYes Then
lstprodutos.RemoveItem (lstprodutos.ListIndex)
End If
End If

[Adrianossilva]

Obrigado Rafael, removeu o item, no entanto não devolveu a quantidade ao estoque (planilha)