Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Gravar Valor de textbox menos um valor do imposto

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Gravar Valor de textbox menos um valor do imposto

Mensagem por pedro_mexico »

Boa noite,
algum membro do forum podia dar ideia de como fazer um codigo vba para gravar um valor na planilha mas com subtracao do valor do imposto.

tenho um formulario com uma listview que carrega os valores em textbox´s, , depois de atualizar ele grava os valores em duas planilhas diferentes, eu queria que numa delas o valor a gravar seria o valor da textbox menos o valor do imposto em portugal, 23%.

tenho o codigo a seguir que faz com que actualize os dados na planilha, mas queria que o valor da txtvalorfatura recebe-se o valor de por exemplo 100-23%=77

Código: Selecionar todos

Dim Plan As Worksheet
Dim linha
Dim Numero

Set Plan = Sheets("Folha1")
linha = 2
Numero = TxtNumero 

Plan.Select
linha = Plan.Range("A:A").Find(Numero).Row

With Plan

    .Cells(linha, 1) = TxtNumero.Text
     .Cells(linha, 20) = CmbMedidaPneus
    .Cells(linha, 21) = TxtValorFatura 

   
    End With
alguem pode ajudar a ter ideia como criar um codigo com essa conta


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Gravar Valor de textbox menos um valor do imposto

Mensagem por Reinaldo »

Se entendi corretamente; pode no local onde será salvo o valor sem o imposto utilizar:

++>.Cells(linha, 21) = TxtValorFatura.value * 0.77<++


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: Gravar Valor de textbox menos um valor do imposto

Mensagem por pedro_mexico »

Reinaldo.
Mais uma vez muito obrigado pela ajuda, nas minhas tentativas estive perto, mas ao ver que era tão simples só mostra que estava a complicar o que era fácil.
Muito Obrigado.
Abraço


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder