Ver Mensaje Individual
  #9 (permalink)  
Antiguo 03/03/2006, 02:50
Avatar de niconico
niconico
 
Fecha de Ingreso: enero-2006
Mensajes: 166
Antigüedad: 18 años, 3 meses
Puntos: 0
Introduje el código Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("a1").Value < 2 Then
MsgBox ("hola a todos")
End If


End Sub

en el editor de visual (herramientas/macro/editor de visual basic y en la hoja que quería que me saliera el msgbox pegué el código, y ya está. Dada vez que el valor de a1 es inferior a 2 salta el msgbox. Después cambié Worksheet_SelectionChange por Worksheet_Change para que no estuviera saltando el msgbox todo el tiempo.
Saludos