Anónimo
¿Se puede condicionar un Msgbox con un if?
Cómo hago para programar desde Visual que si en una celda hay ciertos valores (ejemplo: 101, 001) me despliegue un msgbox y si tengo otros (ejemplo: 111, 110) me muestre otro msgbox. Lo estoy tratando de hacer con un if pero lo que está sucediendo es que sin importar el valor siempre me muestra el primer msgbox.
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo una rutina de ejemplo:
sub compara()
If range("B5") = 100 or range("B5" ) = 101 then
msgbox "Primer mensaje"
elseif range("B5") = 111 or range("B5") = 110 then
msgbox "Segundo mensaje
else
msgbox "sin mensaje" 'opcional para otros valores o celda vacía
end if
End Sub
Si la comparación se hará al momento de ingresar algún valor en esa celda, la rutina será colocada en el evento Worksheet_Change de la hoja en cuestión.
Private Sub Worksheet_Change()
if target.address(false, false) = "B5" then 'controla lo que ingreses en esta celda
If target.value = 100 or target.value= 101 then
msgbox "Primer mensaje"
elseif target.value = 111 ortarget.value= 110 then
msgbox "Segundo mensaje
else
msgbox "sin mensaje" 'opcional para otros valores o celda vacía
end if
End Sub
Sdos. No olvides finalizar si el tema queda concluido
sub compara()
If range("B5") = 100 or range("B5" ) = 101 then
msgbox "Primer mensaje"
elseif range("B5") = 111 or range("B5") = 110 then
msgbox "Segundo mensaje
else
msgbox "sin mensaje" 'opcional para otros valores o celda vacía
end if
End Sub
Si la comparación se hará al momento de ingresar algún valor en esa celda, la rutina será colocada en el evento Worksheet_Change de la hoja en cuestión.
Private Sub Worksheet_Change()
if target.address(false, false) = "B5" then 'controla lo que ingreses en esta celda
If target.value = 100 or target.value= 101 then
msgbox "Primer mensaje"
elseif target.value = 111 ortarget.value= 110 then
msgbox "Segundo mensaje
else
msgbox "sin mensaje" 'opcional para otros valores o celda vacía
end if
End Sub
Sdos. No olvides finalizar si el tema queda concluido