Duda con Msgbox
Que tal, aquí molestándote otra vez con el código que me diste pues quedo de la siguiente manera:
Function NoMayor20(range As Excel.range) As String Dim valor As Double If range.Cells.Count = 1 Then valor = range If valor > 0.2 Then MsgBox "Incremento L/C mayor a 20%" NoMayor20 = "Incremento L/C mayor a 20%"
Else NoMayor20 = "Ok" End If
Else
NoMayor20 = "#N/A" End If
End Function
Pero resulta que hora sin importar que haga en el documento, el mensaje sigue saliendo ja ja habrá alguna manera de que solo salga una vez?
Nuevamente muchas gracias por tu ayuda.
Saludos
1 Respuesta
El mensaje aparece cada vez que modificas una celda de la cual depende la celda que estas monitoreando. Es decir si haces un cambio al documento y ese cambio afecta a la celda que estas monitoreando se mostrara el mensaje "Incremento L/C mayor a 20%" en caso de que sea mayor a 20%. Si quieres puedes quitar el msgbox y solo dejar el mensaje de la celda de la formula.
Function NoMayor20(range As Excel.range) As String
Dim valor As Double
If range.Cells.Count = 1 Then
valor = range
If valor > 0.2 Then
NoMayor20 = "Incremento L/C mayor a 20%"
Else
NoMayor20 = "Ok"
End If
Else
NoMayor20 = "#N/A"
End If
End Function
Aun con cualquier cambio que le haga al documento sin importar que afecte o no al resultado final, sale el mensaje. Por ejemplo, si pongo 1 en la celda A1 me sigue saliendo el mensaje.
Saludos.
Sigue estos pasos
1) Agrega un nuevo Modulo(Si ya tienes alguno puedes omitir este paso)
2) Copia la función en el Modulo
3) Identifica dos celdas, la primera sera la celda a monitorear y la segunda sera la celda en la que agregaras la formula. Por ejemplo la primera celda sera la celda C4 de la hoja4, la segunda celda sera la celda A1 de la hoja1
4)En la segunda celda escribe la formula =NoMayor20(Hoja4! C4), nota que le estoy diciendo que monitoree la primera celda
5)Ahora modifica un dato que afecte a la primera celda (la celda a monitorear), y si el valor de la primera celda es mayor a 20% debe mostrar el mensaje
6)Ahora modifica un dato que no afecte a la primera celda, no se debe mostrar el msgbox aunque la primera celda sea mayor a 20%
Si sigue sin funcionar dime que formula tienes en la celda que estas monitoreando, y en que celda pones la formula y como te queda la formula que pones.
