Validar - Registrar una solicitud sin celdas vacías Excel Macros

Yo Tengo el siguiente código que ya lo valida, pero quiero agregar excepciones. Es decir, que el campo Ubigeo(Columna M) y Clase de Activo(Columna R) no los valide.

Sub ValidarVacios()Dim CeldaActa As StringDim CeldaDetalle As StringDim CeldaPxQ As String'ULTIMA FILA PESTAÑA ACTASheets("ACTA").Selectufa = Range("A1048576").End(xlUp).Rowuca = Range("A2").End(xlToRight).Column'ULTIMA FILA PESTAÑA DETALLESheets("DETALLE").Selectufd = Range("A1048576").End(xlUp).Rowucd = Range("A1").End(xlToRight).Column'ULTIMA FILA PESTAÑA PxQSheets("PxQ").Selectufp = Range("A1048576").End(xlUp).Rowucp = Range("A1").End(xlToRight).Column'VALIDANDO LOS REGISTROS SI ESTAN VACIOS PARA PESTAÑA ACTASheets("ACTA").SelectFor i = 3 To ufa    For j = 1 To uca        CeldaActa = Cells(i, j).Value            If CeldaActa = "" Then                Cells(i, j).Interior.ColorIndex = 3            Else                Cells(i, j).Interior.ColorIndex = 0            End If    NextNext'VALIDANDO LOS REGISTROS SI ESTAN VACIOS PARA PESTAÑA DETALLESheets("DETALLE").SelectFor i = 2 To ufd    For j = 2 To ucd        CeldaDetalle = Cells(i, j).Value            If CeldaDetalle = "" Then                Cells(i, j).Interior.ColorIndex = 3                Else                Cells(i, j).Interior.ColorIndex = 0            End If    NextNext'VALIDANDO LOS REGISTROS SI ESTAN VACIOS PARA PESTAÑA PxQSheets("PxQ").SelectFor i = 2 To ufp    For j = 1 To ucp        CeldaPxQ = Cells(i, j).Value            If CeldaPxQ = "" Then                Cells(i, j).Interior.ColorIndex = 3                Else                Cells(i, j).Interior.ColorIndex = 0            End If    NextNextEnd Sub

1 Respuesta

Respuesta
1

Ubigeo y clase de activo en que hoja están en acta, detalle o pxq.

Lo que quieres hacer es que si por ejemplo, si los datos se recorren desde la columna L hasta la Z, ¿quieres qué se salte las columnas M y R?

Así es. Porque mi código sirve para recorrer todo. Si encuenta algún vacío lo pinta de rojo. Ahora deseo tener excepciones. Quiero que la columna M y R no se validen quiero poner esas excepciones.

El nuevo código, si quieres más excepciones de columnas haré otra cosa.

El range("M1"). Column es un numero, el 13 y la columna R es la 18.

Si el uca u otros son 13 o 18 los salta

Sheets("ACTA").SelectFor i = 3 To ufa    For j = 1 To uca        If ((uca <> Range("M1").Column) And (uca <> Range("R1").Column)) Then            CeldaActa = Cells(i, j).Value            If CeldaActa = "" Then                Cells(i, j).Interior.ColorIndex = 3            Else                Cells(i, j).Interior.ColorIndex = 0            End If        End If    NextNext'VALIDANDO LOS REGISTROS SI ESTAN VACIOS PARA PESTAÑA DETALLESheets("DETALLE").SelectFor i = 2 To ufd    For j = 2 To ucd        If ((ucd <> Range("M1").Column) And (ucd <> Range("R1").Column)) Then            CeldaDetalle = Cells(i, j).Value            If CeldaDetalle = "" Then                Cells(i, j).Interior.ColorIndex = 3            Else                Cells(i, j).Interior.ColorIndex = 0            End If        End If    NextNext'VALIDANDO LOS REGISTROS SI ESTAN VACIOS PARA PESTAÑA PxQSheets("PxQ").SelectFor i = 2 To ufp    For j = 1 To ucp        If ((ucp <> Range("M1").Column) And (ucp <> Range("R1").Column)) Then            CeldaPxQ = Cells(i, j).Value            If CeldaPxQ = "" Then                Cells(i, j).Interior.ColorIndex = 3            Else                Cells(i, j).Interior.ColorIndex = 0            End If        End If    NextNext

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas