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