Jump to content

[SOLUCIONADO] Mostrar mensaje de alerta


Antonio

Recommended Posts

Re: Mostrar mensaje de alerta

Hola Antonio:

Revisa el archivo adjunto.

Me tome la libertad de modificar tu codigo, espero que no te moleste

en Hoja 1 quedaria asi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

fil = Target.Row

col = Target.Column

If fil = 0 Or col > 0 Then

Fondo

End If

End Sub

y en la macro de fondo quedaria asi

Public Sub Fondo()

If Hoja1.Range("e2").Value <= Hoja1.Range("b2").Value * 0.3 Then

MsgBox ("El Fondo se está agotando. Por favor, solicite reintegro de lo gastado")

End If

End Sub

Link to comment
Share on other sites

Re: Mostrar mensaje de alerta

Excelente tu ayuda, Rolano. Sólo me queda una inquietud:¿cómo hacer para que el mensaje se muestre al teclear Enter y el cursor se posicione en la celda inmediatamente inferior a la que se edita con un valor en la columna "E"? En estos momentos, el mensaje se muestra cuando el cursor se posiciona en una celda después de "E". De todas formas, experimentaré en tu ejemplo. Reitero mis agradecimientos.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy