Eu estou fazendo uma função para percorrer a linha a procura da ultima celula preenchida, e quando encontrar fazer um calculo.
A formula funciona porem quando altero o valor da celula ao lado ela não atualiza automaticamente, e quando arrasto para as demais células a formula não copia
Pergunta
amanda.confronieri
Eu estou fazendo uma função para percorrer a linha a procura da ultima celula preenchida, e quando encontrar fazer um calculo.
A formula funciona porem quando altero o valor da celula ao lado ela não atualiza automaticamente, e quando arrasto para as demais células a formula não copia
.
Function reajuste()
linha = ActiveCell.Row
coluna = ActiveCell.Column
colunaReajuste = coluna
colunaValor = coluna - 5
While Cells(linha, colunaValor) = 0 Or Cells(linha, colunaValor) = ""
colunaValor = colunaValor - 4
Wend
valor1 = Cells(linha, colunaReajuste - 1)
valor2 = Cells(linha, colunaValor)
resultado = (valor1 / valor2) - 1
reajuste = resultado
End Function
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.