none
Erro em Worksheet_Change RRS feed

  • Pergunta

  • 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
    sexta-feira, 10 de novembro de 2017 18:17

Respostas

  • Favor explicar melhor

    Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    sexta-feira, 10 de novembro de 2017 19:04
  • Palavra escrita errada:

    Troque Adress por Address.


    Filipe Magno

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    sexta-feira, 10 de novembro de 2017 20:08
  • 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 diniabr2011@gmail.com

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    segunda-feira, 13 de novembro de 2017 13:28
  • Vai executar o código sempre que você selecionar uma célula diferente

    Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    segunda-feira, 13 de novembro de 2017 13:29

Todas as Respostas

  • Favor explicar melhor

    Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    sexta-feira, 10 de novembro de 2017 19:04
  • 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?
    sexta-feira, 10 de novembro de 2017 19:41
  • Palavra escrita errada:

    Troque Adress por Address.


    Filipe Magno

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    sexta-feira, 10 de novembro de 2017 20:08
  • 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

    segunda-feira, 13 de novembro de 2017 10:15
  • 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 diniabr2011@gmail.com

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    segunda-feira, 13 de novembro de 2017 13:28
  • Vai executar o código sempre que você selecionar uma célula diferente

    Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Mario Antonini terça-feira, 14 de novembro de 2017 09:37
    segunda-feira, 13 de novembro de 2017 13:29