Como evitar entradas em branco ou ausentes nas células do Excel?
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:
- Como evitar a entrada de dados em células específicas de uma planilha do Excel?
- Como evitar a seleção de várias planilhas no Excel?
- Como evitar que uma determinada planilha seja excluída do Excel?
- Como evitar que conteúdos específicos de células sejam excluídos do Excel?
Melhores ferramentas de produtividade de escritório
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!