Copiar y pegar segun valor y cantidad
Publicado por Andres Reyes (2 intervenciones) el 25/05/2015 20:04:17
Buen día a todos, el código siguiente me inserta un código, es decir:
En mi celda G1 tengo un código, copio ese código y lo pego tantas veces me lo diga mi celda F3 en mi columna F, va leyendo las cantidades que me proporciona mi columna F.
En resumen, tengo un codigo copio, lo copio. En mi columna b me dice 2, que lo copie esas dos veces, usando un ciclo.
Solo lo hace una vez, y ya no lo hace mas.
Mi código:
Espero me haya explicado, si necesitan el ejemplo del archivo haganmelo saber.
Agradeceria su ayuda, gracias.
Saludos.
En mi celda G1 tengo un código, copio ese código y lo pego tantas veces me lo diga mi celda F3 en mi columna F, va leyendo las cantidades que me proporciona mi columna F.
En resumen, tengo un codigo copio, lo copio. En mi columna b me dice 2, que lo copie esas dos veces, usando un ciclo.
Solo lo hace una vez, y ya no lo hace mas.
Mi código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub InsertarFilasCantidadsitio()
Dim filas As Integer
Dim var As Integer
filas = 3Do Until Cells(filas, 6) = ""
If Cells(filas, 6) <> 0 Or Cells(filas, 6) <> "" Or Val(Cells(filas, 6)) > 0 Then
var = Cells(filas, 6)
For m = 1 To varRange("G1").Copy
Range("G3").Select
Selection.InsertRange("G3").Value = Range("G1").Value
Next m
End If
filas = filas + var + 1
Loop
End Sub
Espero me haya explicado, si necesitan el ejemplo del archivo haganmelo saber.
Agradeceria su ayuda, gracias.
Saludos.
Valora esta pregunta
0
