contar fórmulas

efectivamente, seleccionas las celdas que contienen fórmulas y después, en
la barra de estado (que está debajo de la ventana con las celdas) verás que
hay una ventanita que normalmente muestra la suma de las celdas que tienes
seleccionadas, si pulsas en ella podrás elegir, en lugar de que te muestre
la suma otras funciones, entre ellas que cuente las celdas seleccionadas.





"chatty" escribió en el mensaje de noticias
news:

Hola, quiero contar las fórmulas que aparecen en una determinada hoja de
Excel. Me han dicho que lo tengo que hacer con Ir a, eligiendo el la
opción "Céldas con fórmulas" y luego elegir la función cuenta en la barra
de estado. Intenté hacer esto pero debo de hacer algo mal porque no me
sale. Tras elegir la la opción "celdas con fórmulas" me selecciona todas
las celdas en las que hay alguna formula, luego marco la función cuenta en
la barra de estado pero el resultado no me aparece y si pincho en la celda
en la que quiero poner el resultado se me desmarca la seleccion de las
celdas con formulas. Que lío! Bueno, espero que alguien me pueda ayudar.
Gracias de antemano

"chatty" escribió

Hola, quiero contar las fórmulas que aparecen en una determinada hoja de
Excel. Me han dicho que lo tengo que hacer con Ir a, eligiendo el la
opción "Céldas con fórmulas" y luego elegir la función cuenta en la barra
de estado. Intenté hacer esto pero debo de hacer algo mal porque no me
sale. Tras elegir la la opción "celdas con fórmulas" me selecciona todas
las celdas en las que hay alguna formula, luego marco la función cuenta en
la barra de estado pero el resultado no me aparece y si pincho en la celda
en la que quiero poner el resultado se me desmarca la seleccion de las
celdas con formulas. Que lío! Bueno, espero que alguien me pueda ayudar.
Gracias de antemano

Hola,

Lo que te han indicado te deja en la barra de estado el número de celdas que
contienen formulas. Ese numero no se inserta.
Si quieres que el resultado aparezca en alguna parte de la hoja debes
recurrir a funciones personalizadas de vba.

La siguiente función la puedes copiar en un modulo estandar:
Se llama de la siguiente forma:

Si quieres las de la hoja activa:
=cuentaformulas()

Si quieres las de cualquier otra hoja:
=cuentaformulas("hoja1")

Si no existe devuelve 0

Un saludo,
Juan

Codigo

Function CuentaFormulas(Optional Hoja As String) As Long
Dim celda As Range
Dim oHoja As Worksheet
Dim i As Long

On Error Resume Next
Set oHoja = Worksheets(Hoja)
If oHoja Is Nothing Then
CuentaFormulas = 0
Exit Function
Else
Hoja = ActiveSheet.Name
End If
On Error GoTo 0

i = 0

For Each celda In Worksheets(Hoja).UsedRange.Cells
If celda.HasFormula Then
i = i + 1
End If
Next celda

CuentaFormulas = i

Set oHoja = Nothing
Set celda = Nothing
End Function