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

  • Pergunta

  • 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.

    domingo, 15 de abril de 2018 23:23

Todas as Respostas

  • 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

    segunda-feira, 16 de abril de 2018 13:02