copiar desde la hoja1 cols A, B, C, G, F, R, S, T hasta la hoja 2 en las columnas A, B, C, D, E, F, G, H

Question

Jul 30, 2018, 11:43 PM

copiar desde la hoja1 cols A, B, C, G, F, R, S, T hasta la hoja 2 en las columnas A, B, C, D, E, F, G, H

Excel macro 2016 en VBA. Necesita copiar de 8 columnas separadas de una hoja a otra, en diferente orden. Probado pero la pasta se realiza siempre en la misma columna A ...

Code comienza con:

Sub Button1_Click()

Dim ultima_fila As Long
Dim rango, columna As String

Sheets("Validation by rules").Select
ultima_fila = Cells(Rows.Count, 1).End(xlUp).Row

' TableName
columna = "A"
    rango = columna & "1:" & columna & CStr(ultima_fila)
    MsgBox rango
    range(rango).Copy
    Sheets("TMP").Paste

'TableField
columna = "B"
    rango = columna & "1:" & columna & CStr(ultima_fila)
    MsgBox rango
    range(rango).Copy
    Sheets("TMP").Paste

Sin embargo, no sé cómo decirle a la macro que pegue la segunda vez en B ...? o cualquier otro por cierto ...

Además, probé un bucle For sin éxito para evitar copiar / pegar mi código ... algo como:

Para X en (A, B, C, F, G, R, S, T)

Sin suerte tampoco ...

¡Muchas gracias