Ir para o conteúdo principal
 

Como evitar entradas em branco ou ausentes nas células do Excel?

Autor: Siluvia Última modificação: 2020-12-24

Supondo que você esteja criando uma tabela no intervalo A1: B10 de uma planilha e precise evitar que células em branco apareçam nesse intervalo da tabela, como fazer isso? Este artigo apresenta um método para abrir uma caixa de prompt pop-up automaticamente se uma entrada em branco aparecer em um determinado intervalo de tabela durante a edição. Siga o método passo a passo no artigo.

Evite entradas em branco ou ausentes nas células usando o código VBA


Evite entradas em branco ou ausentes nas células usando o código VBA

A1: B10 é o intervalo onde você precisa criar a tabela dentro, e A1, B1 contém os cabeçalhos da tabela conforme a captura de tela abaixo. Faça o seguinte para evitar que entradas em branco ou ausentes apareçam no intervalo A2: B10 durante a criação da tabela.

1. Na planilha que você não permitirá entradas em branco em um determinado intervalo, clique com o botão direito na guia da planilha e clique em Ver código no menu do botão direito.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo na janela Código. Veja a imagem:

Código VBA: impede entradas em branco ou ausentes em um intervalo de células

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

Note: No código VBA, A2: B10 é o intervalo de células que você não deseja deixar nenhuma célula vazia dentro. Altere o intervalo conforme necessário.

De agora em diante, quando você pular a célula em branco e preencher a próxima célula no intervalo especificado diretamente, você obterá um Kutools for Excel caixa de diálogo como a imagem abaixo mostrada.


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!