Select case NO me funciona

Tipo = "D"
Select Case Tipo
Case "D"
MsgBox "Opcion 01 del CASE"
Case "E"
MsgBox "Opcion 01 del CASE"
Case "F"
MsgBox "Opcion 01 del CASE"
Case Else
MsgBox "No EXISTEN COINCIDENCIAS en el CASE"
End Select

Asi debe funcionar, ya que seleccionas la variable, aunque en este ejemplo,
siempre dara Case = "D" ya que Tipo esta definido en la primera linea...
-
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias.
-

Victor Delgadillo [MVP Access] Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.
Vea los MVP: http://www.microsoft.com/communities/mvp/mvp.mspx


"jontart" wrote in message
news:

¿sabe alguien por qué no funciona esta macro en Word?:


Dim Tipo

Tipo = "D"
Select Case Tipo
Case Tipo = "D"
MsgBox "Opcion 01 del CASE"
Case Tipo = "E"
MsgBox "Opcion 01 del CASE"
Case Tipo = "F"
MsgBox "Opcion 01 del CASE"
Case Else
MsgBox "No EXISTEN COINCIDENCIAS en el CASE"
End Select


Siempre va a la opcion Case Else

Gracias 1000



Salu2


"Victor Delgadillo" wrote in message news:...

Tipo = "D"
Select Case Tipo
Case "D"
MsgBox "Opcion 01 del CASE"
Case "E"
MsgBox "Opcion 01 del CASE"
Case "F"
MsgBox "Opcion 01 del CASE"
Case Else
MsgBox "No EXISTEN COINCIDENCIAS en el CASE"
End Select

Asi debe funcionar, ya que seleccionas la variable, aunque en este ejemplo,
siempre dara Case = "D" ya que Tipo esta definido en la primera linea...
-
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias.
-

Victor Delgadillo [MVP Access] Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.
Vea los MVP: http://www.microsoft.com/communities/mvp/mvp.mspx


"jontart" wrote in message
news:
> ¿sabe alguien por qué no funciona esta macro en Word?:
>
>
> Dim Tipo
>
> Tipo = "D"
> Select Case Tipo
> Case Tipo = "D"
> MsgBox "Opcion 01 del CASE"
> Case Tipo = "E"
> MsgBox "Opcion 01 del CASE"
> Case Tipo = "F"
> MsgBox "Opcion 01 del CASE"
> Case Else
> MsgBox "No EXISTEN COINCIDENCIAS en el CASE"
> End Select
>
>
> Siempre va a la opcion Case Else