¿Cómo evitar entradas en blanco o faltantes en las celdas en Excel?
Suponiendo que está creando una tabla en el rango A1: B10 de una hoja de trabajo y necesita evitar que aparezcan celdas en blanco en este rango de tablas, ¿cómo lograrlo? Este artículo presenta un método para abrir automáticamente un cuadro de aviso si aparece una entrada en blanco en un cierto rango de la tabla durante la edición. Siga el método paso a paso del artículo.
Evite entradas en blanco o faltantes en las celdas mediante el uso del código VBA
Evite entradas en blanco o faltantes en las celdas mediante el uso del código VBA
A1: B10 es el rango en el que necesita crear una tabla en el interior, y A1, B1 contienen los encabezados de la tabla como se muestra a continuación. Haga lo siguiente para evitar que aparezcan entradas en blanco o faltantes en el rango A2: B10 al crear la tabla.
1. En la hoja de trabajo que no permitirá entradas en blanco en cierto rango, haga clic derecho en la pestaña de la hoja y luego haga clic en Ver código desde el menú contextual.
2. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código VBA en la ventana Código. Ver captura de pantalla:
Código de VBA: evite entradas en blanco o faltantes en un rango de celdas
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: En el código de VBA, A2: B10 es el rango de celdas en el que no desea dejar ninguna celda vacía dentro. Cambie el rango según lo necesite.
A partir de ahora, cuando omita la celda en blanco y complete la siguiente celda en el rango especificado directamente, obtendrá un Kutools for Excel cuadro de diálogo como se muestra a continuación.
Artículos relacionados:
- ¿Cómo evitar la entrada de datos en celdas específicas de una hoja de cálculo en Excel?
- ¿Cómo evitar la selección de varias hojas de trabajo en Excel?
- ¿Cómo evitar que se elimine una determinada hoja de trabajo en Excel?
- ¿Cómo evitar que se eliminen contenidos de celda específicos en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!