Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » colorear x nº de celdas mayores según el nº que se escriba en otra celda

Excel - colorear x nº de celdas mayores según el nº que se escriba en otra celda

Volver
Nuevo Tema
Filtrado por el usuario: lug
<<>>
Filtrado por el usuario 'lug' (Eliminar fitro)
 
Vista:
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

colorear x nº de celdas mayores según el nº que se escriba en otra celda

Publicado por celia (437 intervenciones) el 17/01/2022 12:52:23
No sé si se puede hacer que un condicional cambie con el nº de otra celda secundaria.
El condicional marca solo los 2 mayores, pero quería poder cambiar ese nº escribiendo otros números en I4, por ejemplo el 4 y que pinte las 4 mayores.
O alguna otra manera de hacer esto que explico en la captura y en la hoja de ejemplo.


colorear
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

colorear x nº de celdas mayores según el nº que se escriba en otra celda

Publicado por Antoni Masana (2540 intervenciones) el 17/01/2022 14:47:11
Necesitas una macro y es esta:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$I$4" Then
        Range("B3:G3,B5:G5,B7:G7").Select
        Range("B3").Activate
        Cells.FormatConditions.Delete
 
        Selection.FormatConditions.AddTop10
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 
        With Selection.FormatConditions(1)
            .TopBottom = xlTop10Top
            .Rank = Target.Text
            .Percent = False
        End With
 
        With Selection.FormatConditions(1).Font
            .Bold = True
            .Italic = False
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
 
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
 
        Selection.FormatConditions(1).StopIfTrue = False
 
        Range("B3:G3,B5:G5,B7:G7").Select
        Range("B3").Activate
 
        Selection.FormatConditions.AddTop10
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 
        With Selection.FormatConditions(1)
            .TopBottom = xlTop10Bottom
            .Rank = Target.Text
            .Percent = False
        End With
 
        With Selection.FormatConditions(1).Font
            .Bold = True
            .Italic = False
            .Color = -16776961
            .TintAndShade = 0
        End With
 
        With Selection.FormatConditions(1).Interior
            .PatternColor = 255
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
 
        Selection.FormatConditions(1).StopIfTrue = False
        Range("I4").Select
    End If
End Sub

Adjunto libro con macro

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

colorear x nº de celdas mayores según el nº que se escriba en otra celda

Publicado por celia (437 intervenciones) el 17/01/2022 15:52:00
Perfecta Antoni.
Otro millón de gracias.

Buen día.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar