MACRO INSERTAR FILAS INTERMEDIAS en BASE DATOS

Gracias a ambos por su valiosa y sobre todo pronta respuesta.
Utilize la macro de KL, y me funciono de maravilla.

Disculpen la redaccion si parece algo extrana !!!

Quisiera saber si me podrian ayudar con la segunda parte de mi pregunta.
Ahora que tengo las filas en blanco que inserte con la macro, quisiera poder
copiar en la fila que quedo en Blanco, exactamente losa datos inmediatos
superior, para toda la BD.

En realidad imaginemos una BD, en donde necesito cada fila Duplicada.


De antemano muchas gracias !!!

HMS


"KL" wrote in message
news:OnmPj4$
Mostrar la cita

Hola HMS,

Prueba esto para tu primera cuestion (tardara un pelin :-)).

Saludos,
KL


Sub test()
Dim UFila As Long, PFila As Long
With ActiveSheet
UFila = .Cells(.Rows.Count, 1).End(xlUp).Row
PFila = Application.InputBox( _
"Introduce el numero de la fila inicial")
If PFila > UFila Or PFila = 0 Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
For i = UFila To PFila Step -1
.Rows(i + 1).Insert
Next i
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End With
End Sub


"HMS" wrote in message
news:
Mostrar la cita

Hola :

Tengo dos bases de datos de unos 500 registros, y necesitos hacer las
siguientes acciones y quisiera saber si alguno de ustedes me ayuda.

En la primera base de datos (de aproximada unos 4000 registros), quisiera
que a partir de una fila que yo le determine, inserte una fila en blanco,
por ejemplo en A2 se encuentra un un codigo, y en A3 otro codigo,
quisiera que una macro inserte una fila en medio de esos codigos, es
decir el Valor que esta en A3, ahora quedaría en A4, y así sucesivamente.

Por otro lado, en la otra base de datos, tengo la misma situación, pero
necesito, que cuando inserte la Fila en Blanco, COPIE, el valor que queda
en la fila superior, es decir al insertar la FILA en blanco debajo de A2,
en esa misma Fila (A3), se debe de copiar la Fila de A2, de nuevo, y así
sucesivamente.

De antemano les agradecería cualquier ayuda que me puedan brindar.

Saludos
HMS

Hola HMS,

Prueba esto para tu primera cuestion (tardara un pelin :-)).

Saludos,
KL


Sub test()
Dim UFila As Long, PFila As Long
With ActiveSheet
UFila = .Cells(.Rows.Count, 1).End(xlUp).Row
PFila = Application.InputBox( _
"Introduce el numero de la fila inicial")
If PFila > UFila Or PFila = 0 Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
For i = UFila To PFila Step -1
.Rows(i + 1).Insert
Next i
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End With
End Sub


"HMS" wrote in message news:
Mostrar la cita

Hola :

Tengo dos bases de datos de unos 500 registros, y necesitos hacer las siguientes acciones y quisiera saber si alguno de ustedes me
ayuda.

En la primera base de datos (de aproximada unos 4000 registros), quisiera que a partir de una fila que yo le determine, inserte
una fila en blanco, por ejemplo en A2 se encuentra un un codigo, y en A3 otro codigo, quisiera que una macro inserte una fila en
medio de esos codigos, es decir el Valor que esta en A3, ahora quedaría en A4, y así sucesivamente.

Por otro lado, en la otra base de datos, tengo la misma situación, pero necesito, que cuando inserte la Fila en Blanco, COPIE, el
valor que queda en la fila superior, es decir al insertar la FILA en blanco debajo de A2, en esa misma Fila (A3), se debe de
copiar la Fila de A2, de nuevo, y así sucesivamente.

De antemano les agradecería cualquier ayuda que me puedan brindar.

Saludos
HMS

hola, tocayo !

__ 1 __
Mostrar la cita

... primera base de datos (... unos 4000 registros), quisiera
que a partir de una fila que yo le determine, inserte una fila en blanco
por ejemplo en A2... un codigo, y en A3 otro codigo
que... inserte una fila en medio de esos codigos
es decir el Valor que esta en A3, ahora quedaria en A4, y asi sucesivamente.

__ 2 __
Mostrar la cita

... en la otra base de datos... la misma situacion, pero necesito, que cuando inserte la Fila en Blanco
COPIE, el valor que queda en la fila superior, es decir al insertar la FILA en blanco debajo de A2
en esa misma Fila (A3), se debe de copiar la Fila de A2, de nuevo, y asi sucesivamente.

-> [creo que] ambas partes de tu consulta crean [un poquito de]... 'confusion'
no es 'claro' si [realmente] necesitas insertar una fila 'intercalada' -> a todos tus registros -?-
o... 'solamente' en la fila posterior al registro que le indicas/encuentra/necesitas/... -?-

te paso algunas 'alternativas' de solucion [segun mis supuestos] en el sentido de que...
la 'realidad' fuera solo en la fila posterior al registro solicitado
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

1) si se encuentra en 'A2'... insertar UNA fila en 'A3', con lo cual 'A3' se desplaza a 'A4'... prueba con:
-> Range("a2").Offset(1).EntireRow.Insert

2) siguiendo con la misma 'suposicion' de insertar SOLO una fila 'debajo' del registro solicitado/encontrado/...
prueba con alguna de las siguientes opciones de codigo:

op1:
[... otras lineas de tu codigo ...]
With Range("a2")
.Offset(1).EntireRow.Insert
.EntireRow.Copy .Offset(1)
End With
[... otras lineas de tu codigo...]

op2:
[... otras lineas de tu codigo ...]
With Range("a2")
.EntireRow.Copy
.Offset(1).Insert xlDown
End With
Application.CutCopyMode = False
[... otras lineas de tu codigo ...]

KL escribió el 18/12/2005 19:09 :
Mostrar la cita

Hola HMS,

Prueba esto para tu primera cuestion (tardara un pelin :-)).

Saludos,
KL


Sub test()
Dim UFila As Long, PFila As Long
With ActiveSheet
UFila = .Cells(.Rows.Count, 1).End(xlUp).Row
PFila = Application.InputBox( _
"Introduce el numero de la fila inicial")
If PFila > UFila Or PFila = 0 Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
For i = UFila To PFila Step -1
.Rows(i + 1).Insert
Next i
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End With
End Sub


"HMS" wrote in message
news:
Mostrar la cita

Hola :

Tengo dos bases de datos de unos 500 registros, y necesitos hacer las
siguientes acciones y quisiera saber si alguno de ustedes me
ayuda.

En la primera base de datos (de aproximada unos 4000 registros), quisiera que
a partir de una fila que yo le determine, inserte
una fila en blanco, por ejemplo en A2 se encuentra un un codigo, y en A3 otro
codigo, quisiera que una macro inserte una fila en
medio de esos codigos, es decir el Valor que esta en A3, ahora quedaría
en A4, y así sucesivamente.

Por otro lado, en la otra base de datos, tengo la misma situación, pero
necesito, que cuando inserte la Fila en Blanco, COPIE, el
valor que queda en la fila superior, es decir al insertar la FILA en blanco
debajo de A2, en esa misma Fila (A3), se debe de
copiar la Fila de A2, de nuevo, y así sucesivamente.

De antemano les agradecería cualquier ayuda que me puedan brindar.

Saludos
HMS

Hola amigo, seria posible realizar una macro o un proceso en el cual me inserte un fila en blanco despues de dos registros duplicados, me explico, en la fila A5 tengo un valor de 2500 y en la fila A6 el mismo valor 2500, adicional en la fila A20 tengo un valor de 4000 y en la fila A21 el mismo 4000, necesitaria que se insertara una fila en blanco despues de esto, es posible realizarlo.