Copiar 4 columnas de una hoja a otras hojas

Por favor ayúdenme a realizar el siguiente ejercicio, en la hoja 1 tengo 4 columnas (A,B,C,D) con 100 datos cada una. Necesito hacer una macro que me copie el contenido de las columnas A y B a la hoja 2 y la columna C y D a la hoja 3. Hay que realizar el ejercicio celda por celda (do while).

Gracias

Respuesta

Por que con do while? ¿Cuál es la condición a cumplir si solo veo que necesitas copiar las celdas enteritas cada vez que arranques la macro no?

Hay que agregar más datos:

Copiar la columna A y B de la hoja1, ¿y en la hoja2 en donde se copiaran? ¿En la misma columna?

Copiar la columna C y DE de la hoja1, ¿y en la hoja3 en donde se copiaran? ¿En las misma columna?

Sub copiarcolumna()
'

Sheets("Hoja1").Select
Columns("A:B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select 'en la hoja 2 pegara las columnas copiadas en las mismas columnas.
Columns("A:B").Select
ActiveSheet.Paste
Sheets("Hoja1").Select
Columns("C:D").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja3").Select 'en la hoja 2 pegara las columnas copiadas en las mismas columnas.
Columns("C:D").Select
ActiveSheet.Paste
End Sub

Finaliza please o dame más info.

Slds.

Gracias por tu colaboración, los datos de las hojas 2 y 3 se pueden copiar en las mismas columnas de la hoja 1. Pero recuerda que la macro debe copiar los datos celda por celda, puede ser con un Do While o alguna instrucción de este mismo tipo.

Do while es una condicionante, ¿Cuál es la condición que requieres que obedezca? Es decir debe de haber algo que la detenga.

Slds.

El bucle debe ser haga mientras contador sea <=100

¿Osea quieres que copia hasta la fila 100? ¿En dado caso no seria más fácil que copie las celdas deuna en una hasta que encuentre una en blanco o algo similar?

O bien no se por que requieres que la copie de una en una si lo que quieres es copiar las primeras 100 valores de las columnas indicadas entonces creo que seria más fácil asignarle un rago, ¿o hay algún motivo en especial por el cual deba copiarla de una en una?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tablas vinculadas

Tablas vinculadas (20/5/2003) Gracias por atenderme, Mi problema es quiero que en una tabla se vayan reflejando los datos que escribo en una primera tabla en otra hoja, hasta ahí todo muy fácil. El problema es que la tabla en la que escribo los datos...
1 respuesta

Copiar rango de celdas según condición VBA

Necesito de su ayuda en lo siguiente, quiero copiar un rango de celdas y pegarlas en otra ubicación solo si cumple una condición, por ejemplo tengo una columna digamos B:B la cual tiene valores como nombres de personas en cada celda por ejemplo b1 =...
2 respuestas

¿Cómo crear una tabla resumen clasificada de acuerdo a valor de una celda?

Tengo un archivo de excel conformado por varias hojas, en cada una de las hojas un resumen de gastos mensual que esta ordenado por fecha y esta compuesto de varios datos En la primera columna esta un código de clasificación (importante) y en las...
1 respuesta

Buenas tardes como están... Tengo una macro que compara diferencias entre 2 hojas

La macro compara las diferencias entre las 2 hojas y copia las diferencia en una tercera. Y trabaja bien con 30 o 40 lineas pero necesito que compare unas 900 o 1000 lineas, Otra cosa esta macro tiene una hoja ( hoja 1 como master) y importa datos de...
1 respuesta

Cortar fila de una hoja y pegar en otra hoja en la siguiente libre

Y feliz año! Tengo un excel con 2 hojas, una con datos de pedidos antiguos y otro con datos de pedidos actualizados. Quiero hacer una macro que automáticamente copie la fila de los pedidos nuevos de la hoja 2 en la hoja 1 (al final), es decir...
1 respuesta

Copiar De una hoja a otra datos determinados

Y a ver si me podéis ayudar porque llevo mucho rompiéndome la cabeza con esto y no consigo saber si se puede hacer. Tengo un libro con dos hojas. En la primera (Hoja 1) Tengo una "base de datos" en la que en la que: Columna A :Nombre productos;...
1 respuesta

Macro que vea si se cumple una condición y copie otra celda de la fila, si no que baje y re-evalúe

Necesito ayuda para crear una macro que evalué si una celda (HOJA 1, Celda L2) cumple una condición. Si la condición se cumple (="Cobro"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B2) y lo pegue en una tercer celda...
2 respuestas

Macro copiar columnas rango variable

Llevo tiempo consultando la web de todoexpertos, y siempre que surge una duda intento resolverla a partir de alguna respuesta que encuentro en el site, aunque no siempre es evidente!... Te comento, tengo una tabla excel en hoja1 y quiero seleccionar,...
1 respuesta

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta

Necesito una macro para copiar la celda activa de una hoja en otra celda de otra hoja

Soy nuevo en la página y un poco novato todavía con las macros de excel. Necesitaría una macro para copiar el valor de la celda que tengo activa en una hoja del libro excel a otra celda de otra hoja de ese mismo libro.
2 respuestas