Buenas tardes, el codigo siguiente me inserta un codigo, es decir:
En mi celda G1 tengo un codigo, copio ese codigo 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.
Mi problema es que al principio si me inserta por ejemplo tengo un 3 y me inserta tal cual, en la siguiente tengo un cuatro y no me lo copia, no hace nada y salta al siguiente y tampoco hace nada.
Buenas tardes, el codigo siguiente me inserta un codigo, es decir:
En mi celda G1 tengo un codigo, copio ese codigo 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.
Mi problema es que al principio si me inserta por ejemplo tengo un 3 y me inserta tal cual, en la siguiente tengo un cuatro y no me lo copia, no hace nada y salta al siguiente y tampoco hace nada.
Mi codigo:
'--------------------------------------------------------
' Macro para insertar filas segun cantidad de codigo |
'--------------------------------------------------------
Sub InsertarFilasCantidadsitio()
'Variables para filas a insertar y para cantidad de filas
Dim filas As Integer
Dim var As Integer
' Indica la fila desde donde empieza a trabajar
filas = 3
'Empieza a contar si el valor de la celda es vacio
Do Until Cells(filas, 6) = ""
' Revisa que el valor sea diferente de 0
If Cells(filas, 6) <> 0 Or Cells(filas, 6) <> "" Or Val(Cells(filas, 6)) > 0 Then
'Resta 1 a la cantidad de filas a insertar
var = Cells(filas, 6)
'Ciclo para insertar filas
For m = 1 To var
Range("G1").Copy
Selection.Insert Shift:=xlDown
Range("G3").Select
Range("G3").Value = Range("G1").Value
Application.CutCopyMode = Cut
'Fin de for
Next m
'----
'Fin de condicion
End If
'-----
'Condicion que se ejecuta mientras el valor sea vacio
'fila + valor a insertar + contador
filas = filas + var + 1
Loop
End Sub
Espero me haya explicado, si necesitan el ejemplo del archivo haganmelo saber.
Saludos.
Atte:
@Pseudostark
Twitter: @PseudoStark