Erro Selection.Delete Shift:=xlUp

2024 - VBA & Macros

Post Recente por JNEXCEL 7 anos atrás

4 Posts

3 Usuários

0 Reactions

2,867 Visualizações

RSS

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

na minha planilha existe um botão para limpar dados

botão funciona bem, porém só funciona quando o usuário clica um vez (se clicar duas vez seguidas ele da um erro) mensagem do erro: O método Delete da classe Range falhou.

os dados da planilha devem ser excluídos quando o usuáiro clicar no botão menos os cabeçalhos de cada coluna da tabela.

Alguém poderia me ajudar a entender o erro e propor uma solução?

Muito obrigado a todos.

Postado : 12/01/2018 2:35 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Private Sub CommandButton1_Click()
  On Error Resume Next
    Rows("7:7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("B6").Select
End Sub

Postado : 12/01/2018 2:47 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

O erro ocorre na segunda tentativa, devido à tabela ter apenas a linha de input, e essa linha e "proibido" excluir
Experimente algo =/- assim:

Private Sub CommandButton1_Click()
If Range("Tabela1").Rows.Count > 1 Then
    Rows("7:7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("B6").Select
Else
    MsgBox "Sem linhas para apagar"
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/01/2018 5:11 pm