Este fórum está sendo desativado

[rafarangel1512]

Estou a ter dificuldade em arranjar solução para a atualização da quantidade de certas peça.
Quero que ao inserir uma quantidade na userform, seja retirada essa quantidade à quantidade existente na tabela.

[rafarangel1512]

Envio a minha planilha também, Obrigado

[babdallas]

Não entendi. Se eu escolher Referência EA3, Tipo Célula e digitar 2, ao clicar em Confirmar você deseja que a célula que está 3 seja subtraída do valor 2 digitado?

[rafarangel1512]

Sim, exatamente isso

[babdallas]

Código: Selecionar todos

Private Sub Confirmar_Click()
    Dim vrtLinha    As Variant
    Dim loTabela     As ListObject
    
    Set loTabela = wshMenu.ListObjects("Tabela2")
    
    With loTabela
        wshMenu.Range("XFD1").Formula2Local = "=CORRESP(""" & Requisicao.Ref.Value & _
                                                            Requisicao.Tipo.Value & _
                                                            """;Tabela2[Refer?ncia]&Tabela2[Tipo];0)"
        vrtLinha = wshMenu.Range("XFD1").Value2
        wshMenu.Range("XFD1").Value2 = vbNullString
        
        If VBA.IsNumeric(vrtLinha) Then
            If VBA.CLng(Requisicao.Quant.Value) > .DataBodyRange(vrtLinha, 3).Value2 Then
                VBA.MsgBox "A quantidade solicitada e maior que o estoque"
                Exit Sub
            End If
            .DataBodyRange(vrtLinha, 3).Value2 = .DataBodyRange(vrtLinha, 3).Value2 - Requisicao.Quant.Value
        End If
    End With
End Sub

[rafarangel1512]

Muito obrigado, funciona na perfeição!