Anónimo
Fórmula SI según formato de celda
Hola!
Tengo un pequeño problema. Quiero crear una regla para poder contar las celdas de distintos colores, pero no sé como introducir en una fórmula condicional una regla lógica en la que se contemple el formato de celda referente al color de relleno.
¿Podéis ayudarme?
Gracias,
B.
Tengo un pequeño problema. Quiero crear una regla para poder contar las celdas de distintos colores, pero no sé como introducir en una fórmula condicional una regla lógica en la que se contemple el formato de celda referente al color de relleno.
¿Podéis ayudarme?
Gracias,
B.
{"Lat":41.4427263776721,"Lng":1.93359375}
1 respuesta
Respuesta de Elsa Matilde
1
Hola!
Gracias por tu respuesta Elsa, pero si que tengo un Excel 2007, te doy más detalles que mi hoja:
La idea es contar días de un calendario según varios criterios, y que, por ejemplo, si un día quiero hacer vacaciones, al seleccionar dicho día y ponerlo de un color concreto, por ejemplo, azul, haya un contador que sume uno a los días que ya hay acumulados.
¿Es posible hacer esto?
Saludos,
b.
Gracias por tu respuesta Elsa, pero si que tengo un Excel 2007, te doy más detalles que mi hoja:
La idea es contar días de un calendario según varios criterios, y que, por ejemplo, si un día quiero hacer vacaciones, al seleccionar dicho día y ponerlo de un color concreto, por ejemplo, azul, haya un contador que sume uno a los días que ya hay acumulados.
¿Es posible hacer esto?
Saludos,
b.
Te dejo 1 de mis funciones personalizadas (*)
Entrá al Editor, insertá un módulo y copiá la rutina
Volvé a la hoja y donde quieras el contador, colocá esta fórmula (ajustando tus ref)
=+ContarxColor(rango a evaluar;celda con color)
Ej: =+ContarxColor(C2:E20;C7)
Te devolverá la cant de celdas con el mismo color que C7
(*) En mi manual 400MacrosPlus encontrarás 1 cap con el desarrollo de otras 20 funciones personales.
Function ContarxColor(miRango As Range, miRangoCol As Range) As Long
Dim celda As Range, contador As Long, miColor As Integer
'se define el color a buscar como el color de la celda A1
miColor = miRangoCol.Cells(1, 1).Interior.ColorIndex
'se establece el contador en 0
contador = 0
'se comienza a recorrer las celdas del rango
For Each celda In miRango.Cells
'si el color coincide con el guardado en la variable ...
If celda.Interior.ColorIndex = miColor Then
'se incrementa en 1 el contador
contador = contador + 1
End If
'se repite el bucle (ver Notas)
Next celda
'se devuelve el valor del contador a la función
ContarxColor = contador
End Function
Entrá al Editor, insertá un módulo y copiá la rutina
Volvé a la hoja y donde quieras el contador, colocá esta fórmula (ajustando tus ref)
=+ContarxColor(rango a evaluar;celda con color)
Ej: =+ContarxColor(C2:E20;C7)
Te devolverá la cant de celdas con el mismo color que C7
(*) En mi manual 400MacrosPlus encontrarás 1 cap con el desarrollo de otras 20 funciones personales.
Function ContarxColor(miRango As Range, miRangoCol As Range) As Long
Dim celda As Range, contador As Long, miColor As Integer
'se define el color a buscar como el color de la celda A1
miColor = miRangoCol.Cells(1, 1).Interior.ColorIndex
'se establece el contador en 0
contador = 0
'se comienza a recorrer las celdas del rango
For Each celda In miRango.Cells
'si el color coincide con el guardado en la variable ...
If celda.Interior.ColorIndex = miColor Then
'se incrementa en 1 el contador
contador = contador + 1
End If
'se repite el bucle (ver Notas)
Next celda
'se devuelve el valor del contador a la función
ContarxColor = contador
End Function