Guru do Excel e Power BI

Olá, tenho uma planilha onde devemos colocar a divisão de uma balaça; por exemplo: 0,01g, 0,1g, 5 kg e assim por diante.

Após colocada a divisão da balança, eu coloco os resultados de 3 medições feitas nessa balança:
Exemplo:

Divisão - 0,01g

Medição 1 = 1,02g
Medição 2 = 1,00g
Medição 3 = 1,00g

Eu gostaria que no momento em que defino a divisão da balança, a planilha me apresentasse os valores com o número de casas decimais igual ao da divisão, ou seja, se defino a divisão 0,01g as células onde insiro as medições me apresentem o valor 0,00. Se defino a divisão 0,0001g as células devem apresentar 0,0000 e assim por diante.

É possível?

Agradeço a atenção.

eversonmedrado

O ideal é postar modelo, hoje pouco tempo mas

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

Deciog

É quase isso, mas não é isso.
Estou mandando em anexo um exemplo da planilha que utilizamos aqui. As células verdes, são as células onde insiro valores.

A célula em verde correspondente a resolução, é onde insiro 0,01 ou 0,001; etc.
Quando insiro os valores na leitura 1, 2 e 3 eles devem conter o mesmo número de casas decimais da resolução.

Não o mesmo valor, mas o número de casa decimais. Os valores das leituras 1, 2 e 3 devem ser editáveis, pois eles correspondem ao valor medido na balança.

Por exemplo, se coloco a resolução 0,001, quando eu inserir 2 na leitura 1, ele deve apresentar 2,000 sem precisar acrescentar casas decimais manualmente.


Novamente, não sei se isso é possível.

Olá @eversonmedrado,

Se entendi direito, acredito que o código abaixo deve te atender.

- Entre na planilha
- Tecle ALT+F11 Isso fará entrar no modo de desenvolvimento VBA
- Do lado esquerdo vai ter uma coluna com o nome das planilhas.
- Dê um duplo-clique na planilha em questão (PREENCHIMENTO DOS DADOS).
- Do lado direito deve ter uma janela toda em branco, onde na parte de cima está escrito (geral) e (declaração)
- Copie o código abaixo e cole na parte branca dessa janela.
- Volte para a planilha e teste digitando algo em BC7, e observando a quantidade de decimais assumida pelas células B13, J13 e R13.

Private Sub Worksheet_Change(ByVal Target As Range)
Set Onde = Range("BC7")
If Not Intersect(Target, Onde) Is Nothing Then
Aux1 = Format(Onde.Value, "@")
Aux2 = Len(Aux1) - InStrRev(Aux1, ",")
Aux3 = "0." & String(Aux2, "0")
If Aux2 = Len(Aux1) Then Aux3 = 0
Range("B13,J13,R13").NumberFormat = Aux3
End If
Set Onde = Nothing
End Sub

Jimmy San Juan

Olá @Jimmy

É exatamente isso, muito obrigado pela ajuda, achei que não fosse possível isso.
Isso me ajudou demais.


Muito obrigado ao @Deciog também pela ajuda.