[Resolvido] soma numa lista

[Nuno Seven]

Boas

percebo pouco de VBA, e o que sei aprendi vendo os codigos e experimentando mudando valores e testando para entender o que faz.

Usando como referencia o modelo de cadastro de produtos do Beckman (excelente trabalho). Pretendia substituir no form a caixa unidade por uma caixa de texto chamada de preço por unidade, onde se colocaria o preço por unidade. e a caixa valor monetario, iria mostrar o valor da caixa quantidade vezes o valor da caixa por unidade

Exemplo : caixa quantidade = 4
caixa preço por unidade = 200 euros
caixa valor monetario = 4x200= 800 euros

Gostaria também de apagar / alterar a mensagem com o titulo do programa , localidade e horas que aparecem no cimo do programa.

Obrigado pela atenção.

[Neri]

Bom dia Nuno

Quanto a localidade está localizado no "modulo 1". Pesquise pelo nome da cidade que dá: "Manaus", e altere, ou apague.

att

[Nuno Seven]

Obrigado Neri

[joseA]

Na caixa quantidade o valor será digitado?

[Nuno Seven]

Sim será digitado a quantidade.

[joseA]

Se entendi é isso:

Código: Selecionar todos

Private Sub txtunidade_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.txtquantidade = "" And Me.txtunidade = "" Then
    MsgBox "Os campos Unidade/Quantidade não podem ficar em branco."
    Exit Sub
End If

If Me.txtquantidade <> "" And Me.txtunidade <> "" Then
    txtvalorp = CCur(Me.txtquantidade * Me.txtunidade)
    Me.txtvalorp = Format(Me.txtvalorp, "#,##0.00 €")
End If

End Sub

[Nuno Seven]

Perfeito José A.

Muito obrigado