Forums Últimos mensajes - Powered by IBM
 

MACRO INSERTAR FILAS INTERMEDIAS en BASE DATOS

18/12/2005 - 02:52 por HMS | Informe spam
Hola Amig@s:

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
 

Leer las respuestas

#1 spi
11/07/2013 - 19:29 | Informe spam
KL escribió el 18/12/2005 19:09 :
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




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.

Preguntas similares