Skip to main content
se añadieron 12 caracteres en el cuerpo
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54

Tienes que cambiar la definicion del metodo prueba_2a:

Sub prueba_2(myArray() As Variant)

Para que reciba el array.

 

Y en la llamada a ese metodo pasarlo como parametro:

prueba_2(myArray)
 

Quedando todo junto:

Sub prueba_1()
    Dim myArray()
    myArray = Range("A1:A3").Value
    Print myArray(2,1)
    prueba_2(myArray)
End Sub

Sub prueba_2(myArray() As Variant)
    Print myArray(2,1)
End Sub

Tienes que cambiar la definicion del metodo prueba_2a:

Sub prueba_2(myArray() As Variant)

Para que reciba el array.

Y en la llamada a ese metodo pasarlo como parametro:

prueba_2(myArray)

Quedando todo junto:

Sub prueba_1()
    Dim myArray()
    myArray = Range("A1:A3").Value
    Print myArray(2,1)
    prueba_2(myArray)
End Sub

Sub prueba_2(myArray() As Variant)
    Print myArray(2,1)
End Sub

Tienes que cambiar la definicion del metodo prueba_2a:

Sub prueba_2(myArray() As Variant)

Para que reciba el array.

 

Y en la llamada a ese metodo pasarlo como parametro:

prueba_2(myArray)
 

Quedando todo junto:

Sub prueba_1()
    Dim myArray()
    myArray = Range("A1:A3").Value
    Print myArray(2,1)
    prueba_2(myArray)
End Sub

Sub prueba_2(myArray() As Variant)
    Print myArray(2,1)
End Sub
Origen Enlace
lois6b
  • 7.6k
  • 5
  • 33
  • 54

Tienes que cambiar la definicion del metodo prueba_2a:

Sub prueba_2(myArray() As Variant)

Para que reciba el array.

Y en la llamada a ese metodo pasarlo como parametro:

prueba_2(myArray)

Quedando todo junto:

Sub prueba_1()
    Dim myArray()
    myArray = Range("A1:A3").Value
    Print myArray(2,1)
    prueba_2(myArray)
End Sub

Sub prueba_2(myArray() As Variant)
    Print myArray(2,1)
End Sub