Boko Moko

Para testar se tem um "-" dentro da data e ao mesmo tempo servir para parti-la em dois pedaços você pode usar a função INSTR() do vba faça assim onde = instr( w_data , "-") if onde = 0 then ' só tem uma data else w_data1 = left(w_data,onde-1) w_data2 = mid(w_data,onde+1) endif Experimenta e conta para nós o resultado

Uma macro que faria isso seria mais ou menos assim. você marca a área que quer reajustar, aciona a macro e ela pede um percentual de reajuste. Ela pede para confirmar e manda ver. Que tal ? Sub reajuste() Dim faixa As Range Dim wreajuste As Double Dim reajuste As String Set faixa = Selection reajuste = Replace(InputBox("Informe o percentual de reajuste", "Reajustando"), ",", ".") wreajuste = Val(reajuste) / 100 If MsgBox("Confirma reajuste de " & reajuste & "% ?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then For Each celula In faixa celula.Value = celula.Value * (1 + wreajuste) Next Else w = MsgBox("Reajuste cancelado", vbOKOnly, "Cancelado") End If End Sub Se você associar essa macro a um botão fica bem legal. você também pode obter o valor do reajuste a partir de uma célula da própria planilha. Nesse caso é só mudar o código que wreajust = Range("A1").value por exemplo