Msgbox y excel

[niconico]

Quiero que cuando se introduzca un valor inferior a 2 en a1 me salga un msgbox, mi código es el siguiente:
Private Sub hola()
If Range("a1").Value < 2 Then
MsgBox ("hola a todos")
End If
End Sub
Introduzco el código en el editor de visual pero no pasa nada, cual puede ser el error? muchas gracias

[3pies]

Para hacer lo que pretendes, puedes utilizar la opción de validar datos. Sitúate en la celda A1, y selecciona dentro del menú Datos, la opción Validación.... En la pestaña Configuración puedes determinar el tipo de dato que aceptas para esa celda (o rango de celdas). Puedes mostrar un mensaje informativo, al situarte encima de la celda, y otro en el caso de que el usuario introduzca un dato no permitido, utilizando las otras dos petañas (Mensaje entrante, y Mensaje de error).

[niconico]

Gracias pero prefiero poner otro símbolo que no sea el de error

[3pies]

También puedes poner el de advertencia o el de información.

[dogduck]

Vete al editor de vba y en hoja1 :

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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


End Sub

[3pies]

Con el mismo código de dogduck, quizás mejor llamar a Worksheet_Change, para que al movernos por la hoja, no salte el Msgbox

[niconico]

Muchas gracias ya lo he solucionado

[uzziber]

¿Cómo lo solucionaste?

[niconico]

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

[potypoty]

Esta bien lo que dices, pero ese código tiene un problema. Si tú escribes un valor en la celda a1 que sea <2 y haces un cambio en una celda cualquiera aunque no sea la celda en cuestión te saltará el msgbox. Si quieres que en cualquier cambio en cualquier celda te salga el mensaje dejalo así. Si lo que quieres es que cuando hagas algún cambio en alguna celda específica el código cambia un poco. Si deseas esta 2ª idea comentame y te lo mando.

[3pies]

Creo que potypoty se refiere a esto:

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
'Definimos el rango para que se ejecute el Change (fila 1, y columna 1)
If Target.Row = 1 And Target.Column = 1 Then
    If Range("a1").Value < 2 Then
        MsgBox ("hola a todos")
    End If
End If
End Sub

[potypoty]

Efectivamente me refería a eso 3pies, aunque yo lo hago de otra forma. Según la aplicación que utilices te puede venir bien una u otra forma.
Veo que tú también trabajas con excel,eh? Ya te comentaré alguna cosilla que me ronda la cabeza.

[3pies]

¿Cómo lo haces tú?. Compartamos conocimientos...

[potypoty]

Lo mio es diferente idea que la de niconico. Yo necesito que si se cambia una celda (G5) me copie ese valor en otras (D15,D28 y P22), pero si se cambia (D15,D28 o P22) también me actualice (G5) y esto para cualquier cambio en cualquiera de ellas. Se me ocurrió esto:
Dim Direccion As String
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Direccion
Case "$G$5"
Range("D15").Value = Range("G5").Value
Range("D28").Value = Range("G5").Value
Range("P22").Value = Range("G5").Value
Case "$D$15"
Range("G5").Value = Range("D15").Value
Range("D28").Value = Range("D15").Value
Range("P22").Value = Range("D15").Value
Case "$D$28"
Range("G5").Value = Range("D28").Value
Range("D15").Value = Range("D28").Value
Range("P22").Value = Range("D28").Value
Case "$P$22"
Range("G5").Value = Range("P22").Value
Range("D15").Value = Range("P22").Value
Range("D28").Value = Range("P22").Value
End Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
End Sub

Esto tiene la ventaja que si algún dia necesitas ampliarlo sólo necesitas meter unos "case"s más con las direcciones en cuestión. No sé si será la mejor opción, pero me funciona de madre. Tu código también creo que me pudiera servir y si tengo oportunidad lo probaré.
Creo que tu código podría ser más eficiente que el mio, pero puede que desde el punto de vista visual, de comprensión y de proximas ampliaciones, el mio me parece más cómodo. Me gustaría saber tu opinión.

[potypoty]

Me he cargado sin querer una varible llamada Cambiar que utilizo para evitar que se meta en un bucle infinito. Te mando el código correcto.
Dim Direccion As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Cambiar Then
Select Case Direccion
Case "$G$5"
Range("D15").Value = Range("G5").Value
Range("D28").Value = Range("G5").Value
Range("P22").Value = Range("G5").Value
Case "$D$15"
Range("G5").Value = Range("D15").Value
Range("D28").Value = Range("D15").Value
Range("P22").Value = Range("D15").Value
Case "$D$28"
Range("G5").Value = Range("D28").Value
Range("D15").Value = Range("D28").Value
Range("P22").Value = Range("D28").Value
Case "$P$22"
Range("G5").Value = Range("P22").Value
Range("D15").Value = Range("P22").Value
Range("D28").Value = Range("P22").Value
End Select
Cambiar=False
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub

Creo que esta vez está todo. El problema que mi código es mucho más extenso que esto y lo he acortado para que sea más cómodo verlo y entenderlo.

[potypoty]

Soy un DESASTRE no te he copiado debajo de Dim Direccion as String la declaración de Cambiar Dim Cambiar As Boolean, pero me imagino que esto ya te lo hubieras supuesto . Ahora seguro que está todo.

[3pies]

Yo porque lo ví en un ejemplo, que sino, no te creas que doy con eso, jajajajaja. Tu código debe ser tan eficiente como ese otro que puse (al que no llamaré "mío", jajajaja). Uno simplemente tiene un condicional para mirar el rango de datos que cambia, y ejecutar el procedimiento, y el otro tiene un select case (aunque este último necesia llamar a 2 eventos, ...cosa que no he probado con el otro código, si quisiera cambiar un dato de una celda, al cambiar otra, y cambiar esta última, al cambiar la de origen).

[potypoty]

Vas a necesitar una variable extra que impida que la macro se te meta en un bucle INFINITO, debido a que cuando pones el valor de la primera en la segunda es un cambio de página y salta de nuevo la función para cambiar otra vez el mismo valor y así hasta el infinito.
Yo utilizo las dos funciones porque la de seleccionar lo único que me hace a parte de conseguir la dirección es asegurarme que el segundo cambio no active de nuevo el proceso.

[3pies]

Pues en principio creía que tenías razón (yo pensaba lo mismo), pero ejecuta esto y verás:

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
'Si ponemos un dato en A1, nos pone el mismo dato en A2
If Target.Row = 1 And Target.Column = 1 Then
    If Range("a1").Value <> "" Then
        Range("a2").Value = Range("a1").Value
    End If
End If
'Si ponemos un dato en A2, nos pone el mismo dato en A1
If Target.Row = 2 And Target.Column = 1 Then
    If Range("a2").Value <> "" Then
        Range("a1").Value = Range("a2").Value
    End If
End If
End Sub

Funciona, y tiene su lógica, porque la celda que cambia, es solo una, y por tanto solo puede ejecutarse un condicional de los dos que se incluyen en el procedimiento que llama al evento Change.

[potypoty]

Si con dos ya sé que funciona , pero prueba esto:

Private Sub Worksheet_Change(ByVal Target As Range)
'Si ponemos un dato en A1, nos pone el mismo dato en A2 y A3
If Target.Row = 1 And Target.Column = 1 Then
If Range("a1").Value <> "" Then
Range("a2").Value = Range("a1").Value
Range("a3").Value = Range("a1").Value
End If
End If
'Si ponemos un dato en A2, nos pone el mismo dato en A1 y A3
If Target.Row = 2 And Target.Column = 1 Then
If Range("a2").Value <> "" Then
Range("a1").Value = Range("a2").Value
Range("a3").Value = Range("a2").Value
End If
End If
'Si ponemos un dato en A3, nos pone el mismo dato en A1 y A2
If Target.Row = 3 And Target.Column = 1 Then
If Range("a3").Value <> "" Then
Range("a1").Value = Range("a3").Value
Range("a2").Value = Range("a3").Value
End If
End If
End Sub

Esto, pero a mayor medida necesito para mi curro. Cuando vi tu código lo probé con mis cambios y no sé por qué exactamente no funciona. Bueno, en realidad lo que no entendía era por qué con dos cambios si funciona. Tu al escribir en la celda A2 estás haciendo un cambio y eso debería hacer saltar el proceso.
Igual estoy haciendo algo mal y no lo veo. Si lo pruebas y te funciona me gustaría saber qué has cambiado.
Ya me dirás.

[3pies]

Pues con 3 no funciona, pero con 2 sí. Voy a estudiar este fin de semana el motivo (ahora voy pilladísimo de tiempo). Igual no saco nada en claro, pero con 3 no funciona y con 2 sí.

Al principio pensé que entraría en un bucle infinito, pero luego, al ver que funcionaba, me dije "claro, es como si tienes un rango de datos que sumas, y cambias un valor del rango. Al cambiar ese valor, la suma cambia, pero no necesariamente hace saltar el evento change, para entrar de nuevo en el bucle".

No tengo ni idea de porqué de una forma funciona, y de la otra no. Igual es por una chorrada, pero así a bote pronto, no lo veo.

[phpnet]

que tal esta:
Range("A1").select
dim i as integer
i = val(activeCell.formulaR1C1)
Private Sub hola()
If i < 2 Then
MsgBox ("hola a todos")
End If
End Sub

[3pies]

No he encontrado ninguna explicación del porqué funciona cambiando 2 celdas, y no funciona con tres. Para mi es un expediente X. A ver si alguien está menos espeso, y nos saca de dudas.