Excel Multiplicar textbox para planilha

[Guilherme Stoduto]

Bom dia!

 

Tenho 2 textboxs uma informando codigo e a outra informando a quantidade, preciso que ao enviar o textbox(codigo) para planilha, preciso que seja multiplicado pelo valor da textbox(quantidade).

 

Estou com esse codigo abaixo:

Private Sub botao_salvar_Click()

    Workbooks("Separação_de_Materiais.xlsm").Worksheets("INICIO").Activate

    ult_linha = Workbooks("Separação_de_Materiais.xlsm").Worksheets("INICIO").Range("N5").End(xlUp).Row

    Range("N" & ult_linha).Select

        Do
            If ActiveCell.Value <> Empty Then
                ActiveCell.Offset(1, 0).Select
            End If

        Loop Until ActiveCell.Value = Empty

    ActiveCell.Value = TextBox_codigo.Text
    ActiveCell.Value = TextBox_quantidade.Value
    
    
    
    

    MsgBox ("Material inserido com sucesso!")

    TextBox_codigo.Text = Empty
    TextBox_quantidade.Text = Empty
       
    
End Sub

 

 

[Midori]

Pode ser feito assim,

 

ActiveCell.Value = TextBox_codigo.Value * TextBox_quantidade.Value

 

Para evitar o erro de execução no caso de uma entrada inválida, antes do cálculo você pode testar se os valores são numéricos com a função IsNumeric.

 

[Guilherme Stoduto]

Preciso que seja multiplicado a textbox(codigo) com conforme a quantidade informada no textbox(quantidade).

 

Exemplo: tenho o textbox(codigo) 123 e informo no textbox(quantidade) que existe 2 unidades desse codigo, quando salvar, preciso que na planinha esteja 123, 123 e não 123 * 2.

[Midori]

@Guilherme Stoduto Da forma que comentou entendi que queria efetuar o cálculo. Se é para repetir a entrada na planilha de acordo com a quantidade do outro textbox a partir da célula ativa, veja assim resolve,

 

ActiveCell.Resize(TextBox_quantidade.Value) = TextBox_codigo.Value

 

Se for isso mesmo, para evitar algum erro você pode testar o valor da quantidade se é numérico e maior que zero.

[Guilherme Stoduto]

Perfeito! Resolvido!

 

Obrigado pela ajuda