Saber si dos o más celdas continuas están vacías en una misma columna.

Buen día!

Tengo una hoja con más de 100 mil registros y la gran mayoría trabajo con grandes datos y necesito saber cuando dos o más celdas consecutivas están vacías. Más o menos los datos serían así:

CELDA VALOR

B2 10
B3 15
B4 35
B5
B6
B7 45

B8

B9

B10

B11 60

O sea que en la celda vacía me indique con un color, como en B5 y B6, y en B8,B9 y B10

Espero darme a entender y sobre todo, agredezco tu ayudo de antemano. Saludos

Ángel Plascencia.

2 respuestas

Respuesta
1

Supongo que quieres poder marcar de alguna forma cuando haya 2 o más celdas vacías para borrarlas o algo así.

Te incluyo una fórmula que identifica cuando las filas están vacías siempre y cuando haya 2 o más consecutivas. Escribe esta fórmula en la celda C2 y la copias hasta el final de tus datos.

Con esto podrás filtrar por las vacías.

=SI(B2="";SI(B1="";"vacía";SI(B3="";"vacía";""));"")

Hacer que se coloreen supone programación en visual basic y esto es bastante más sencillo.

Pruébalo y me dices.

Respuesta
1

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: dos_blancos_o_mas
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Hola! ammm creo que sólo falto que me pasaras el script de la macro :)

Gracias por tu tiempo y por la ayuda.

Saludos cordiales.

Perdona, algo le pasó a este foro. Te anexo la macro

Sub dos_blancos_o_mas()
'por.dam
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
    If Cells(i, "B") = "" And Cells(i + 1, "B") = "" Then
        ini = i
        For j = i + 1 To Range("B" & Rows.Count).End(xlUp).Row
            If Cells(j, "B") = "" Then
                fin = j
            Else
                'cambia el número por el color que desees: 3 rojo, 4 verde, 5 azul, 6 amarillo
                Range(Cells(ini, "B"), Cells(fin, "B")).Interior.ColorIndex = 6
                i = j
                Exit For
            End If
        Next
    End If
Next
End Sub

Saludos. Dam
Si es lo que necesitas.

Muchísimas gracias Dam.

Es preciso lo que necesitaba. Excelente día.

Yo no tengo mucha experiencia en macros, pero espero llegar a tener un excelente nivel como el tuyo. Gracias nuevamente.

Saludos cordiales.

Ángel Plascencia.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas