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

715 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/11/2013 8:22 am