Exportar datos

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Exportar datos

Notapor d.vargas » 30 Ago 2006 10:59

Saludos a todos los amigos del foro,

Necesito saber si existe una macro que me permita exportar desde una hoja de excel datos a otra nueva totalmente identica, pero solo los valores, sin formulas o macros, pero manteniendo los formatos de visualizacion de la planilla como estaban en la original.... no se si me explico pero adjunto pondre ul archivo con el cual kiero trabajar a ver si sirve de ayuda.

Gracias anticipadas....

D. Vargas
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
d.vargas
Miembro Frecuente
Miembro Frecuente
 
Registrado: 04 Abr 2006 16:19

Re: Exportar datos

Notapor d.vargas » 30 Ago 2006 11:03

Ooops, se me olvido carhgarlo, aqui le va....
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
d.vargas
Miembro Frecuente
Miembro Frecuente
 
Registrado: 04 Abr 2006 16:19

Re: Exportar datos

Notapor Adrian » 30 Ago 2006 11:11

Hola!
Pon esta macro y dime:
Sub ExportarSoloValores()
Sheets("PRM").Select
Sheets("PRM").Copy
Range("B1:Z49").Select
Range("Z49").Activate
ActiveWindow.SmallScroll Down:=2
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Atte.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: Exportar datos

Notapor d.vargas » 30 Ago 2006 11:11

Ooops, se me olvido carhgarlo, aqui le va....
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
d.vargas
Miembro Frecuente
Miembro Frecuente
 
Registrado: 04 Abr 2006 16:19

Re: Exportar datos

Notapor d.vargas » 30 Ago 2006 11:19

Es esto lo que buscab, pero solo le falta el detallito de no exportar las macros que tengo en el.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
d.vargas
Miembro Frecuente
Miembro Frecuente
 
Registrado: 04 Abr 2006 16:19

Re: Exportar datos

Notapor DOOCH » 31 Ago 2006 14:14

Saludos

Funcion< muy bien pero no entiendo como se está generando el nuevo libro?
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
DOOCH
Miembro Frecuente
Miembro Frecuente
 
Registrado: 08 Jun 2005 21:35

Re: Exportar datos

Notapor KL » 31 Ago 2006 14:42

Otra forma de hacerlo menos aparatosa:

Código: Seleccionar todo
Sub ExportarSoloValores()
    Sheets("PRM").Copy
    With ActiveSheet
        .UsedRange.Value = .UsedRange.Value
    End With
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
KL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 18 Mar 2006 13:57
Ubicación: Madrid

Re: Exportar datos

Notapor KL » 31 Ago 2006 14:46

para copiar sin macros, algo asi:

Código: Seleccionar todo
Sub ExportarSoloValores()
    Application.ScreenUpdating = False
    Sheets("PRM").Cells.Copy
    With Workbooks.Add
        With .Sheets(1)
            With .Cells
                .PasteSpecial xlValues
                .PasteSpecial xlFormats
            End With
            .Name = "PRM"
            .[A1].Select
        End With
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
KL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 18 Mar 2006 13:57
Ubicación: Madrid


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados