Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » MAcro copiar n vecs

Excel - MAcro copiar n vecs

Volver
Nuevo Tema
<<>>
 
Vista:

MAcro copiar n vecs

Publicado por Alejandro (1 intervención) el 03/04/2020 00:13:54
Buenas tardes, me pueden ayudar con el siguiente problema.

Necesito una macro que copie los valores de un rango de celdas n veces de acuerdo a el numero especificado en otra celda, una vez terminando seleccione el siguiente rango y hago lo mismo hasta encontrar el ultimo rango vacío.
por ejemplo:


Producto Descripción Existencia
A Perno 4
B Tornillo 3
C Tuerca 2


Producto Descripción
A Perno
A Perno
A Perno
A Perno
B Tornillo
B Tornillo
B Tornillo
C Tuerca
C Tuerca

Gracias por su 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
sin imagen de perfil
Val: 20
Ha disminuido su posición en 2 puestos en Excel (en relación al último mes)
Gráfica de Excel

MAcro copiar n vecs

Publicado por Janlui (149 intervenciones) el 03/04/2020 01:37:46
Pon en E1 "Producto" ahi pondra la salida del ejercio a partir del renglon2

En A2 Los productos
En B" Las existencias

Y esta es la macro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
*-------------------
Sub Copiar()
    Range("e2:e1000").ClearContents
    ren = 2
    rensal = 2
    Do While Cells(ren, 1) <> ""
        veces = Cells(ren, 2)
        For i = 1 To veces
            Cells(rensal, 5) = Cells(ren, 1)
            rensal = rensal + 1
        Next
        ren = ren + 1
    Loop
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar