Hola, 

Busco alguna instrucción o bucle (no se me ocurre como montarlo) que haga lo mismo que insertar una fila (si se cumple una condición sobre el valor de una celda o posición en un array) y que copia lo de esa fila, pero sin pasar por excel. 

Es decir, tengo una macro que funciona en excel, pero quiero evitar excribir nada, y manejarme sólo con arrays, y una vez completado ya escirbirlo de golpe. El probema está en que hay una sentencia que en función de una condición duplica esa línea, y sigue escribiendo, y eso no sé como hacerlo sin escribirlo en excel. El trozo en cuestión sería algo así:

               If Cells(18 + fila, 1 + orden + 1) <> Nin Then
                    Cells(17 + fila, 1 + j).Select
                    ActiveCell.EntireRow.Copy
                    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
                    Application.CutCopyMode = False
                End If

Mi objetivo, es encontrar algo equivalente sin escribirlo no sé cómo copiar todos los valores de la fila anterior a la nueva fila creada, y más importante, que al mismo tiempo todos los valores desde esa fila hasta el final se desplacen una posición. 

 

Muchas gracias por vuestra ayuda. 

Hace 3 horas, JuanPerez dijo:

Hola, 

Busco alguna instrucción o bucle (no se me ocurre como montarlo) que haga lo mismo que insertar una fila (si se cumple una condición sobre el valor de una celda o posición en un array) y que copia lo de esa fila, pero sin pasar por excel. 

Es decir, tengo una macro que funciona en excel, pero quiero evitar excribir nada, y manejarme sólo con arrays, y una vez completado ya escirbirlo de golpe. El probema está en que hay una sentencia que en función de una condición duplica esa línea, y sigue escribiendo, y eso no sé como hacerlo sin escribirlo en excel. El trozo en cuestión sería algo así:

               If Cells(18 + fila, 1 + orden + 1) <> Nin Then
                    Cells(17 + fila, 1 + j).Select
                    ActiveCell.EntireRow.Copy
                    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
                    Application.CutCopyMode = False
                End If

Mi objetivo, es encontrar algo equivalente sin escribirlo no sé cómo copiar todos los valores de la fila anterior a la nueva fila creada, y más importante, que al mismo tiempo todos los valores desde esa fila hasta el final se desplacen una posición. 

 

Muchas gracias por vuestra ayuda. 

Hola!

Sube un archivo, explica como quedara con un antes y un después

 

Saludos

Es que se trata de una macro bastante más larga que este punto sólo que además está vinculada a otras macros. Pero adjunto un Excel con un ejemplo del punto crítico, y lo explico un poco mejor. He escrito un resumen del procedimiento que estoy buscando en el Excel adjunto, la macro que hay está hiper resumida por lo que no funcionará, pero he dejado las líneas de la parte que no sé solucionar. 

Básicamente mi pregunta es como desplazar todos los datos ya guardados en una matriz una posición para abajo. 

Muchas gracias por tu ayuda

 

resumen.xlsm

Juan

No entiendo el algoritmo/condición que llevas para insertar filas [porque esta incompleto], pero algo asi, podría darte ideas

For i = 5 To 10
    Range("D" & i).EntireRow.Insert
    Range("D" & i) = Range("D" & i + 1).Value
Next

 

Saludos

Saludos @JuanPerez, creo entender lo que necesitas sobre el array (no lo que escribiste en la hoja, que no lo analice).

hacer lo que quieres directamente en el array pues estoy seguro que no se puede, es decir, insertar una línea en la posición 10 por ejemplo y que las otras se desplacen hacia abajo (o una posición en el array) no se puede.

sin embargo puedes hacer algo relativamente fácil, utiliza una columna de tu array como un ID que identifique cada línea (fila)

en el mismo ejemplo  si deseas insertar una nueva linea en la posicion 11, pues agregas la información al final del array y le colocas como ID el 10a por decir algo (10 porque está despues del 10, y el a para indicar que es otra linea)

luego al final ordenas tu array por ese Id, y de esa forma todas las lineas te quedaran en la posición que tu necesitas y y listo, cuando la pases nuevente al excel estaran en el orden que las necesitas.

espero que me haya explicado bien, suerte