none
Reformular código para excluir as linhas RRS feed

  • Pergunta

  • Ao em vez de limpar os dados, excluir a linhas diretamente.

    Private Sub CommandButton1_Click()
    pergunta = MsgBox("Deseja realmente limpar todos os dados da Planilha?", vbYesNo)
    
    If pergunta = vbYes Then
    
    Sheets("Plan1").Select
    Celulas = Array("A2:F5000")
    
    For i = 0 To UBound(Celulas)
    
        Range(Celulas(i)).ClearContents
    Next i
    
    End If
    End Sub

    sexta-feira, 9 de fevereiro de 2018 15:58

Todas as Respostas

  • Olá Juliano,

    Private Sub CommandButton1_Click()
    pergunta = MsgBox("Deseja realmente limpar todos os dados da Planilha?", vbYesNo)

         If pergunta = vbYes Then
              Sheets("Plan1").Select
              range("2:5000").Delete
         End If
    End Sub

    Espero que ajude.

    Márcio Diniz

    sábado, 10 de fevereiro de 2018 01:43