generar cada hoja excel PDF SEGUN CONDICION
Publicado por juan francisco (10 intervenciones) el 08/10/2016 12:26:17
Hola tengo esta codigo:
pero no me lo genera bien, la celda AC6 en todas las hojas y referencias de las que se alimenta es de tipo general esa celda hace referencia a un número de factura o puede contener esta cadena "SIN" pero no me lo hace correctamente
alquien me puede ayudar
1
2
3
4
5
6
7
8
9
10
11
For Each myWS In ActiveWorkbook.WorksheetsIf IsNumeric(myWS.Range("AC6")) Then
myWS.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta + "\" + Sheets("INDICE").Range("AÑO") + "\" + Sheets("INDICE").Range("J4") & Chr(92) & "DETALLE HORAS " & Sheets("INDICE").Range("J4") & Chr(95) & myWS.Name & ".Pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Next myWS
pero no me lo genera bien, la celda AC6 en todas las hojas y referencias de las que se alimenta es de tipo general esa celda hace referencia a un número de factura o puede contener esta cadena "SIN" pero no me lo hace correctamente
alquien me puede ayudar
Valora esta pregunta
0