Error de codigo para copiar y pegar de una hoja a otra

Bueno días foristas:

En anteriores ocasiones me a sido de mucha importancia su ayuda y sus conocimientos por lo que vengo ahora a pedirle auxilio de nuevo.

En un archivo de Excel tengo un código en la hoja "PARA SUBIR" que se supone me ayudaría a copiar unos datos de la hoja "CONVERTIR" y las pasaría en formato de texto (sin formulas) a la hoja "PARA SUBIR", pero me esta mostrando un error de procedimiento y no me deja correr la macro.

Acá dejo el Código que estoy usando, si alguno de ustedes me puede ayudar estaría eternamente agradecida.

Private Sub CommandButton1_Click() Application.ScreenUpdating = False

'   Comenzaremos por limpiar la zona, esto con el fin d copiar todos los datos nuevament,

'   tanto nuevos datos como los viejos datos.

' Esto sera en la hoja donde seran copiados los datos

    Range("A2:M65536").Select

    Selection.ClearContents

    Selection.Interior.ColorIndex = xlNone

    Range("A2").Select

'   Creamos un ciclo, para recorrer las ocho hojas.

    For hoja = 4 To 4

        Sheets(hoja).Select 'Seleccionamos la hoja de donde se obtendran los datos.

        Range("A2:M65536").Select

        Selection.End(xlDown).Select

        Ren = Application.ActiveCell.Row 'Guardamos el dato del reglon.

        Range("A2:M" & Ren & "").Select 'Seleccionamos el rango.

        Selection.Copy

        Sheets("PARA SUBIR").Select    'Seleccionamos la hoja donde se vaciaran los datos.

        Range("A2").Select


        If Application.ActiveCell <> "" Then

            Selection.End(xlDown).Select

            Ren = Application.ActiveCell.Row

            Range("A" & Ren + 1).Select

        End If

        ActiveSheet.Paste   'Pegamos los datos.

        Application.CutCopyMode = False

        Range("A2").Select

    Next

'   Selecionamos todo el rango.

    Range("A2:M65536").Select

'   Sorteamos por la columna d fecha.

    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    Range("A2").Select

    Application.ScreenUpdating = True   'Habilitamos los pantallasos.

End Sub[/CODE]

Re: Error de codigo para copiar y pegar de una hoja a otra

Buenas.

Según las normas del foro deberias subir el archivo. Te aseguro que obtendrias ayuda mas rapido.

Saludos.

El sistema no me deja subir el archivo, por mas que lo comprimo no me permite cargarlo, es por eso que puse el código en la pregunta.

- - - - - Mensaje combinado - - - - -

El sistema no me deja subir el archivo, por mas que lo comprimo no me permite cargarlo, es por eso que puse el código en la pregunta.

- - - - - Mensaje combinado - - - - -

El sistema no me deja subir el archivo, por mas que lo comprimo no me permite cargarlo, es por eso que puse el código en la pregunta.

Hola stepha.

Comprime y corta el archivo en dos ó mas partes y sube las partes.

Saludos.