Ayuda con Formula en VBA

[Fello]

Hola

Buen dia

Saludos y quisieran ver si me pueden apoyar con la siguiente situación.
En una marco que al ejecutarla si la suma de dos valores en este caso us + uni...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Condiciona el cálculo:

If us + uni > 0 Then
If ActiveCell.Value <> "" Then ActiveCell.Value = (vs + (uni * pre)) / (us + uni) Else ActiveCell.Value = pre
End If

 

[Adrian]

Viendo lo aportado por Antoni, puedo acotar si es un sola instrucción podría usarse:

ActiveCell.Value = iif(us + uni > 0, (vs + (uni * pre)) / (us + uni) Else ActiveCell.Value = pre,"")

 

[Fello]

Hola

Mil gracias Antoni, tu respuesta me ayudo y si esta funcionando. no ah marcado error. ni se ha detenido
Adrian es por separado la instrucción por que lo intente y marca error

 

[Adrian]

Perdón, era así:

ActiveCell.Value = iif(us + uni > 0, (vs + (uni * pre)) / (us + uni) , ActiveCell.Value = pre)