Excluir celula Excel

Question

Queria saber como fa&ccedil;o para que antes de apagar uma linha apare&ccedil;a uma janela que pergunte se quer apagar a linha msm .

Meu comando
Public Sub Worksheet_Change(ByVal Target As Range)
[COLOR=#ff4d4d]If Target.Count > 1 Then Exit Sub
If Target.Value = cumpriu Then Rows(Target.Row).Delete[/COLOR]
    On Error Resume Next
    If Not Intersect(Target, Range(F:F)) Is Nothing Then
        Range(E1).Sort Key1:=Range(F2), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
          End If
End Sub

Comando em questao . Estou querendo isso , pois posso apagar sem querer uma linha

Answer

Tente assim:

Sub Excluir()

Dim Resposta As String

Resposta = MsgBox(Confirma a Exclus&atilde;o?, vbYesNo, Excluindo Linha....)

If vbNo Then Exit Sub

'Aqui vc cololca o Seu Codigo para excluir a linha

End Sub

Answer

[QUOTE=Marcelo G Prudencio, post: 7860365, member: 985322]Tente assim:

Sub Excluir()

Dim Resposta As String

Resposta = MsgBox(Confirma a Exclus&atilde;o?, vbYesNo, Excluindo Linha....)

If vbNo Then Exit Sub

'Aqui vc cololca o Seu Codigo para excluir a linha

End Sub[/QUOTE]
Fiz o comando assim;

Public Sub Worksheet_Change(ByVal Target As Range)
Dim Resposta As String
Resposta = MsgBox(Confirma a Exclus&atilde;o?, vbYesNo, Excluindo Linha....)
If vbNo Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = cumpriu Then Rows(Target.Row).Delete

On Error Resume Next
    If Not Intersect(Target, Range(F:F)) Is Nothing Then
        Range(E1).Sort Key1:=Range(F2), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
          End If
End Sub

esta aparecendo a janela das op&ccedil;oes de sim ou nao , mas seu colocar sim nao apaga as linhas

Answer

Um pequeno erro meu

Altere essa linha

If Resposta = vbNo Then Exit Sub

Answer

vlw

Ferramentas

Mover Tópico