Este fórum está sendo desativado

[Francisco1]

Prezados, boa tarde!

Estou elaborando uma planilha Fluxo de Caixa simples e estou com dúvidas de como formatar uma célula baseado na escolha definida em outra célula. Se vai ser valor positivo ou negativo.

Segue a planilha.

Obrigado.

[osvaldomp]

Selecione E5:
1. menu Página Inicial / Formatação Condicional / Nova Regra / Usar uma Fórmula / na caixa de fórmula cole esta fórmula ~~~> =B$5="Débito"
2. Formatar / Personalizado / na caixa Tipo: cole este formato ~~~> -###.###,00 / OK 3x

obs. se B5="Débito", um valor positivo inserido em E5 será mostrado como negativo porém o seu valor real continuará sendo positivo; se você precisa que ele seja negativo então retorne pois precisará de macro.

[Francisco1]

Osvaldo, obrigado, só que na hora de efetuar a operação, isto é o saldo é positivo, mesmo estando aparecendo como negativo.

Precisaria que ele entendesse como sendo saldo devedor para poder realizar a operação.

[osvaldomp]

Olá, Francisco.
Talvez seja possível utilizar a Formatação que eu sugeri antes e incrementar a sua fórmula para que seja considerado o valor negativo. Nesse caso, se houver interesse, será necessário que você coloque a fórmula aqui no fórum.

Segue uma opção via macro, sem utilizar a Formatação Condicional.
Instale uma cópia do código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 On Error GoTo fnlz
 Application.EnableEvents = False
 If Target.Column = 2 Then
  If Target.Value = "" Then
   Cells(Target.Row, 5) = ""
  ElseIf Target.Value = "Débito" Then
   Cells(Target.Row, 5) = (Abs(Cells(Target.Row, 5))) * -1
  Else: Cells(Target.Row, 5) = Abs(Cells(Target.Row, 5))
  End If
 End If
 If Target.Column = 5 And Target.Value <> "" Then
  If Cells(Target.Row, 2) = "Débito" Then
   Target.Value = (Abs(Target.Value)) * -1
  Else: Target.Value = Abs(Target.Value)
  End If
 End If
fnlz:
 Application.EnableEvents = True
End Sub