Notifications
Clear all
2024 - VBA & Macros
4
Posts
3
Usuários
0
Reactions
2,960
Visualizações
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
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
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
Topic starter
Obrigado pela ajuda de vocês.
muito obrigado.
Postado : 15/01/2018 8:46 am