Página 1 de 1

Ajuda em criação de Userform

Enviado: 04 Fev 2018 às 19:30
por 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.

Imagem

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.

Ajuda em criação de Userform

Enviado: 04 Fev 2018 às 22:10
por 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.

Ajuda em criação de Userform

Enviado: 05 Fev 2018 às 09:51
por Endearing
Obrigado Dieferson, logo que possa vou testar e digo se resultou como pretendo.

Re: Ajuda em criação de Userform

Enviado: 06 Fev 2018 às 13:22
por 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.

Imagem

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.

Re: Ajuda em criação de Userform

Enviado: 12 Fev 2018 às 12:47
por 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é.