Inicio > Microsoft Excel > barsimpson > Seleccionar un rango de celdas vacías para copiar info

Seleccionar un rango de celdas vacías para copiar info

Experto: barsimpson Cerrar	Usuario: pink_floyd Cerrar	Fecha: 05/11/2009
Valoración:	Categoría: Microsoft Excel

04/11/2009

Usuario

Hola experto. Espero me puedas ayudar. Mira estoy haciendo una macro en la cual Excel abre un archivo Ascii con separador de comas, selecciona la información de este archivo y lo pega en el archivo principal. Hasta aquí todo bien.
EL problema que tengo, es que al momento de pegar la información en las filas insertadas, tengo 4 columnas contiguas que calculan información. QUiero que busque la última celda con información de la columna F y copie las formulas hacia cada una de las celdas de arriba. Lo mismo con la columna G,H, I.
Si no soy muy claro, me avisas para ampliar.
saludos y gracias

05/11/2009

Usuario

A ver si tengo mejor suerte y algún experto me puede dar una mano en esto.
Hola experto. Espero me puedas ayudar. Mira estoy haciendo una macro en la cual Excel abre un archivo Ascii con separador de comas, selecciona la información de este archivo y lo pega en el archivo principal. Hasta aquí todo bien.
EL problema que tengo, es que al momento de pegar la información en las filas insertadas, tengo 4 columnas contiguas que calculan información. QUiero que se possicione en la columna F, busque la primera celda con información de esta columna y copie las formulas de esta celda hacia cada una de las celdas de arriba que estan vacías. Lo mismo con la columna G,H, I.
Si no soy muy claro, me avisas para ampliar.
saludos y gracias

05/11/2009

Experto

No se si es loque necesitas---
Me confirmas

Sub MyMacro()
    Application.ScreenUpdating = False
    Range("f1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Copy
    ActiveCell.Offset(-1, 0).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = xlCopy

End Sub

Saludos
www.expertosmacrosexcel.es.tl

05/11/2009

Usuario

perfecto barsimpson pero; si la celda F1 contiene los titulos, como hago para que no se copie en esta celda la información de las fórmulas?
por lo demás excelente.

05/11/2009

Experto

Listo
Sub MyMacro()
    Application.ScreenUpdating = False
    Range("f1").Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Copy
    ActiveCell.Offset(-2, 0).Select
    Range(Selection, Selection.End(xlUp)).Offset(1,0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = xlCopy

End Sub
Saludos
www.expertosmacrosexcel.es.tl

05/11/2009

Usuario

Creo que ahora se perdió.
Selecciona dos columnas a la derecha y les pone el valor de 1 a toda la columna.

05/11/2009

Experto

Mira ya lo provee y funciona.....
es el mismo cidigo que le primero, solo le agregue que en la fila del titulo no te pegue nada....
revisalo....a lo mejor tuenes por hay algo mal..
Saludos

www.expertosmacrosexcel.es.tl

05/11/2009

Usuario

Mil Gracias. Tenías razón. tenía que cambiar un valor.
te agradezco por tu pronta respuesta

Facebook

Twitter

Compártelo

Volver a preguntar

Cerrar

... en "Microsoft Excel"

... a un experto de "Microsoft Excel"

... en otra categoría.
Herramientas

Cerrar

Imprimir

Descargar
Volver

Más opciones

Enlaces patrocinados

Respuestas relacionadas