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

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.