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