Control de celdas vacías con excepciones

[aaquino]

Muy buenos días, tardes, noches compañeros.

Disculpen que los venga a molestar, pero estoy realizando un proyecto que es sencillo, pero de alguna manera se me complicó, jejeje.

La cuestión está, en que necesito validar un rango de celdas, y que estas no se encuentren vacías (en el archivo adjunto sería de la celda B6 a la B17). El problema está en que en medio de dicho rango de celdas, hay 3 que son "opcionales" o hay una "excepción", es decir que se pueden o no llenar, pero no logro correr una macro para que valide que las celdas estén vacías, pero que omita estas 3 celdas que son opcionales (en el archivo adjunto van marcadas en color amarillo).

Actualmente tengo esta macro que me hace la validación, y lo hace bien, pero no logro hacer que haga una excepción.

If cbx_Valor.ListIndex = 0 Then
        max = 23
    Else
        max = 17
    End If
    
    For i = 6 To max
        If Hoja1.Range("B" & i).Value = "" Then
            valor = Hoja1.Range("B" & i).AddressLocal
            Mensaje = Mensaje & vbNewLine & valor
        End If
    Next i
        
    If Not Mensaje = "" Then
        MsgBox "No se puede continuar. Las siguientes celdas están vacías: " & vbNewLine & _
        Mensaje, vbInformation, "InterAction"
        Exit Sub
    Else
	'.... continúa todo el código que se debe ejecutar

Espero puedan echarme una mano con esto.

Quedo atento a su pronta respuesta.

InterAction - Ingreso de oportunidades.xlsm

[bigpetroman]

@aaquino creo que con esto sería suficiente

If Hoja1.Range("B" & i).Value = "" And (i < 13 Or i > 15) Then

cuando evalue las lineas 13, 14 y 15 pues NO las considera, tengan o no datos.

 

suerte

[aaquino]

@bigpetroman muchísimas gracias, ya con eso se solucionó.... Ves que algo tan sencillo a mí se me complica a veces.

Tema solucionado.