¿Cómo evitar celdas en blanco o con datos faltantes en Excel?
Si está creando una tabla en el rango A1:B10 de una hoja de cálculo y desea asegurarse de que no queden celdas en blanco en este rango, puede implementar una solución que muestre automáticamente un aviso si se detecta una entrada en blanco durante la edición. Siga esta guía paso a paso para evitar entradas en blanco o faltantes en el rango de la tabla especificado.
Evite entradas en blanco o faltantes en celdas mediante código VBA
Evite entradas en blanco o faltantes en celdas mediante código VBA
El rango A1:B10 está designado para su tabla, con A1 y B1 como cabeceras, tal como se muestra en la siguiente captura de pantalla. Siga los pasos indicados para evitar entradas en blanco o faltantes dentro del rango A2:B10 al rellenar la tabla.
1. En la hoja de cálculo en la que desea evitar entradas en blanco en un rango determinado, haga clic con el botón derecho en la pestaña de la hoja y, a continuación, haga clic en Ver código en el menú contextual.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA en la ventana de código. Consulte la captura de pantalla:
Código VBA: Evitar 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
Nota: En el código VBA, A2:B10 es el rango de celdas en el que no desea dejar ninguna celda vacía. Adáptelo según sus necesidades.
A partir de ahora, si omite una celda en blanco y rellena la siguiente celda del rango limitado, aparecerá un cuadro de diálogo de Kutools para Excel como se muestra a continuación.
Artículos relacionados:
- ¿Cómo evitar que se introduzcan datos en celdas específicas de una hoja de cálculo en Excel?
- ¿Cómo evitar seleccionar varias hojas de cálculo en Excel?
- ¿Cómo evitar que se elimine una hoja de cálculo específica en Excel?
- ¿Cómo evitar que se eliminen los contenidos de celdas específicas en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos