Este fórum está sendo desativado

[MarceloAdriano]

Minhas considerações a todos do fórum
Gostaria se possível de incrementar, na minha planilha, a inserção e exclusão da última linha na tabela demonstrativa em anexo. Acrescento ainda que, na exclusão da última linha em questão, apresentasse ao usuário a informação através de uma Msgbox “Deseja realmente efetivar a exclusão dessa linha? ” E com as opções continuar e cancelar a operação.
Obs: Esta inserção e exclusão será um procedimento da Plan (Receita) e também na Plan (Despesa).

Grato,
Marcelo Adriano

[alexandrevba]

Boa tarde!!

Veja se ajuda.

Código: Selecionar todos

Sub AleVBA_2616()
Dim oLst As ListObject
Dim resultado As VbMsgBoxResult

Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:="SuaSenha"
     resultado = MsgBox("Tem certeza que deseja prosseguir com esta ação?", vbYesNo, "Deletar linha")
     If resultado = vbYes Then
          If ActiveSheet.ListObjects.Count > 0 Then
            For Each oLst In ActiveSheet.ListObjects
                If oLst.ListRows.Count > 0 Then
                    oLst.ListRows(oLst.ListRows.Count).Delete
                End If
            Next oLst
          End If
     Else
          MsgBox "Ação cancelada"
          Exit Sub
     End If
'ActiveSheet.Protect Password:="SuaSenha"
End Sub

Att