VBA - Ajuda

[Odair Tomaz]

Pessoal, não sou programador, trabalho na área financeira. Como se diz, tento me virar sozinho em algumas coisas, mas tem hora, como essa que preciso da ajuda de vocês.

Estou com um trabalho grande e repetitivo a fazer e estou querendo agilizar isso, com algumas instruções de VBA. Vou mandar um exemplo para vocês.

A coluna "H", eu consegui colocar as instruções e rodar bacana, porém, as colunas "I" e "J", enrosquei.....rs.

Para a coluna "H", utilizei o VBA abaixo: onde a fórmula anterior era: =K7*(1-((F7)/100))*AB7

Sub ReplaceFormulas()

'Set the range of cells to be replaced
Dim rng As Range
Set rng = Range("T7:T999")

'Replace the formulas
For Each cell In rng
If cell.Value <> 0 Then
cell.Formula = Mid(cell.Formula, 12, 1000000) & "((1-F" & cell.Row & "/100)*(1-(H" & cell.Row & "+I" & cell.Row & ")/100))) * AB" & cell.Row & ")"
End If
Next cell

End Sub

 

Para as colunas "I" e "J", a fórmula atual é: =A5*(16,16*(1-((B5)/100))) * K5, preciso que fique: =A5*(16,16*((1-B5/100)*(1-(H5+I5)/100))) * K5.

 

Abraço a todo e ótima semana

 

teste.xlsm