UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO COPIAR HOJAS SIN MACROS el 21/09/12, 01:47 am

Miltonm


Saludos, tengan la gentileza de ayudarme en lo siguiente:
Tengo 1 archivo con varias hojas las cuales tienen macros, deseo copiar algunas de estas hojas para guardar otro archivo pero sin las macros.
Gracias por la ayuda
Milton

2RESUELTO Copiar_hojas_sin_codigo_de_macros el 21/09/12, 03:47 pm

vladief


Si bien te entendi lo que requieres es copiar cualquer hoja sin que en esta copia vayan incluidas el codigo de tus macros, si es asi esta macro pueda ayudarte.

Lo que hace esta macro es crear una carpeta llamada "MIS_COPIAS" que sera en la carpeta principal donde se guardaran todas las subcarpetas con las copias realizadas.
Las sub carpetas seran nombradas con el nombre de la hoja activa + fecha + hora, por lo tanto lasd copias no podran superponerse con una copia anterior.
Dentro de las subcarpetas van las copias de la hoja del libro con su respectivo nombre.
Los libros copiados son guardados en formato de libro sin macros tal como necesitabas.

El sitio donde se crearan estas carpetas y copias es la particion D: , obiamente tu la puedes adaptar a tus necesidades.

OJO.- La contraseña para cualquier copia siempre sera la fecha actual, es decir para hoy la contraseña sera: 120921 (12 es el año, 09 es el mes y 21 es el dia)

Un saludo.
Vladimir Escalante (vladief)
Archivos
Mi_libro.xlsm
No tienes los permisos para descargar los archivos.
(21 KB)

3RESUELTO Bienvenido!! el 22/09/12, 01:25 am

Admin


Admin
Hola Milton / Vladimir.

Milton, con el presente aporte esperemos sea lo que requieres.

Vladimir: Aprovechamos el post para darte la más cordial bienvenida a nuestro círculo de aportantes.
Deseamos que tus participaciones sean frecuentes y como bien sabes cada pregunta tiene muchas soluciones y en la medida que se suban al foro, mayor es el acervo cultural...

Encontrarás una gran camaradería en todos los que conformamos "universo excel"

Saludos y que siga creciendo éste círculo.

Administración

http://www.universoexcelforo.com

4RESUELTO GUARDAR ARCHIVO SIN MACROS el 22/09/12, 02:00 pm

Miltonm


saludos, ante todo gracias por la respuesta, quiza me olvide de indicarles que yo trabajo con excel 2003, el adjunto de la respuesta no se abre,quiza sea por eso....?
Favor indicarme como debo descargar el adjunto enviado con la respuesta de Vladimir.
Gracias
Milton

5RESUELTO Copiar_hojas_sin_codigo_de_macros el 22/09/12, 03:53 pm

vladief


Hola Miltoon

Adjunto remito el archivo excel 2003.
La macro tambien corre normal con el Office 2003.
Si surge algun problema o consulta dimelo.

Sin embargo te sugiero que te actualices en relacion al uso de excel ya que te pierdes de fabulosas herramientas que te facilitaran mas tus tareas con excel, fuera de que ya esta por salir el nuevo Office 2013 que promete nuevas mejoras.

6RESUELTO copiar hoja sin macros el 22/09/12, 04:01 pm

vladief


va
Archivos
Mi_libro_2003.xls
lo siento aqui va el archivo
No tienes los permisos para descargar los archivos.
(57 KB)

7RESUELTO COPIAR HOJAS SIN MACROS el 22/09/12, 07:15 pm

Miltonm


SALUDOS DISCULPAS CREO QUE NO HE SIDO MUY EXPLICITO, HE SUBIDO UN ARCHIVO PARA MEJOR COMPRENSION DE LO QUE DESEO ME AYUDEN.
EN ESTE ARCHIVO ESTAN 3 HOJAS la Hoja DEMO, en donde se registra un nombre, la Hoja2 en donde debe existir el nombre registrado en la Hoja DEMO para que pueeda acceder caso contrario sale el menaje de error, y asi para la Hoja 3.
Mediante la macro COPIA hago una copia de las hojas 2 y 3 en las cuales reemplazo las formulas por valores.
Pero cmo las macros se ahn incorporado del archivo original me dan error.
Lo que deseo es que estas macros se eliminen al momento de hacer la copia.
Gracias
Archivos
COPIA HOJAS SIN MACROS.xls
ADJUNTO ARCHIVO PARA MEJOR COMPRENSION DE LA CONSULTA COPIAR HOJAS SIN MACROS
No tienes los permisos para descargar los archivos.
(41 KB)

Miltonm


SALUDOS DISCULPAS CREO QUE NO HE SIDO MUY EXPLICITO, HE SUBIDO UN ARCHIVO PARA MEJOR COMPRENSION DE LO QUE DESEO ME AYUDEN.
EN ESTE ARCHIVO ESTAN 3 HOJAS la Hoja DEMO, en donde se registra un nombre, la Hoja2 en donde debe existir el nombre registrado en la Hoja DEMO para que pueeda acceder caso contrario sale el menaje de error, y asi para la Hoja 3.
Mediante la macro COPIA hago una copia de las hojas 2 y 3 en las cuales reemplazo las formulas por valores.
Pero cmo las macros se ahn incorporado del archivo original me dan error.
Lo que deseo es que estas macros se eliminen al momento de hacer la copia.
Gracias

9RESUELTO copiar hojas sin macros el 22/09/12, 08:57 pm

vladief


Hola Miltonm

Bueno, ya he complementado tu macro para tu necesidad especifica, es decir copia las Hoja2 y Hoja3 y las guarda sin los macros de hoja que lleva el archivo origen, tal como necesitas.
Sin embargo es necesario que las copias se guarden en formato .xlsx para que las macros de hoja sean eliminadas de las copias.

Para que puedas abrir las archivos copias .xlsx desde excel 2003, necesitas instalar en tu maquina el Complemento Oficial de Microsoft Office especial para Abrir nuevos formatos de archivo en las versiones anteriores de Microsoft Office de la siguiente direccion: http://support.microsoft.com/kb/924074/es

Siento no poder ser de mas ayuda

Adjunto tu archivo complementado
Saludos
vladief
Archivos
COPIA HOJAS SIN MACROS.xls
Archivo complementado a tu necesidad
No tienes los permisos para descargar los archivos.
(57 KB)

10RESUELTO COPIA DE HOJAS SIN MACROS el 22/09/12, 09:13 pm

Miltonm


Ante todo gracias Vladimir por la ayuda, deseo indicar que no he manifestado que el resultado final es crear otro archivo con otro nombre que tenga por ejemplo las 2 hojas , Hoja 2 y 3 de las 3 que tiene el archivo inicial.
No se si se debe considerar como una extraccion de las hojas ponerlas en valores y guardar el archivo con otro nombre, las hojas de este nuevo archivo no deben tener macros.
Gracias una vez mas.
Milton

11RESUELTO copiar hojas sin macros el 22/09/12, 10:28 pm

vladief


Hola Milton
Entiendo que tienes datos con formulas en las hojas que se copian y que deseas que solo se copien los valores.
Tambien necesitas que al nuevo archivo copiado le sea asignado un determinado nombre.

Lo que no mencionas es que parametros se debe tomar para asignarle un determinado nombre al archivo Question .
Ayudara saber con que tipo de información se esta trabajando.
Saludos
Vladimir

12RESUELTO COPIAR HOJAS SIN MACROS el 22/09/12, 10:54 pm

Miltonm


Saludos estimado Vladimir, tengo la macro para extraer las hojas del archivo original luego de lo cual hago operaciones o cambios en las mismas y luego guardom el nuevo archivo con otro nombre.
Lo que necesito es agregar en esta macro alguna programacion para que al momento de extraer las hojas se eliminen las macros de las hojas extraidas.
En el ejm que subi esta mas detallada la informacion.
Favor revisar el archivo adjunto.
Gracias por tu tiempo y dedicacion a la ayuda de los foristas.
Milton

13RESUELTO COPIAR HOJAS SIN MACROS el 24/09/12, 08:44 pm

Miltonm


SALUDOS ESTIMADOS FORISTAS Y VLADIMIR, LUEGO DE INVESTIGAR ENCONTE LA SOLUCION, Y ES QUE PARA QUE SE PUEDA ELIMINAR LAS MACROS HAY QUE ENTRAR PRIMERAMENTE A EXCEL/MACROS/SEGURIDAD/EDITORES DE CONFIANZA/(activar la opcion "confiar en acceso de proyectos de Visual basic"
adjunto la macro final
Sub COPIA()
'
' COPIA Macro
' Macro grabada el 22/09/2012 por OFICINA
'

'
Sheets(Array("Hoja2", "Hoja3")).Select
Sheets("Hoja2").Activate
Sheets(Array("Hoja2", "Hoja3")).Copy

DoEvents
Call DeleteAllCode

Range("B2:D2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Hoja3").Select
Range("B2:D2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Hoja2").Select
Range("B4").Select


End Sub


Sub DeleteAllCode()

'Trust Access To Visual Basics Project must be enabled.
'From Excel: Tools | Macro | Security | Trusted Sources

Dim x As Integer
Dim Proceed As VbMsgBoxResult
Dim Prompt As String
Dim Title As String

On Error Resume Next
With ActiveWorkbook.VBProject
For x = .VBComponents.Count To 1 Step -1
.VBComponents.Remove .VBComponents(x)
Next x
For x = .VBComponents.Count To 1 Step -1
.VBComponents(x).CodeModule.DeleteLines _
1, .VBComponents(x).CodeModule.CountOfLines
Next x
End With
On Error GoTo 0

End Sub



Archivos
COPIA HOJAS SIN MACROS Ok.xls
Archivo resuelto Ok
No tienes los permisos para descargar los archivos.
(63 KB)

14RESUELTO DEBATE RESUELTO el 26/09/12, 03:25 am

Miltonm


GRACIAS POR LA AYUDA
QUIZA LE SIRVA A OTRA PERSONA

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.