Abro nuevo tema para tratar de obtener ayuda a la solucion de este problema. Quiero mencionar que hasta llegar a obtener este codigo, he tenido la ayuda de una persona muy valida, una persona muy gentil y comprensiva al momento de dar ayuda pero, hace tiempo que no se nada de ella. vengo al nuevo tema por que tengo estos dos codigos con la misma funcion pero; con cualquier de los dos codigos, en la hoja1 me dá error en la linea For Each forma In ActiveSheet.Shapes El libro (para las pruebas), las dos hojas contienen imagenes y formas insertadas, demas de formulas, codigo y botones, no pretendo que me elimine ni formas ni imagenes, de echo NO LAS ELIMINA, pero lo digo como referencia y las 2 hojas son casi gemelas El error dice: Se ha producido el error '40036' en tiempo de ejecucion: Error definido por la aplicacion o el objeto. Copia la hoja pero, no guarda, no elimina codigo, formulas ni botones Los dos codigos tienen la MISMA funcion Sub CopiaSOLO_ValoresHoja5() 'funciona bien en la Hoja2 pero no en la Hoja1 'Copia la hoja ActiveSheet.Copy 'el nuevo libro se convierte en activo, así que copiamos y pegamos SOLO valores. Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False 'eliminamos controles con macros Dim forma As Shape For Each forma In ActiveSheet.Shapes 'DA ERROR EN ESTA LINEA EJECUTANDO EN LA HOJA1 If forma.OnAction <> "" Then 'tiene macro asociada forma.Delete End If Next 'Elimina el codigo de hoja copiada With ActiveSheet With .Parent.VBProject.VBComponents(.CodeName) 'DA ERROR EN ESTA LINEA COPIANDO LA HOJA1 .CodeModule.DeleteLines 1, .CodeModule.CountOfLines End With End With ActiveSheet.Range("a2").Select 'Para que al abrir el nuevo libro, no presente seleccionada la hoja completa ' guardamos y cerramos el libro, segun la linea seleccionada. Dim SaveName As String SaveName = ActiveSheet.Name Application.Dialogs(xlDialogSaveAs).Show MsgBox "Guardado el libro con el nombre de hoja " & SaveName 'el nombre definido o celda. Cambiar segun la linea de guardar como, activa End Sub --------------------------------------------------------------------- Este dá el mismo error en la misma linea For Each forma In ActiveSheet.Shapes Sub HojaActivaNuevoLibro() 'funciona bien en la Hoja2 pero no en la Hoja1 'Crea un libro para la hoja activa, sin botones ni macros ni fórmulas Dim strRuta As String Dim i As Integer 'copiamos la hoja Application.ScreenUpdating = False 'Copia la hoja ActiveSheet.Copy '1º DABA ERROR EN ESTA LINEA COPIANDO LA HOJA1, LUEGO DEJO DE DAR Y PASAR A LA OTRA 'donde guardar los archivos creados strRuta = "C:\2" 'eliminamos controles con macros Dim forma As Shape For Each forma In ActiveSheet.Shapes 'A ESTA If forma.OnAction <> "" Then 'tiene macro asociada forma.Delete End If Next 'eliminamos el código de la hoja si existe With ActiveSheet With .Parent.VBProject.VBComponents(.CodeName) .CodeModule.DeleteLines 1, .CodeModule.CountOfLines End With End With 'el nuevo libro se convierte en activo, así que copiamos y pegamos solo valores. Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Range("a2").Select 'Para que al abrir el nuevo libro, no presente seleccionada la hoja completa ' guardamos y cerramos el libro, segun la linea seleccionada. ActiveWorkbook.SaveAs FileName:=strRuta & "\" & Range("DATA2").Value '1ª opcion. Desactivando las lineas 40 y 41 ActiveWorkbook.Close True 'cierra el libro MsgBox "Guardado el libro en la ruta " & vbLf & strRuta & " \ " & " con el nombre " & Range("DATA2").Value & ".xlsx" 'el nombre definido o celda. Cambiar segun la linea de guardar como, activa Application.ScreenUpdating = True End Sub En cualquier de los dos, quisiera tener la OPCION de PODER seleccionar la extension, .xls o xlsx Me hago la siguiente pregunta; ¿porque en la Hoja1 y no en la Hoja2? si son las 2 casi lo mismo Las dos tienen imagen, formulas y formas insertadas y en la Hoja2 funcionan perfecto pero en la Hoja1, este error

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Copiar SOLO Valores. Error 2 macros con la misma funcion

Autor del tema JoaoM
Fecha de inicio 26 Dic 2011

JoaoM

Member

26 Dic 2011

Abro nuevo tema para tratar de obtener ayuda a la solucion de este
problema.

Quiero mencionar que hasta llegar a obtener este codigo, he tenido la ayuda
de una persona muy valida, una persona muy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Alguna Macro para copiar solo los valores Numéricos.

Respuestas: 3

1 Oct 2024

JasallBcn

Pregunta

Hacer que solo se puedan copiar y pegar valores y comentarios

Respuestas: 18

9 Sep 2024

jesusmart1nez

Resuelto

Copiar y pegar solo valores

Respuestas: 5

14 Sep 2023

sagma

Resuelto

hacer macro simple de copiar, pegar y borrar valores en un solo botón

Respuestas: 3

21 Feb 2022

jmsc24

Pregunta

Copiar y pegar solo celda con valores

Respuestas: 2

29 Jun 2020

Sebastian SCH

Pregunta

Macro para copiar celda con formulas y pegar solo valores

Respuestas: 4

5 Abr 2019

Vico

Pregunta

MACRO PARA COPIAR SOLO VALORES

Respuestas: 2

2 Feb 2019

Héctor Miguel

Pregunta

Copiar una hoja dirección sin formulas, solo aspecto.

Respuestas: 3

31 Ago 2024

6luishao6

Pregunta

Macro para copiar valor solo a rango de celdas visibles

Respuestas: 10

13 Mar 2023

Goldfinger

Pregunta

Copiar solo datos nuevos

Respuestas: 5

30 Ene 2023

Sagatec

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba