Usar método Find para encontrar, Armazenar Valor em uma variável, Fazer operação matemática e Devolver o Valor na celula

Question

Boa Noite Pessoal, estou com um problema

Preciso que meu código me permita fazer uma alteração de quantidade no estoque.

Para isso preciso que o usuário digite o código do produto e o mesmo localize a quantidade no estoque.

Com essa quantidade em estoque, preciso que ele armazene o valor em uma Variável e subtraia com o valor desejado em uma textbox.

Feito essa operação matemática, ele atualize a quantidade em estoque.

A base de dados é no excel mesmo.

Se alguém puder me ajudar, desde de já agradeço.

Answer 1

Coloquei 3 textbox e um botão num Userform.

Textbox1 para introdução do código, textbox2 para apresentar stocks existentes e textbox3 para os valores a subtrair.

No botão coloquei o código seguinte:

Dim STK As Integer, STK1 As Integer

Private Sub CommandButton1_Click()

  Dim mwksDados
  Dim lngRow As Long
  
'PARTINDO DO PRINCÍPIO QUE O CÓDIGO É DIGITADO NA TEXTBOX1
Set mwksDados = Sheets("Folha1")
  With mwksDados
    For lngRow = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
      If Me.TextBox1.Value = .Cells(lngRow, "A").Value Then
      
'PARTINDO DO PRINCIPUIO QUE O STOCK SE ENCONTRA NA COLUNA "F"
'O STOCK ATUAL É APRESENTADO NA TEXTBOX2

        TextBox2.Value = .Cells(lngRow, "F").Value
        STK = .Cells(lngRow, "F").Value
                       
       STK1 = STK - TextBox3.Value
       
   .Cells(lngRow, "F").Value = STK1
   
      End If
    Next lngRow
    
  End With

End Sub

Adapta à tua necessidade.

Marca como resposta se resolver  teu problema.

---

M_A_S_L