Hola de nuevo compañeros,

¿Cómo puedo hacer para mostrar toda la información contenida dentro de un array en un sólo cuadro MsgBox?

Tengo el siguiente código de pruebas con dos opciones disponibles, pero ninguna de las dos funciona:

Sub pruebas()
   ' Declaramos las variables...
   Dim miArray() As Variant
   miArray = Range(Cells(2, 1), Cells(2, 8))

   ' Opción 1:
'   MsgBox Join(miArray(1, 3), vbCr)

   ' Opción 2:
   For i = 0 To UBound(miArray)
      msgString = miArray(i) & vbCr
   Next i

   ' Mostramos el contenido del array...
   MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString
End Sub

Sub pruebas()
   ' Declaramos las variables...
   Dim miArray() As Variant
   
   'Opción 1
   miArray = Application.Transpose(Range(Cells(2, 1), Cells(2, 8)).Value)
   For i = 0 To UBound(miArray) - 1
      msgString = msgString & miArray(i + 1, 1) & vbCr
   Next i

   ' Mostramos el contenido del array...
   MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString
End Sub

 

Hace 13 horas, Antoni dijo:

Sub pruebas()
   ' Declaramos las variables...
   Dim miArray() As Variant
   
   'Opción 1
   miArray = Application.Transpose(Range(Cells(2, 1), Cells(2, 8)).Value)
   For i = 0 To UBound(miArray) - 1
      msgString = msgString & miArray(i + 1, 1) & vbCr
   Next i

   ' Mostramos el contenido del array...
   MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString
End Sub

 

Hola @Antoni, resuelto!! Pero tengo una pregunta: Existe alguna razón teórica por la cual no trabajes con "Option Base 1"?

Hace 8 horas, jesuspg dijo:

Hola @Antoni, resuelto!! Pero tengo una pregunta: Existe alguna razón teórica por la cual no trabajes con "Option Base 1"?

Absolutamente ninguna.

 

Hace 21 horas, jesuspg dijo:

Hola @Antoni, resuelto!! Pero tengo una pregunta: Existe alguna razón teórica por la cual no trabajes con "Option Base 1"?

VBA no te obliga a trabajar con base 0 o 1, simplemente es opcional

 

Saludos