Copiar Datos de una hoja otra hoja

A los miembros de este foro, y recurro nuevamente a solicitar su ayuda en como crear una macro que permita crear en el mismo archivo una nueva hoja con el nombre Billete y a la vez copiar algunas columnas que necesito en esta hoja conservando sus respectivas cabeceras y anchos que se encuentra en la hoja PLANILLA y los datos a utilizar son de las columnas
A a la H, L, AA, AB, AG, AK, AL, AP, AQ.

Con sus respectivos totales y a la espera de su colaboración quedo muy agradecido. Y a la vez alguien me indicara una ruta exacta para subir el archivo.

1

1 Respuesta

4.700.475 pts. Sancho, si los perros ladran ...

H o l a:

Envíame tu archivo y ahí me explicas qué quieres copiar, cómo lo quieres copiar en dónde lo quieres copiar.

Pon un ejemplo real de tu hoja "planilla" y un ejemplo real de cómo quedaría tu hoja "billete".

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Canon Sata” y el título de esta pregunta.

Amigo, acabo de enviar el archivo

H o l a:

Te anexo la macro para copiar:

Sub CopiarHoja()
'Por.Dante Amor
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set h1 = Sheets("planilla")
    hoja = "Billete"
    ini = 1
    'fin = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row
    fin = h1.Range("AK" & Rows.Count).End(xlUp).Row
    '
    For Each h In Sheets
        If UCase(h.Name) = UCase(hoja) Then
            existe = True
            Exit For
        End If
    Next
    If existe Then
        Sheets(hoja).Delete
    End If
    Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
    h2.Name = hoja
    '
    cols = Array("A", "B", "C", "D", "E", "F", "G", "H", "L", "AA", "AB", "AG", "AK", "AL", "AP", "AQ")
    j = 1
    For i = LBound(cols) To UBound(cols)
        h1.Range(cols(i) & ini & ":" & cols(i) & fin).Copy h2.Cells(1, j)
        h1.Range(cols(i) & ini & ":" & cols(i) & fin).Copy
        h2.Cells(1, j).PasteSpecial Paste:=xlPasteColumnWidths
        j = j + 1
    Next
    '
    For i = ini To fin
        alto = h1.Cells(i, "A").RowHeight
        h2.Cells(i, "A").RowHeight = alto
    Next
    MsgBox "Copia terminada"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas