Hola a todos quiero agradecerles lo excelente del foro y la gran ayuda que ofrecen a travez de su experiencia y los comentarios y aportes que dan.

No soy muy experta en el manejo de copia y creación de hojas por medio de macros, he logrado solamente crear una copia en una hoja nueva, pero tambien pone las formulas y otros detalles que no deberian aparecer, tambien la hoja original de Datos no la logro ocultar de nuevo porque me da un error. Este es el macro que cree:

Private Sub CopiaBaseDatos_Click()

Sheets("Datos").Visible = xlSheetVisible

ThisWorkbook.Worksheets("Datos").Copy


Sheets("Datos").Visible = xlSheetVeryHidden

End Sub

[/CODE]

Quisiera poder hacer la copia de solo los valores, ocultar la hoja de datos original y que muestre en pantalla la nueva hoja creada sin que la guarde.

Agradezco su ayuda. Gracias

Saludos

Hola! paconona. Fíjate si te sirve algo así:

___________________________________

Private Sub CopiaBaseDatos_Click()
With ThisWorkbook.Worksheets("Datos")
  .Visible = xlSheetVisible
  .Copy
  .Visible = xlSheetVeryHidden
End With
With ActiveSheet.UsedRange
  .Copy: .PasteSpecial xlPasteValues
  .Cells(1).Select
End With
Application.CutCopyMode = False
End Sub[/PHP]

___________________________________

Saludos, Cacho R.

Cacho muchisimas gracias por tu respuesta tan pronta, te cuento que crea la hoja pero no copia los valores, pero me distes la idea de como resolver asi que te muestro el código por si le sirve a alguien mas

Sheets("Datos").Visible = xlSheetVisible

    Sheets("Datos").Select

    Cells.Select

    Selection.Copy

Sheets("Datos").Visible = xlSheetVeryHidden

    Workbooks.Add

    Selection.PasteSpecial Paste:=xlPasteValues

    Selection.PasteSpecial Paste:=xlPasteFormats

[/CODE]

Con el código copia los valores y formatos sin formulas y ademas oculta denuevo la hoja. Muchas gracias.

Doy por terminado el tema

:encouragement:

Y, de paso, aprovecho para hacer -un tanto- más rápido y eficiente el código antes mostrado.

Saludos y hasta la próxima.

Cacho R.