Crear copia de una hoja y al mismo tiempo convertir a pdf

[DiegoLG]

Hola amigos como estan?

Tengo una situacion el cual me doy por vencido porque no encuentro la forma de solucionar, es por eso me acudo con ustedes.

Bueno mi situacion es lo siguiente.

Tengo un archivo de excel que se llama Cotizaciones, el cual quiero crear una copia de la hoja y guardar con el nombre de la celda D11 en automatico (pero que me de la opción de poder guardar en la carpeta que yo quiera), y al mismo tiempo quiero guardar en PDF con el mismo nombre de la celda D11.

El archivo original tiene encabezado y pie de pagina y quisiera que solo se crea la copia sin perder el diseño.

En la hoja original Tambien tengo 3 botones y los códigos programados y en la copia eso si quiero que se eliminen.

Espero no confundirlos con mi humilde explicación ya que no soy muy bueno explicando.

De antemano muchas gracias.

Cotizaciones.rar

[Antoni]

Prueba con esta macro.

Sub CopiarHojaCotizaciones()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

ActiveSheet.Copy

ActiveSheet.DrawingObjects.Delete

'-------------------------------------------------

ChDir ThisWorkbook.Path & "\" 'Carpeta por defecto

'-------------------------------------------------

Archivo = Application.GetSaveAsFilename( _

             FileFilter:="Archivo Excel (*.xlsx), *.xslx", _

             InitialFileName:=[d11] & ".xlsx", _

             Title:="Copia archivo Cotizaciones")

ArchivoPdf = Replace(Archivo, ".xlsx", ".pdf")

If Archivo <> False Then

   ActiveWorkbook.SaveAs _

      Filename:=Archivo, _

      FileFormat:=xlOpenXMLWorkbook

   ActiveSheet.ExportAsFixedFormat _

      Type:=xlTypePDF, _

      Filename:=ArchivoPdf

End If

ActiveWorkbook.Close

End Sub

[/CODE]

.

[DiegoLG]

Maestro [uSER=46507]@Macro Antonio[/uSER] mis respetos, es lo que necesito

Muchas gracias

Doy por tema solucionado

Dios lo bendiga.