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