Calculo Automatico da Célula

[lordskynner]

Bem Caros amigos, tenho a seguinte situação:

Material				Unitário	Total
1	Central de Alarme		R$ 20,00	R$ 20,00
10	Sensores Embutir		R$ 5,00		R$ 50,00
1	Bateria				R$ 60,00	R$ 60,00
2	Sirenes				R$ 15,00	R$ 30,00
1	Controle Remoto			R$ 20,00	R$ 20,00

Tenho a nescessidade de realizar a adição de uma porcentagem sobre o valor unitário de cada produto, e precisava saber se há alguma maneira de que, quando eu preencha o valor unitário, ele realizasse este calculo autimaticamente. Por exemplo, o "Valor Unitário" do primeiro produto fica na célula K15, então, eu coloco o valor 20 nesta célula, e ao sair da mesma, ela automaticamente mude este valor para 20+10% or exemplo, no caso 22. OU então alguma macro com a qual eu consiga, realizar estes calculos, pressionando algum botão, ou algo do gênero.

[eduzsrj]

COloque isso no código da plan1 e nao em Modulo1:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
application.EnableEvents = False
Range("" & Target.Address).Value = Range("" & Target.Address).Value * 0.1
application.EnableEvents = True
End Sub

[lordskynner]

Hum, e como posso fazer isto? é uma macro? Que tentei gravar macro, mas o comando de gravar macro sempre fica desativado, ja tentei criar uma planinha com soporte a macro, mas mesmo assim o comando não ativa. Estou utilizando o Office 2010.

[eduzsrj]

primeiro salva como XLSM

depois vai em macros, nao bota pra grava nao, digita qq coisa tipo MinhaMacro, clica em criar

deixa ela delado e clica em Plan1 ou o nome da sua planilha na lista ao lado direito da janela

la você cola esse codigo

[Patropi]

Boa noite lordskynner

Para você acessar o editor de VBA para você colar a macro que o amaigo eduzsrj passou é só você clicar com o lado esquerdo do mouse na ABA da tua planilha, quefica embaixo--->clique em exibir código que vai abrir o editor de VBA com uma folha em branco no lado direito---> cole o código ali e clique em ALT+Q para voltar para a planilha.

Espero ter ajudado.

Um abraço.

Caro eduzsrj

Eu testei a tua macro e ela esta substituindo o valor pelo porcentagem do valor, como por exemplo 20,00 por 2,00 sendo que ela deveria somar 20 + 2 que totalizaria R$ 22,00.

Dê uma examinada.

Um abraço.

[eduzsrj]

é só substituir 0.1 por 1.1

Ou se o percentual for 15% então 1.15

e por ai vai

Obrigado!

[lordskynner]

Obrigado amigos, mais ou menos como precisava, porém, desta maneira acaba afetando todas as celulas da tabela, e quando digito algum dado que não seja numero, ela da erro, e o script não roda mais, e tambem, precisava que este script funcionasse em apenas uma determinada coluna, para não afetar, por exemplo, a primeira coluna, que é a de quantidade.

E mais uma duvida, de alguma maneira eu consigo colocar por exemplo, uma caixa de seleção, para que, quando esta caixa de seleção esteja marcada, seja feita esta soma da porcentagem, e quando não esteja marcada, continue com o valor original que digitei na celula?

[eduzsrj]

aí vai complicar

BOm, para restringir a uma so coluna: (substitua a 3ª linha do codigo)

If Target.Column = 1 Then Range("" & Target.Address).Value = Range("" & Target.Address).Value * 1.1

No exemplo 1 = coluna A

Se quiser restringir a uma região de células:

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("" & Target.Address).Value = Range("" & Target.Address).Value * 1.1

No exemplo acima so fara a altecao se o valor for inserido da celula A1 a A10

Quanto a caixa de selecao nao entendi bem.

você quer que quando ele for rodar a macro pergunte se deve ou nao fazer o calculo?

Ou você poderia por um valor 0 ou 1 em uma célula no inicio da planilha e se o valor for 1 ele calcula, se for 0 ele repete, isso serve? Essa verificacao teria que ser célula por célula?

tenta pensar melhor nisso que você quer ai.