Erro Selection.Delete Shift:=xlUp  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Erro Selection.Delete Shift:=xlUp  [Resolvido]

Mensagempor JNEXCEL » Sex Jan 12, 2018 4:35 pm

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.
Você não está autorizado a ver ou baixar esse anexo.
JNEXCEL
Membro
Membro
 
Mensagens: 274
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 205 times
Have thanks: 4 times

{ SO_SELECT }

Re: Erro Selection.Delete Shift:=xlUp

Mensagempor klarc28 » Sex Jan 12, 2018 4:47 pm

Código: Selecionar todos
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
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
JNEXCEL (Seg Jan 15, 2018 6:54 am)
klarc28
Membro
Membro
 
Mensagens: 970
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 22 times
Have thanks: 405 times

Re: Erro Selection.Delete Shift:=xlUp

Mensagempor Reinaldo » Sex Jan 12, 2018 7:11 pm

O erro ocorre na segunda tentativa, devido à tabela ter apenas a linha de input, e essa linha e "proibido" excluir
Experimente algo =/- assim:
Código: Selecionar todos
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
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author Reinaldo thanked:
JNEXCEL (Seg Jan 15, 2018 6:54 am)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4240
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 184 times
Have thanks: 1940 times

Re: Erro Selection.Delete Shift:=xlUp

Mensagempor JNEXCEL » Seg Jan 15, 2018 10:46 am

Obrigado pela ajuda de vocês.

muito obrigado.
JNEXCEL
Membro
Membro
 
Mensagens: 274
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 205 times
Have thanks: 4 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante