Este fórum está sendo desativado

[Endearing]

Boa noite pessoal,

Estou a tentar criar um Userform que me permita inserir alguns dados em 3 planilhas diferentes. Deixo aqui uma imagem como exemplo do que pretendo.



O que pretendo é o seguinte:

Quando introduzir na textbox1 um codigo que esteja na coluna SAP(coluna A) e uma quantidade na textbox2, seja somada essa quantidade na coluna Sales (coluna C) que corresponde a esse código. Ou seja, se tenho 2 unidades na célula e introduzo 2 na textbox2, passo a ter 4 unidades.
Na textbox3 preciso que me mostre a quantidade que está na coluna Stock (coluna B) menos a quantidade introduzida na TextBox2.

Será muito complicado fazer tudo isto? Obrigado a quem puder ajudar.

[Dieferson]

Boa noite Endearing!

Fiz o código bem simples, tens que adaptar à sua planilha!
Primeiro coloca o código na txtbox1
depois coloca a quantidade na txtbox2
e depois a soma do que já está na sua planilha com a qtde colocada na txtbox2 é passada para planilha e também para a txtbox3.
Foi isso que entendi, qualquer coisa avisa.

Código: Selecionar todos

Private Sub TextBox2_Change()
    Dim Ultlinha            As Long
    Dim w                          As Worksheet
    Dim Ln                         As Long
    Set w = Worksheets("Planilha1")
    Ultilinha = w.Cells(Rows.Count, 2).End(xlUp).Row
    cod = Trim(TextBox1)
    If Len(cod) < 6 Then Exit Sub
        For a = 1 To Ultilinha
            If cod = Trim(w.Cells(a, 2).Value) Then
                Ln = w.Cells(a, 2).Row
            End If
        Next a
        On Error Resume Next
        TextBox3 = TextBox2 + w.Cells(Ln, 3).Value
        w.Cells(Ln, 4).Value2 = w.Cells(Ln, 3).Value + TextBox2

End Sub

Espero ter ajudado.

[Endearing]

Obrigado Dieferson, logo que possa vou testar e digo se resultou como pretendo.

[Endearing]

Olá Dieferson, infelizmente não funcionou ou eu é que estou a fazer algo errado. Vou deixar aqui uma imagem de um exemplo do que pretendo já com alguns dados introduzidos e se puderes adaptar o código de acordo com esta tabela agradeço, só assim vou perceber o que estou a fazer de errado. Aquilo que reparei, é que o botão Enter não faz nada, é como se não existisse.



E na textbox3 o que pretendia era o resultado do stock (F4 por exemplo) menos a quantidade inserida na textbox2, ou seja, o resultado final que ficará na célula F4 após a validação das vendas do codigo introduzido.
Sei que parece confuso, mas talvez seja eu que não me esteja a explicar bem, qualquer dúvida, eu tento explicar melhor. Obrigado pela ajuda.

[Dieferson]

Desculpa a demora

Se pra funcionar no enter, tem que colocar o código no botão, tinha feito para funcionar com a alteração da textbox.

Se puder, posta a planilha que coloco no seu Userform.

até.