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