Visual Basic para Aplicaciones - Llenar celdas hoja Excel mediante un bucle

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Llenar celdas hoja Excel mediante un bucle

Publicado por BlackZir (2 intervenciones) el 19/04/2018 23:24:04
Hola. estoy comenzando con esto de las macros en vb. tengo este problema:
necesito llenar en una hoja de excel el rango de celdas A1:S1 con unos datos guardados en variables respectivamente(variable1,variable2...variable20). en resumen:

1
2
3
4
5
6
celda A1 = Variable1
celda B1 = Variable2
.
.
.
celda  S1=Variable20

Al darle clic a un boton de comando "Grabar"

estaba intentando este codigo pero me graba el mismo valor en todas las celdas, pero el valor no es el que esta guardado en las variables

1
2
3
4
5
6
7
8
9
10
11
12
13
Variable1=Dato1
Variable2=Dato2
.
.
Variable20=Dato20
 
ult_c = 20
ult_f = Sheets("Hoja1").Range("A65536").End(xlUp).Row + 1
For pri_c = 1 To ult_c
For fila_i = 1 To ult_f
Sheets("Hoja1").Cells(fila_i, pri_c) = Variable & fila_i
Next fila_i
Next pri_c

resultado en todas las celdas = 1

Agradesco de antemano cualquier ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 115
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Llenar celdas hoja Excel mediante un bucle

Publicado por Norberto (34 intervenciones) el 20/04/2018 12:50:22
Hola.

Es mejor que definas una matriz de 1 a 20.

1
Dim Variable(1 To 20)

Luego la usas así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
...
    Variable(1) = 1
    Variable(2) = 2
    Variable(3) = 3
    ...
    Variable(20) = 20
 
    ult_c = 20
    ult_f = Sheets("Hoja1").Range("A65536").End(xlUp).Row + 1
    For pri_c = 1 To ult_c
        For fila_i = 1 To ult_f
            Sheets("Hoja1").Cells(fila_i, pri_c) = Variable(fila_i)
        Next fila_i
    Next pri_c
...

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

Llenar celdas hoja Excel mediante un bucle

Publicado por BlackZir (2 intervenciones) el 20/04/2018 17:48:55
Te lo agradezco ya lo probé y ahora si me funciona, no conocía lo de la matriz me sacaste de un buen apuro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar