Macro para guardar 2 hojas de un libro con nombre de mes y año con extensión xls o pdf

H o l a:

Vamos por la opción de guardar como PDF.

Pero ya no entendí, ¿quieres las 2 hojas en un solo PDF?

O quieres que cada hoja se guarde una en cada pdf, es decir, ¿2 PDF?

Y por último, de dónde se va a obtener el nombre del o de los archivos.

En tu ejemplo pusiste "noviembre2015.pdf", pero el dato noviembre y el dato 2015, ¿de dónde los voy a leer?

Perdón por no poner los detalles:

La opción de guardar como PDF son las 2 hojas en un solo PDF.

De donde se va a obtener el nombre de los archivos es de:

la HojaC(hoja2), celda Q2 (mes), celda S2(año), debido a que el mes y el año ubicado en estas celdas cambian cada nuevo mes. Por eso puse en el ejemplo "noviembre2015.pdf";"diciembre2015.pdf".

Agradezco su ayuda al respecto

H o l a:

Te anexo la macro

Sub GuardarPdf()
'Por.Dante Amor
    mes = Sheets("HojaC").[Q2]
    año = Sheets("HojaC").[S2]
    arch = mes & año & ".pdf"
    ruta = "D:\Proyecto cuentas\Archivados\"
    Sheets(Array("HojaC", "INFORME Y CONCILIACION")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & arch, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Sheets("HojaC").Select
    MsgBox "Pdf guardado"
End Sub

Revisa en la macro que esté bien escrita la ruta:

ruta = "D:\Proyecto cuentas\Archivados\"

Hola: 

Ejecuto la macro y me sale un aviso que dice: se ha producido el error '1004' en tiempo de ejecución: error en el método select de la clase Sheets

Revisa el nombre de tus hojas en esta línea de la macro y escribe los nombres correctos en la macro:

"HojaC", "INFORME Y CONCILIACION"

Revisa si tus nombres de hoja tienen espacios antes o después del nombre

Disculpe,  ya arregle el error anterior,  pero sigo teniendo problemas con la macro cuando ejecuto la macro me da mensaje de error (ver imagen), no entiendo mucho este tema, así que agradecería su ayuda. Gracias

Qué tienes en Q2 y en S2

Es algún problema de tu carpeta o tu nombre de archivo o del nombre de tus hojas.

Solamente para hacer una prueba, ejecuta la siguiente macro:

Sub GuardarPdf()
'Por.Dante Amor
    mes = Sheets("HojaC").[Q2]
    año = Sheets("HojaC").[S2]
    arch = mes & año & ".pdf"
    arch = "archivo2.pdf"
    ruta = "D:\Proyecto cuentas\Archivados\"
    ruta = ThisWorkbook.Path & "\"
    Sheets(Array("HojaC", "INFORME Y CONCILIACION")).Select
    Sheets(Array(1, 2)).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & arch, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Sheets("HojaC").Select
    MsgBox "Pdf guardado"
End Sub

Te va a guardar 2 hojas como pdf en la misma carpeta en donde tienes tu archivo con la macro.

¿Dime el resultado y qué datos tienes?

En la imagen no veo las hojas, ¿estás ocultando las hojas? ¿O estás ocultando el libro de excel?

Si estás ocultando las hojas, no se pueden guardar. Dime cómo estás haciendo el proceso.

Tiene razón era ubicación de carpeta, el formulario que le muestro en imagen están con las hojas y el libro oculto y en ese estado no funciona la macro. Probé desocultando el libro y las hojas y allí si funciona la macro. ¿Cómo se haría para que funcione con el libro y las hojas ocultas?