Colocar color a celdas en excel
Para elsa la idea es resaltar el numero de 4 cifras en todos los cuadros
En primer lugar debes evaluar si la celda A1 queda vacía ... y en ese caso no se ejecutará todo el proceso.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
If Target.Text = "" Then Exit Sub
If Not Intersect(Target, Range("A1")) Is Nothing Then
'a continuación el resto de las instruccionesy la macro del módulo quedaría así:
Sub BuscarÁrea(n As Integer, Número As Integer, x1 As Long, x2 As Long) 'ajustada y explicada x Elsamatilde Application.ScreenUpdating = False y = (n - 1) * 2 + 5 'empieza en col E aTablas: Range(Cells(x1, y), Cells(x2, y)).Interior.ColorIndex = xlNone For x = x1 To x2 If Cells(x, y) = Número Then Cells(x, y).Interior.Color = vbYellow 'pasa a la tbla siguiente GoTo siguenTablas End If Next siguenTablas: 'sigue con otras tablas separadas a 9 celdas de cada dígito y = y + 9 If y > 57 Then Exit Sub 'últ col BE GoTo aTablas End Sub
En tu macro de la hoja se evalúa B1... la cambié a A1 porque en libro de muestra allí estaba el nro ingresado.
Si no se ejecuta, debes volver a dejar como B1.
Sdos!
1 respuesta más de otro experto
Gracias pero necesito un código para mi trabajo
Perdon no habia leido bien tu pregunta. En formato condicional seleccionas resaltar si: y en el cuadro de la condicion que requieres agregas la formula (lenght(A1>4)).
Si al cargar la formula te aparece el signo de pesos en el numero de la casilla, borraselo para que puedas arrastrar este formato a todas las casillas.
Ej: $A$1 lo cambias a: A1