Erro em Worksheet_Change

Question

Gostaria de acionar uma macro que adiciona uma linha abaixo da linha "B5" Caso o texto da linha B5 seja "guias", e, caso não seja, ignore

Answer 1

Favor explicar melhor

---

Anderson Diniz [e-mail]

Answer 2

Já mudou totalmente o que eu gostaria de fazer, porém meu código continua dando erro

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Adress = "$B$5" Then
    ' Checa se o que está escrito na celula é "Guias"
        If Target.Value = "Guias" Then
        ' Chama o Macro que eu gravei que move o item abaixo 1 linha para baixo e adiciona "Quantidade de Guias:"
            If IsEmpty("$A$7") Then Call Add_QuantidadeDeGuias
            ' Caso Contrário cancela a operação
            Else: GoTo Fim:
        End If
    End If

Na linha "If target.Adress="$B$5" ele dá erro, por que?

Answer 3

Palavra escrita errada:

Troque Adress por Address.

---

Filipe Magno

Answer 4

Era isso mesmo, porém continuo sem conseguir ativar o macro...

Tenho uma lista de seleção na célula "B5", gostaria que toda vez que fosse selecionado "Guias" em "B5", ativasse meu macro "Add_QuantidadeDeGuias" (Porém somente se "A7" estiver vazio), e caso fosse selecionado "Catenárias", fosse ativado meu macro "Delete_QuantidadeDeGuias", porém do jeito que estou fazendo não está dando certo. O que tem de errado? 

Sub Add_QuantidadeDeGuias()

' Add_QuantidadeDeGuias Macro

    Range("A6:B6").Select
    Selection.Cut
    
    Range("A7:B7").Select
    ActiveSheet.Paste
    
    Range("A5:B5").Select
    Selection.Copy
    Range("A6:B6").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "Quantidade de Guias:"
    Range("A7").Select
    
End Sub


Sub Delete_QuantidadeDeGuias()

' Delete_QuantidadeDeGuias Macro
    
    Range("A7:B7").Select
    Selection.Cut
    
    Range("A6:B6").Select
    ActiveSheet.Paste
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
      
        If Target.Address = "$B$5" Then
            If Target.Value = "Guias" Then
              If IsEmpty("$A$7") Then
                Call Add_QuantidadeDeGuias
              Else: GoTo Fim:
        End If
    End If
        
    

Fim:
End Sub

Answer 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
      
       ' If Target.Address = "$B$5" Then
            If Range("B5").Value = "Guias" Then
              If IsEmpty(Range("A7")) Then
                Call Add_QuantidadeDeGuias
              'Else: GoTo Fim:
        End If
    End If
        
    'End If
    
    
    
      
       ' If Target.Address = "$B$5" Then
            If Range("B5").Value = "Catenárias" Then
              If IsEmpty(Range("A7")) Then
                Call Delete_QuantidadeDeGuias
              'Else: GoTo Fim:
        End If
    End If
        
    'End If
    

Fim:
End Sub

---

Anderson Diniz [e-mail]

Answer 6

Vai executar o código sempre que você selecionar uma célula diferente

---

Anderson Diniz [e-mail]