If que compara si una variable esta dentro de un array

[nickmartinez]

saludos cordiales como indica el titulo deseo hacer una condicional if que me compare si una variable esta dentro de un array de esta forma if tipo=array(1,2,3) then "la condicion dada" es decir si el tipo va del 1-3 que se ejecute la condicion, pero no me sale .agradezco su amable ayuda al respecto de esta duda.gracias

[ikanni]

Hola,

Sería mas o menos así
 

...

MyArray=(1,2,3)

for x=1 to 3

      if tipo=MyArray(x) then Msgbox "Encontrado": Exit function/Sub ' o lo que sea

next x

.....

 

[nickmartinez]

Hace 20 horas, ikanni dijo:

Hola,

Sería mas o menos así
 

...

MyArray=(1,2,3)

for x=1 to 3

      if tipo=MyArray(x) then Msgbox "Encontrado": Exit function/Sub ' o lo que sea

next x

.....

 

Hola gracias Ikanni sabes no me sale,mira la imagen a ver que esta mal para corregirlo por favor saludos 

[Antoni]

...

Myarray=Array(1,2,3)

for x=0 to 2

      if tipo=MyArray(x) then Msgbox "Encontrado": Exit function/Sub ' o lo que sea

next x

.....

 

[nickmartinez]

Hace 4 horas, Antoni dijo:

...

Myarray=Array(1,2,3)

for x=0 to 2

      if tipo=MyArray(x) then Msgbox "Encontrado": Exit function/Sub ' o lo que sea

next x

.....

 

Gracias Antoni una pregunta la forma de declarar la variable Myarray es como la puse yo???

dim Myarray() as integer??? saludos

[Antoni]

Dim MyArray As Variant

 

[nickmartinez]

Hace 8 horas, Antoni dijo:

Dim MyArray As Variant

 

Option Explicit
Option Base 1
Public Sub n()
Dim x As Integer
Dim tipo As Integer
Dim Myarray As Variant
tipo = 1
Myarray = Array(1, 2, 3)
For x = 1 To 2
If tipo = Myarray(x) Then
MsgBox x
End If
Next x
End Sub

Muchas gracias a todos ,son grandes tema cerrado