Pegar en celdas vacias hasta ultimo dato en otra columna

El jueves, 26 de abril de 2012 15:32:01 UTC+1, gonza3591 escribió:

¡ Hola !
Les cuento tenga una columna "e" con datos variables y 3 columnas
"b,c,d" donde quiero ingresar una serie de datos y despues copiarlos y
pegarlos hasta la ultima fila donde tenga datos en "E"
Tengo esta macro donde ingreso los datos en b,c,d los selecciono y activo la
macro pero obviamente solo me pega el valor en la ultima fila y me quedan todas
las del medio vacias. Alguna Ayuda?

Selection.Copy
RowFin = Range("E500").End(xlUp).Row
Range("B" & RowFin).Select
ActiveSheet.Paste

Si la primera fila en la que quieres pegar los datos es la segunda (suponiendo que en la primera fila tienes la cabecera)
puedes modificar tu macro de esta forma:

Selection.Copy
RowFin = Range("E500").End(xlUp).Row 'CUIDADO NO FUNCIONA para más de 500 filas
Range("B2:E" & RowFin).Select 'Seleccionas de B2:EX donde X es la última fila
ActiveSheet.Paste

Depende de lo que estés copiando (formulas, datos) esta opción puede que te sirva o puede que no. Pero hay otras opciones, mira a ver si te sirve y si no, buscamos una alternativa.

Saludos

Pedro F. Pardo escribió el 26/04/2012 16:59 :

El jueves, 26 de abril de 2012 15:32:01 UTC+1, gonza3591 escribió:

¡ Hola !
Les cuento tenga una columna "e" con datos variables y 3 columnas
"b,c,d" donde quiero ingresar una serie de datos y despues copiarlos
y
pegarlos hasta la ultima fila donde tenga datos en "E"
Tengo esta macro donde ingreso los datos en b,c,d los selecciono y activo la
macro pero obviamente solo me pega el valor en la ultima fila y me quedan
todas
las del medio vacias. Alguna Ayuda?

Selection.Copy
RowFin = Range("E500").End(xlUp).Row
Range("B" & RowFin).Select
ActiveSheet.Paste

Si la primera fila en la que quieres pegar los datos es la segunda (suponiendo
que en la primera fila tienes la cabecera)
puedes modificar tu macro de esta forma:

Selection.Copy
RowFin = Range("E500").End(xlUp).Row 'CUIDADO NO FUNCIONA para
más de 500 filas
Range("B2:E" & RowFin).Select 'Seleccionas de B2:EX donde X es
la última fila
ActiveSheet.Paste

Depende de lo que estés copiando (formulas, datos) esta opción
puede que te sirva o puede que no. Pero hay otras opciones, mira a ver si te
sirve y si no, buscamos una alternativa.

Saludos

Sirve pero no del todo, para que se entiendo mejor supongamos que en "E" tengo datos desde la fila 1 a la 10 ejecuto la macro y funciona perfecto, pero si yo agrego mas valores en E y quiero poner otros datos en B,C, y D me sobreescribe todos los anteriores . El problema estaria en

Range("B2:E" & RowFin).Select

Habria que buscar la forma de hacer variable ese 2.

Dejando de lado ese tema hago una consulta mas general. ¿hay alguna forma de deshacer los cambios que hace una macro?. probe el clasico Ctrl+Z pero no pasa nada