COPIAR columna de una hoja A OTRA HOJA

15/03/2007 - 03:11 por Israel | Informe spam
Hola que tal a todos

Tengo dos dudas para programar un macro las cuales son las
siguientes:


1.Tengo la columna A,B,C,D,E; la cual contiene "n" celdas con texto,
mi duda es que quiero automatizar la accion de que las 5 columnas, se
copien en una sola columna supongamos la columna F, (esto es que el
macro identifique hasta que fila contiene texto la columna y que la
copie y pegue en la columna F)


por ejemplo
""COLUMNA F"""
Contenido de columna "A"
Contenido de columna "B"
Contenido de columna "C"
Contenido de columna "D"
Contenido de columna "E"


Duda 2.
Realizar un macro para que copie de la hoja 1 y realize la accion de
rellenar hacia abajo (solo 8 celdas) en la hoja dos en la columna
"A".
Ejemplo
*****************Hoja1***************
****************Hoja2*******************
COLUMNA
A
COLUMNA A


fruta
fruta


fruta


fruta


fruta


fruta


fruta


fruta


fruta
LA columna A de la hoja 1 contiene 6000 filas con datos los cuales
quiero que los copie y los pegue(rellene hacia abajo 8 celdas en la
columna A de la hoja2)


Les agradeceria mucho que me pudieran ayudar a realizar el codigo
para
el macro
gracias Maestros del excel
 

Leer las respuestas

#1 Willi
15/03/2007 - 12:59 | Informe spam
Hola, Israel, Veamos si este código resuelve tu segunda duda, me
comentas:

Sub CopiarRepetir()
Dim Fila As Long

For Fila = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row
To 1 Step -1
Worksheets("Hoja1").Cells(Fila, 1).Copy _
Destination:=Worksheets("Hoja2").Cells(Rows.Count,
1).End(xlUp).Offset(1).Resize(8)
Next
End Sub



Preguntas similares