Anexa a Planilha compactada,
mais se voce ja a macro e so precisa que seja automatico então chame a macro na planilha q voce quer que altere

Private Sub Worksheet_Change(ByVal Target As Range)
   Call Coloque_Sua_Macro_Aqui
End Sub

Toda vez que vc atualizar alguma coisa na planilha ela vai atualizar

se deu certo, da um Agradecimento
e marque como resolvido

*Qualquer coisa anexe a planilha compactada aqui

Eu retirei a macro da planilha. Anexo esta ela.

Detalhe no macro so consegui fazer a questao de inserir a linha e nao do apagar. Por isso retirei a macro da planilha!!!

Crie um módulo no seu arquivo e cole o código abaixo:

Utilize um atalho do teclado para ativar a macro.

Sub ExcluirCadastro()
    Dim L As Integer
    Dim Msg As String
    
    L = ActiveCell.Row
    ActiveSheet.Rows(L & ":" & L).Select
    Msg = "Deseja excluir a linha atual?" & vbCrLf & "Placa: " & Worksheets("DADOS").Range("I" & L)
    
    If MsgBox(Msg, vbQuestion + vbYesNo + vbDefaultButton2, "Exclusão de cadastro") = vbYes Then
        Worksheets("DADOS").Rows(L & ":" & L).Delete Shift:=xlUp
        Worksheets("COBRANÇA").Rows(L & ":" & L).Delete Shift:=xlUp
    End If
End Sub

É possivel fazer isso sem utilização de atalho? Outra duvida isso nao esta funcionando quando eu adiciono linhas na tabela dados! Ele nao esta adicionando uma linha na cobrança!

Esse código exclui a linha selecionada nas duas abas...

o código abaixo, serve para excluir a linha atual (ExcluirLinha) ou inserir uma nova linha (AcrescentarLinha).

Não conheço nenhuma função pré pronta do vba para interceptar a inserção ou exclusão de linhas.... talvez alguém no fórum conheça ou tenha desevolvido.

Sub ExcluirLinha()
    Dim L As Integer
    Dim Msg As String
    
    L = ActiveCell.Row
    ActiveSheet.Rows(L & ":" & L).Select
    Msg = "Deseja excluir a linha atual?" & vbCrLf & "Placa: " & Worksheets("DADOS").Range("I" & L)
    
    If MsgBox(Msg, vbQuestion + vbYesNo + vbDefaultButton2, "Exclusão de cadastro") = vbYes Then
        Worksheets("DADOS").Rows(L & ":" & L).Delete Shift:=xlUp
        Worksheets("COBRANÇA-").Rows(L & ":" & L).Delete Shift:=xlUp
    End If
End Sub

Sub AcrescentarLinha()
    Dim UL As Integer
    
    UL = Worksheets("DADOS").Range("I" & Rows.Count).End(xlUp).Row
    Worksheets("DADOS").Rows(UL & ":" & UL).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Worksheets("COBRANÇA-").Rows(UL & ":" & UL).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Então e isso que eu preciso so que de forma automática ou quando eu for por exemplo no comando inserir linha ou excluir linha isso ocorra, sera que alguém sabe fazer isso?

Alguém com alguma solução?

Boa tarde!!

Cara porque não segue as sugestões acima?

Então e isso que eu preciso so que de forma automática

Private Sub Worksheet_Change(ByVal Target As Range)
   Call ExcluirCadastro
End Sub

Att

nao funcionou dessa forma! ou nao estou sabendo configurar.