Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Especificar letras ...
 
Notifications
Clear all

Especificar letras para valores positivos e negativos

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
1,096 Visualizações
RSS
 vaggnersf
(@vaggnersf)
Posts: 34
Trusted Member
Topic starter
 

Pessoal, alguém pode me ajudar em um comando em VBA.

Na célula [ A ] tem vários valores. Valores positivos e negativos.

Quero que quando ele leia a [ coluna A ] e identificar todos os valores positivos coloque a letra [ C ] na frente na [ coluna B ]

Quando identificar o valores negativos na [ coluna A ] coloque a letra [ D ] na frente na coluna B.

 
Postado : 15/08/2014 12:32 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Cara, pra registrar Débito e Crédito, porque vc não aplica formatação da célula?

vai em personalizado e coloca isso:
0" C";0" D"

 
Postado : 15/08/2014 12:57 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Insira em modo de planilha

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A50")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value > 0 Then Target.Offset(, 1).Value = "C"
If Target.Value < 0 Then Target.Offset(, 1).Value = "D"
End Sub
 
Postado : 15/08/2014 2:40 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico