Macro Copiar Lista En Otra Hoja

Va dirigida a Dante Amor

Dante buenas tardes, siguiendo con Macros en Excel 2003, por favor
Tengo un lista de números uno debajo de otro (aproximadamente de 800 números en la hoja 1) necesitaría que la misma copiar como pegado especial (valores) en la hoja 2 donde tengo una base de 2 columnas A y B y 4 filas. Al copiar los números debería estar ubicados de izquierda a derecha.

Ej.
A B

1 2

3 4

5 6

7 8

1 Respuesta

Respuesta
1

¿Quieres pasar los números de la hoja1 a la hoja2?

Pero no entendí cómo están en la hoja1 y cómo los quieres en la hoja2.

¿Puedes poner un ejemplo de cómo están en la hoja1 y cómo los quieres?

En la hoja 1 esta de esta forma:

COD

300

301

302

303

304

305

306

307

308

309

y así sucesivamente...

En la hoja 2

Estos números copiado especial (valores)

Columna A                    Columna B

300                                          301

302                                           303

304                                           305

Y así sucesivamente...

Te mando por correo el archivo

Saludos

Te anexo la macro para copiar la lista

Sub Etiquetas()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    h2.Cells.ClearContents
    j = 1
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Step 2
        h2.Cells(j, "A") = h1.Cells(i, "A")
        h2.Cells(j, "B") = h1.Cells(i + 1, "A")
        j = j + 1
    Next
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar rango a otra hoja si una celda es mayor a 0

Busco una macro en excel que me ayude con lo siguiente: Tengo en el rango B9:N38 de la hoja 1 una tabla de datos. En la columna B de tal tabla hay valores que van a partir de 0. Deseo copiar de la hoja 1 a la hoja 2 aquellos "renglones" que en la...
1 respuesta

Macro que me busque un valor y lo copie a otra hoja

Requiero de su sabiduría Necesito crear una macro que evalué si una celda (HOJA 1, Celda U3) cumple una condición. Si la condición se cumple (="Eisai613"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B3) y lo pegue en...
2 respuestas

Cómo establecer un valor límite en la división de un rango de valores

La siguiente macro nos permite ingresar un valor máximo para dividir un rango y copiar los valores únicos en una Hoja2. Sub DividirValorConLimite() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 =...
1 respuesta

Copiar datos de una columna a varias columnas en otra hoja.

Porque estoy algo perdido. Tengo en una columna cerca de 9000 datos que tengo que pasar a varias columnas en otra hoja. Estos datos corresponden a unos valores de potencia fotovoltaica generada durante un año de forma diaria y con muestreos a cada...
2 respuestas

Copiar celdas de una hoja a otra si son mayores a cero

En la Hoja1, en la columna "H" tengo valores que van de cero en adelante, si el valor de "H" es mayor que cero, entonces: copia las celdas "A", "B" y "H" en la Hoja2 en las Celdas "A8","B8" y "G8" Esta operacion debe hacerse hasta que en la Hoja1 se...
1 respuesta

Macro para buscar, encontrar y copiar datos especificos

Tengo un libro con 2 hojas, hoja1 y hoja2, en la hoja2 tengo una base de datos de la siguiente manera: (Ej. Juan, tengo muchos mas con diferentes nombres e información diferente pero en el mismo orden) A B C D E 1 JUAN 2 1/1/14 INGRESOS 1 1ER SEM...
1 respuesta

¿Cómo adecuar una programación a un rango de fechas que puede aumentar de manera imprevista en el tiempo?

Tengo un archivo Excel en el que tengo una base grande de datos que aumenta conforme pasa el tiempo. Dicho archivo posee una programación que realiza lo que quiero que haga pero no mitiga el riesgo de que para una misma fecha se aumenten datos.
2 respuestas

Macro para eliminar y copiar filas en otra hoja

Aquí, haciendo incursiones con las macros pero esto es muy complejo. Agradecería mucho su ayuda. Tengo 2 hojas de excel en un libro. En la hoja 1 tengo miles de filas y datos repartidos en 10 columnas. En la hoja 2 cientos de filas y datos repartidos...
1 respuesta

Macro para copiar valores a partir de una fecha

Necesitaría ayuda para crear una macro para que me copie un rango de valores a partir de una fecha, por ejemplo en una celda de la Hoja 2 pongo 25/08/2008, la macro debería ir a la columna A de la Hoja1 buscar donde se encuentra esa fecha y copiar...
1 respuesta

Como dividir un rango atendiendo al valor máximo que queremos obtener

En relación a una pregunta anterior, en la que resolviste cómo dividir el valor de una celda que contiene un rango para crear una linea con cada valor único, me gustaría saber si se podría cambiar la macro para que el número que ingresemos sea el...
1 respuesta