Vistazo rapido de las formulas

[verzulsan]

Hola

Podeis echar un vistazo rapido a las formulas que tiene una hoja con la siguiente funcion:

Sub CheckFormulas()

    Dim p As Range

    For Each p In ActiveSheet.UsedRange

        If p.HasFormula Then

            p.Interior.Color = RGB(125, 0, 0)

        End If

    Next

End Sub[/CODE]

La unica pega es que no tiene en cuenta el formato original de la hoja, por lo que se perderan los formatos de las celdas afectadas.

(El ejemplo está incompleto por que es un boceto para salir del paso y no estoy mejorando las chapuzas que hago por falta de tiempo); No obstante, para mejorarlo se podría hacer lo siguiente:

Antes de pintar la celda, guardar el color en la propiedad oculta de la celda. Luego una pequeña modificacion en la misma funcion podría revertir el proceso extrayendo el color original del campo oculto de la celda. (No recuerdo ya el nombre del atributo, lo puso Antoni por alguna parte de este foro)

Saludos!

[Antoni]

¡¡ Hola Santi, cuanto tiempo !! Te he echado mucho de menos.

Creo que te refieres a SmartTag, que si no recuerdo mal, permite añadir un identificador a una celda, pero es complicado de utilizar.

Podríamos guardar el color como comentario.

Saludos cordiales

[Gerson Pineda]

Hola verzulsan

Tambien se podria mostrar via comentarios

Public p As Range
Sub VerFormulas()
On Error Resume Next
For Each p In ActiveSheet.UsedRange
    If p.HasFormula Then
        Rem'p.Interior.Color = RGB(125, 0, 0)
        With p
            .AddComment
            .Comment.Visible = True
            .Comment.Text Text:="AyudaExcel" & Chr(10) & p.Formula
        End With
    End If
Next
End Sub
Sub OcultarFormulas()
On Error Resume Next
For Each p In ActiveSheet.UsedRange
    Rem'p.Comment.Visible = False
    p.Comment.Delete
Next
End Sub
[/PHP]

mjrofra si mal no recuerdo mostro un gran uso sobre un tema similar

Muchos afectos a ambos

Saludos desde Honduras

Vista rapida a formulas.zip

[verzulsan]

Hola Antoni! Yo también he echado de menos tus desvaríos () y la pagina ayuda Excel en general, pero me toca aguantarme hasta que tenga el titulo el año que viene. Si supiera racionalizar, entraría mas a menudo pero me conozco y esto es mas adictivo de lo que parece por eso prefiero esperar un poco mas. Mientras, seguiré entrando de vez en cuando aun que solo sea como en este post para decir algo como “Hola, aun sigo vivo” jeje. (Por cierto, si que era SmartTag, Thanks)

Hola Gerson, muchos afectos a ti también, gracias por ajustar la función a mi sugerencia. Ahora que lo dices, si que recuerdo algo asi de Mauricio y puede que inconscientemente le haya copiado.

Bueno gente, un saludo a todos en general y pronto estaré de vuelta para revivir antiguos temas.

Saludos!

[sailepaty]

Ejemplo con un nombre definido con el viejo lenguaje de macros XLM y formato condicional. Para verificar el nombre EsFormula deben de posicionar el cursor en la celda A1. Pueden también seguir la idea y sustituir el nombre creado por una función en VBA.

Saludos

[verzulsan]

Hola sailepaty,

EsFormula=INDICAR.CELDA(48;!I7)

MostrarFormula=Sheet1!$B$1


=Y(MostrarFormula;EsFormula)[/CODE]

El ComboBox (True;False) esté a True o esté a False no me hace notar ninguna diferencia. Por lo demas, en el rango definido si que muestra las formulas.

¿Podrias explicar un poco como hace tu hoja lo que hace?

Gracias.

Un saludo.

[Antoni]

Hola a todos:

Me pasa lo mismo que a verzulsan.

Saludos

[ioyama]

Hola a todos

Y ¿por qué no usar la opción de ver fórmulas de excel Opciones > pestaña Ver > Fórmulas?

o en código ActiveWindow.DisplayFormulas = True

Si ya sé que así no marcamos la celda con la fórmula, pero verla la vemos claramente.

Un saludo desde Vitoria

P.S. Al igual que a verzulsan y a Macro da igual la opción que elija no veo diferencia con Verdadero o Falso

[sailepaty]

A ver si ahora funciona, además le añadí la opción con VBA. El formato condicional solo esta establecido en la zona con fondo gris.

Ahora manualmente para encontrar rápidamente todas las celdas con formulas siempre esta la opción de F5->ESPECIAL->FORMULAS->ACEPTAR y formatearlas al gusto.

Saludos

[tuve]

El ComboBox (True;False) esté a True o esté a False no me hace notar ninguna diferencia. Por lo demas, en el rango definido si que muestra las formulas.

Hola,

En lugar de True o False, con VERDADERO o FALSO (en los dos casos sin comillas) o 1 y 0, funciona correctamente.

Soy de la última opción que ha indicado sailepaty, rápida y sencilla.

Saludos maestros

[sailepaty]

En lugar de True o False, con VERDADERO o FALSO (en los dos casos sin comillas) o 1 y 0, funciona correctamente.

Gracias Tuve, no sabia que las opciones de TRUE y FALSE no se traducían automáticamente en la validación de datos.

Saludos

[Gerson Pineda]

Hola,

En lugar de True o False, con VERDADERO o FALSO (en los dos casos sin comillas) o 1 y 0, funciona correctamente.

Soy de la última opción que ha indicado sailepaty, rápida y sencilla.

Saludos maestros

Tuve

Sabes si funciona para cualquier version (idioma) de Excel? (mientras llego a casa y lo pruebo)

Tengo version en ingles (en mi trabajo y el archivo de saile funciona correctamente, que por cierto lo adjunto nuevamente, para archivo del foro)

Saludos a todos

Resaltar celdas con formula.zip

[tuve]

Tuve

Sabes si funciona para cualquier version (idioma) de Excel? (mientras llego a casa y lo pruebo)

Hola Gerson,

No tengo la posibilidad de probarlo en una versión con otro idioma, mi opinión es que si la celda validada hace referencia a un rango con VERDADERO y FALSO, Excel automáticamente convertiría ese valor booleano al idioma correspondiente, pero no lo he probado.

Un saludo