Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Macro para copiar y pegar de una hoja a otra

publicado

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]

Featured Replies

publicado

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.

publicado
  • Autor

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.

publicado

Hola stepha.

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

Saludos.

Archivado

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

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.