¿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

Nota:: 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?