MACRO de grabacion

Podrías partir del siguiente código:

Sub Convertir()
Dim Celda As String

'Se guarda copia del libro activo y se detiene la actualización de la
pantalla
ActiveWorkbook.SaveAs Filename:="Copia de " & ActiveWorkbook.Name
Application.ScreenUpdating = False

' ... para cada hoja del libro,
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Activate

'Se determina la celda activa,
Celda = ActiveCell.Address

'Se selecciona toda la hoja y se copia,
Range("A1:IV65536").Select
Selection.Copy

'pegando luego como valores,
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'y se vuelve a la celda activa.
Range(Celda).Select
Next Hoja

'Por último, se vuelve a activar la actualización de pantalla.
Application.ScreenUpdating = True
End Sub

y personalizarlo según lo necesites...



"Cesar Yanapa Z." escribió:

Estimados,
Tengo una hoja excel de casi 9 megas, tiene formúlas, extrae datos de muchos
otros files,etc.
Bien, toda la información compilada en este file necesito envíarsela a los
gerentes de territorio, pero como comprenderán es demasiado extenso.
Es posible crear una macro para que desde este file se cree una copia del
file sólo valores, sin ningun link o fórmula.

Gracias anticipadas por su ayuda.

Cesar Yanapa Z.