Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Milton Cordova

Suma negritas

Recommended Posts

Saludos deseo realizar una suma de valores de un rango, investigando he llegado mediante una macro pèro me da error

he subido un archivo "sumar segun negritas"

Function Sumar_bold(Celdacolor As Range, Rangosuma As Range) As Double

Dim celda As Range

For Each celda In Rangosuma

If celda.Font.BoldIndex = Celdacolor.Cells(1, 1).Bold.Index Then Sumar_bold = Sumar_bold + celda

Next celda

Set celda = Nothing

End Function

sumar segun negritas.xls

Share this post


Link to post
Share on other sites

Hola.

Prueba asi:

Function Sumar_bold(Celdacolor As Range, Rangosuma As Range) As Double
  Dim celda As Range
  For Each celda In Rangosuma
  If celda.Font.Bold = True Then Sumar_bold = Sumar_bold + celda.Value
  Next celda
  Set celda = Nothing
End Function

Saludos.

Share this post


Link to post
Share on other sites

Unfortunately, the Color and ColorIndex properties of a Range don't return the color of a cell that is displayed if Conditional formatting is applied to the cell. Nor does it allow you to determine whether a conditional format is currently in effect for a cell.

Puede leer sobre ese tema en:

Conditional Formatting Colors

Share this post


Link to post
Share on other sites

[uSER=3]@Toldeman[/uSER] y [uSER=73198]@Milton Cordova[/uSER] , Hola.

Milton principalmente el problema propuesto por Toldeman radica en que los contenidos como los tienes condicionados en tu hoja se aprecian en Negrita, pero realmente no lo están y es por ello que no los suma; te darás cuenta cuando seleccionas algunas de esas celdas el botón de "Negrilla" de la cinta de opciones de inicio no se activa o desactiva.

Alternativa de solución:

En un módulo deberás pegar la siguiente macro:

Sub Sumatoria()
'Por Jonetoja
For Each celda In Selection
If celda.Value >= 20 Then
lista = lista & "," & celda.Address(False, False)
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
Range(lista).Select
Set Rng = Application.InputBox("En que rango quieres aplicar el resultado??", Type:=8)
Rng.Value = WorksheetFunction.Sum(Selection)
Set Rng = Nothing
End Sub
[/CODE]

Su funcionamiento es el siguiente:

  1. Deberás manualmente seleccionar el rango de celdas de donde quieres obtener la sumatoria correspondiente.
  2. Ejecutas la correspondiente macro llamada "Sumatoria"
  3. Te aparecerá un Inputbox que te solicitará que selecciones la celda a donde deseas se te presente el resultado de la sumatoria.
  4. Le das click en Aceptar y en la celda seleccionada se coloca el resultado de todos los valores iguales o superiores a "20"

Espero que ésta alternativa sea de tu utilidad; si es así, por favor manifiesta claramente que el tema se encuentra solucionado; caso contrario aclara para realizar los ajustes necesarios.

Saludos a los dos (Milton y Toldeman), desde Colombia.

Share this post


Link to post
Share on other sites
... no encuentro la forma de como aplicar esta función... que sume un rango en funcion de un formato de negritas determinado por un f. condicional...

las funciones personalizadas para contar/sumar "según formato condicional" son difíciles de desarrollar por un sin-numero de eventualidades (idioma, etc.) por lo que es mejor funciones integradas (sumar.si, contar.si, ...) usando como criterio (si es posible) la misma condición por la que se aplica el formato condicional (ver adjunto en devolución) ;)

saludos,

hector.

suma FC (ayudaExcel).xls

Share this post


Link to post
Share on other sites
... voy a esperar un poco mas para ver si alguien tiene alguna solucion para sumar valores con formato condicional negritas...

aun después de las observaciones y propuestas que has recibido ???

ok, si el caso es que sigues esperando alguna UDF para suma/cuenta según formatos condicionales... en el adjunto (secuencia de tu original) van algunas reglas de formato condicional que aplican "negritas" según condiciones variadas (algunas por formula y otras por valor directo)...

notar que al cambiar el numero en la celda [H3] se cambian las celdas en "negrita" del rango [J3:J6], por lo que el reto es para quien quiera buscar (y encontrar) la "forma" de analizar cada condición de formato a través de una UDF (?)

saludos,

hector.

suma FC (ayudaExcel).xls

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png