Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

select case

07/03/2005 - 15:43 por JR | Informe spam
Ayuda Hacer una pregunta
No soy capaz a algo tan elemental como utilizar la select case, estoy bloqueado
Quiero que en funcion del valor de la celda A1 me muestre un msg box

Sub resultado()
Dim resultado
resultado = Range("a1")
Select Case resultado

Case 1, 5
MsgBox ("resultado1 o 5")
Case 6 To 10
MsgBox ("resultado 2 a 10")
Case 25
MsgBox ("resultado25")
Case Else
MsgBox ("otros resultados")

End Select
End Sub

Creo que así no puede ser porque a mi no me rula
A ver si alguien me echa una mano
Gracias a todos
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Arroyo
07/03/2005 - 15:52 | Informe spam
Prueba con:

Sub resultado()
Select Case Range("A1") 'Convendría cualificar más el rango, p.ej.: Worksheets("Hoja1").Range("A1")
Case 1, 5
MsgBox "resultado 1 ó 5"
Case 2 To 10
MsgBox "resultado 2 a 10 (excluyendo el 5)"
Case 25
MsgBox "resultado 25"
Case Else
MsgBox "otros resultados"
End Select
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"JR" escribió en el mensaje news:
No soy capaz a algo tan elemental como utilizar la select case, estoy bloqueado
Quiero que en funcion del valor de la celda A1 me muestre un msg box

Sub resultado()
Dim resultado
resultado = Range("a1")
Select Case resultado

Case 1, 5
MsgBox ("resultado1 o 5")
Case 6 To 10
MsgBox ("resultado 2 a 10")
Case 25
MsgBox ("resultado25")
Case Else
MsgBox ("otros resultados")

End Select
End Sub

Creo que así no puede ser porque a mi no me rula
A ver si alguien me echa una mano
Gracias a todos

Preguntas similares

 

Busqueda sugerida :