Saltar al contenido

Bucle con valor con nombre variable


Recommended Posts

Hola a todos,

Tengo la siguiente macro para ir completando una tabla a partir de valores definidos en el módulo y llamados Cant1, Cant2, Cant3.......hasta el 100

Dim i, k As Byte
Dim a As String
For i = 1 To 100
    k = 3 * (i - 1) 'para ir saltando de a 3 columnas

   a = "Cant" & i    'cantidad % de componente a ingresar en tabla
    
    If a = "" Then
        Exit For
    Else
        Cells(FilaIngreso, 1 + k).Value = a
    End If
Next i
 

El bucle como tal funciona pero en lugar de ponerme los valores antes definidos de Cant1, Cant2....etc, me pone el texto "Cant1", "Cant2", etc

Cómo hago para que me de de el valor y no el texto?

Muchas gracias

Enlace a comentario
Compartir con otras webs

Hola, es que tu varaiable a es un texto de hecho la defines como tal Dim a As string

¿cómo tienes los valores almacenados en el módulo? son simples asignaciones tipo Cant1=22, Cant2=12, .......

Si puedes meter todos esos valores en un array luego lo recoores para asignar los valores por ejemplo

Dim Cant(100)

luego solo tiene sque meter la variable i del bucle dentro para recorrerla Cant(i)

no se si esto te ayuda.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.