Saltar al contenido

Macro para copiar y pegar de una hoja a otra


Recommended Posts

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]

Enlace a comentario
Compartir con otras webs

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.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.