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 de antares18
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
