Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Agregar condicion

24/05/2007 - 18:17 por Angelo Vernaza | Informe spam
Ayuda Hacer una pregunta
Hola Grupo tengo la siguiente macro

Sub portada()
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End Sub

quisiera agregarle otra condición al inicio, que si Hoja1!$M$33, es mayor
que uno, me envie un cierto mensaje definido por mi,

como puedo hacer Saludos,


Angelo Vernaza
Cel. 6526-0005
angelo_vernaza@hotmail.com
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Arcano
24/05/2007 - 19:29 | Informe spam
On 24 mayo, 12:17, "Angelo Vernaza"
wrote:
Hola Grupo tengo la siguiente macro

Sub portada()
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End Sub

quisiera agregarle otra condición al inicio, que si Hoja1!$M$33, es mayor
que uno, me envie un cierto mensaje definido por mi,

como puedo hacer Saludos,


Angelo Vernaza
Cel. 6526-0005




Sub portada()

IF sheets("Hoja1").Range("M33").value = 1 then
MsgBox "Tu mensaje"
Else
Select Case Application.CountA(Range("d14:d16"))
Case 0
MsgBox "No HAY nada para calcular"
Case 1
ventana2.Show
ActiveSheet.Next.Select
Range("b3").Select
ActiveSheet.EnableSelection = xlUnlockedCells
Case Else
MsgBox "Sólo se puede hacer UN solo calculo a la vez."
End Select
End If
End Sub

Preguntas similares

 

Busqueda sugerida :