crear una formula con macro en excel

De acuerdo con Pedro. Si gritas, sólo reduces la posibilidad que te
respondan tus consultas.

Suponiendo que quieres sumar las columnas B, C y D, y comparar el resultado
con la columna H, entre las filas 2 a la 10, prueba con algo como esto:

For j = 2 To 10
x = Cells(j, 2).Value + Cells(j, 3).Value + Cells(j, 4).Value
If x <> Cells(j, 8).Value Then MsgBox "No coincide la fila " & j &
Chr(13) & "Diferencia: " & x - Cells(j, 8).Value
Next j

Ahora bien, dependiendo de la complejidad de tus datos y el tipo de variable
que estés utilizando, podrían darse errores de aproximación que he detectado
en la 13ava cifra significativa. Puedes entonces utilizar un error de
corrección con un código como el siguiente:

For j = 2 To 10
x = Cells(j, 2).Value + Cells(j, 3).Value + Cells(j, 4).Value
If Abs(x - Cells(j, 8).Value) > 0.0000000001 Then MsgBox "No
coincide la fila " & j & Chr(13) & "Diferencia: " & x - Cells(j, 8).Value
Next j

Saludos...

"jvelas" escribió:

ESAS FORMULAS LAS CONOZCO, PERO QUIERO QUE SALGA UN CUADRO DE DIALOGO COMO
LOS DE VISUAL Y MEDIGA QUE ES UN ERROR. Y LA FORMULA ES COMO LAS FUNCIONES
QUE TIENE EXCEL QUE TE APARECE TU CUADRO EMERGENTE COMO EN LA FUNCION Y Y TE
PREGUNTA LAS FILAS QUE QUIERES PARA REALIZAR DICHA FUNCION

"luka" escribió:

> Hola jvelas.
>
> Suponiendo que tienes los datos en A1, A2 y A3 y el valor a comparar en B1
> pon en cualquier celda
> =Y(SUMA(A1:A3)±)
> Si coinciden te pondrá VERDADERO y si no FALSO
>
>
> Saludos
> Javier B.
>
> jvelas escribió:
> > Ayuda quiero realizar una formula, que sume tres filas y la compare con un
> > numero que tengo en otra fila y si no coincide emitir un mensaje de error,
>

sin ke te enojes :)
por qué no utilizas la opción validar del excel... para eso está...

Datos - Valdación - utilizas la opción personalizada y pones la formula que
te propusieron..., no?
con esto, si el resultado no da, excel te emite una ventana "personalizada"
con el error.

saludos,
Francisco.

"jvelas" escribió en el mensaje
news:

Ayuda quiero realizar una formula, que sume tres filas y la compare con un
numero que tengo en otra fila y si no coincide emitir un mensaje de error,

y si no... bueno utiliza una función:

function compara (fila1, fila2, fila3, filac)
sfila1=application.WorksheetFunction.Sum(cells.columns(fila1))
sfila2=application.WorksheetFunction.Sum(cells.columns(fila2))
sfila3=application.WorksheetFunction.Sum(cells.columns(fila3))
sfilac=application.WorksheetFunction.Sum(cells.columns(filac))
suma_fila = sfila1+sfila2+sfila3
if suma_fila<> sfilac then msgbox "arrggg!!!!!"
end function

saludos,
Francisco.

"Francisco M" escribió en el mensaje
news:

sin ke te enojes :)
por qué no utilizas la opción validar del excel... para eso está...

Datos - Valdación - utilizas la opción personalizada y pones la formula
que te propusieron..., no?
con esto, si el resultado no da, excel te emite una ventana
"personalizada" con el error.

saludos,
Francisco.

"jvelas" escribió en el mensaje
news:

Ayuda quiero realizar una formula, que sume tres filas y la compare con
un
numero que tengo en otra fila y si no coincide emitir un mensaje de
error,