yüzdelik barlar exceli pdf dönüştürünce görünmüyor

[oguzhan3538]

Merhaba iş takibi için yapmış olduğum yüzdelik bar sayfayı pdf e dönüştürünce kayboluyor bu sorunu nasıl çözebilirim yardımcı olursanız çok mutlu olurum iyi günler dilerim.

hızlı resim linkler :

h8l9ssf.png

ff

hizliresim.com

pf3pauc.png

ff

hizliresim.com

 

[excelokyanus500]

Deneyin..

Sub PDFkayfet2()
    Dim sh As Worksheet
    Dim yol, isim, dosyaAdi, tarihSaat  As String
    Set sh = Sheets("ADANA")
    ' A1  hücresinden isim alını
    isim = sh.Range("A1").Value
    ' Tarih-saat bilgisi alınır
    tarihSaat = Format(Now, "dd-mm-yyyy_hhmmss")
    ' Dosya adı
    dosyaAdi = isim & "-" & tarihSaat
    ' Kayıt yolu
    yol = "C:\Users\"
    sh.Select
    sh.Range("A1:z74").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[oguzhan3538]

Deneyin..

Sub PDFkayfet2()
    Dim sh As Worksheet
    Dim yol, isim, dosyaAdi, tarihSaat  As String
    Set sh = Sheets("ADANA")
    ' A1  hücresinden isim alını
    isim = sh.Range("A1").Value
    ' Tarih-saat bilgisi alınır
    tarihSaat = Format(Now, "dd-mm-yyyy_hhmmss")
    ' Dosya adı
    dosyaAdi = isim & "-" & tarihSaat
    ' Kayıt yolu
    yol = "C:\Users\"
    sh.Select
    sh.Range("A1:z74").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Aynısını yapmama rağmen data bar yüzdelerini pdf de göremiyorum

 

[excelokyanus500]

Sub Yuzdeformat()
    Dim cellArray As Variant
    Dim resultArray As Variant
    Dim i As Integer
     ' Yüzde gözükmesi gereken hücrelerin adersini yazın
    cellArray = Array("A1", "B5", "C3", "D8", "E2") ' Gibi
      ReDim resultArray(1 To UBound(cellArray) + 1, 1 To 1)
    For i = LBound(cellArray) To UBound(cellArray)
        Range(cellArray(i)).NumberFormat = "0.00%"
    Next 
End Sub

Kodu deneyip tekrar pdf yapın