MACRO INSERTAR FILAS INTERMEDIAS en BASE DATOS

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:

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