Como saber si una celda tiene una formula?

Nuevamente gracias a las personas que el tiempo de contestar mis
preguntas.
Tal vez no lo explique bien desde un principio, pero la duda era referente
a saber si una celda tiene o no formula pero saberlo desde Vba. Es decir,
en un reporte en donde se insertan renglones en ciertas columnas, en la
celda F21(y en otras celdas) hay una formula del tipo =SUM(C21:E21),
entonces como ese reporte inserta renglones hacia abajo de la celda donde
esta establecida la formula y llena con datos numericos las columnas C,D y
E(entre otras) del renglon que se inserto, la formula no se agrega al
nuevo renglon insertado. La forma como resolvi este problema es que al
final de que se llena con datos el renglon insertado, verifico de las
columnas que tienen sumatorias (ya previamente la info de cuales columnas
son las guarde en un arreglo dinamico), y pregunto si en la misma columna
pero en el renglon de arriba existe una formula, si existe simplemente la
copi al renglon de abajo.

He aqui parte del codigo.


.. mas codigo aqui arriba
RenNvo = el renglon donde estoy llenando con datos.
' QSQLCol es la coleccion donde estan las columnas que tienen sumatorias.
Contiene variable (o no se como se llame) "Column".
If QSQLCol.Count > 0 Then
Dim QSQLColTem As Object
Dim ActAdr As String
Dim NewAdr As String
Dim ActRow As Integer
Dim NewRow As Integer
ActRow = RenNvo
NewRow = RenNvo - 1
For Each QSQLColTem In QSQLCol
NewAdr = QSQLColTem.Column & NewRow
Range(NewAdr).Select
If Mid(ActiveCell.FormulaR1C1, 1, 1) = "=" Then
Selection.Copy
ActAdr = QSQLColTem.Column & ActRow
Range(ActAdr).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next QSQLColTem
End If


Pido disculpas por no haber sido mas especifico en exponer mi problema, y
por no haber proporcionado mas informacion sobre el mismo.
Tendre mas cuidado en este sentido la proxima vez por consideracion a Uds.
que pierden parte de su tiempo para ocuparse de mis dudas.

Gracias nuevamente.

Saludos.


"Max" wrote in message
news:

No se si he entendido bien tu pregunta pero si quieres puedes provar ir a
herramientas eliges opciones, en la ventana que se habre eliges la
pestaña
ver y luego en opciones de ventana chequeas la opcion formulas y despues
aceptar (enter). Esto mostrara todas las formulas que existen en la hoja.
MAX
"Alr" escribió:

No se si ya han puesto esta pregunta en el foro, pero no la he
encontrado.
Como puedo saber si en una columna esta definida o creada una formula?
En la ayuda de Excel solo encontre como seleccionar todas las formulas
de la
hoja, pero eso no es lo que necesito.

Gracias de antemano.