Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir determinada...
 
Notifications
Clear all

Inserir determinada informação em determinada coluna.

 
2024 - VBA & Macros
Post Recente por Fabiosp 11 anos atrás
3 Posts
2 Usuários
0 Reactions
697 Visualizações
RSS
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Olá prezados senhores.
Bom dia a todos.
Tenho uma dúvida.
Tenho uma planilha onde na célula da coluna K e inserido Sim ou Não e na célula da coluna L e inserido Necessário caso na célula da coluna K for Não e se caso a coluna K for Sim ou em branco na célula da coluna L fica em branco.
No momento tenho uma fórmula na coluna L que faz isso porém toda vez que outro usuário utiliza a planilha apagam a fórmula.
Tentei proteger, porém com a proteção esta ativa as outras macros não funciona.
Teria alguma forma de fazer esta tarefa via macro?
Tipo quando inserir NÃO em qualquer célula da coluna K sair NECESSÁRIO em qualquer célula da coluna L e se qualquer célula da coluna K for SIM ou em branco a célula da coluna L ficar em branco.
Essa e a fórmula que estou utilizando agora.
SE(K2="NAO","NECESSARIO",SE(K2="","",SE(K2<>"NAO","")))

Espero que algum colega tenha a solução para meu problema.

Desde já agradeço.

Abraços.

 
Postado : 20/11/2013 7:16 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Acredito que mesmo protegida surtiria efeito, se soubéssemos quais as outras Macros a que se refere, mas se quer uma dica em VBA, coloque no evento change da aba:

Ajuste o Range K2:K10 conforme sua planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
        
        Dim sValor
        
        If Not Intersect(Target, [K2:K10]) Is Nothing Then
            sValor = Target.Value
            
            If sValor = "NÃO" Then
                Target.Offset(0, 1).Value = "NECESSARIO"
            Else
                Target.Offset(0, 1).Value = ""
            End If

        End If
        
    End Sub

[]s

 
Postado : 20/11/2013 8:22 am
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Prezado colega Mauro Coutinho.
Isso mesmo que eu precisava.
Serviu como uma luva.

Muito obrigado pela ajuda caro colega.

 
Postado : 20/11/2013 8:47 am
Forum Jump:
  Tópico Anterior
Próximo Tópico