• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

rapor oluşturma

çok haklısınız özür dilerim bir an düşünemedim hakkınızı helal edin.teşekkür ederim
 
üst bilgi ve altbilgi yazmak istiyorum alt bilgi ise tarih olmasını istiyorum kodu eklediğim ama alt ve üst bilgiyi çalıştıramadım
Kod: 
Private Sub cmdarşiv_Click()
ActiveSheet.PageSetup.Orientation = xlLandscape 'YATAY
ActiveSheet.PageSetup.Zoom = 90
ActiveSheet.PageSetup.PaperSize = xlPaperA4
ActiveSheet.PageSetup.RightHeader = "üstbilgi"
ActiveSheet.PageSetup.LeftFooter = "altbilgi"
Dim oWSHShell As Object
Set oWSHShell = CreateObject("WScript.Shell")
Klasor = oWSHShell.SpecialFolders("Desktop")
Set oWSHShell = Nothing
Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub
 
Sayfa ayarını makroda yapmak yerine neden sayfa ayar menüsünden yapmıyorsunuz?

Kodda Activesheet kullanmışsınız, bu kod o an aktif olan sayfada belirtilen işlemlerin yapılmasını sağlar. Kod çalışırken Gelenevrak sayfası aktif mi?

Activesheet yerine benim verdiğim koddaki gibi Sheets("GELENEVRAK") kullanmayı denediniz mi?
 
kod konusunda çok bilgim yok anlattığınız kodu paylaşırsanız sevinirim.
 
Yazdığınız kodda Activesheet yerine Sheets("GELENEVRAK") yazmayı deneyin.
 
For Each component In ActiveWorkbook.VBProject.VBComponents

excele raporladığım yerde böyle bir hata alıyorum nasıl düzelir
 
farklı bilgisayarda çalışınca

Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnSheets("GELENEVRAK")orePrintAreas:=False, OpenAfterPublish:= _
False

hata verdi neden olabilir
 
O bilgisayarda / yerine \ kullanılıyor olabilir mi?

O bilgisayarda Ofis sürümü 2007 ya da daha eski olabilir mi?
 
hata veren 2007 sürümü olan 2010 olanda hata vermiyor ancak 2007 ben kullanıyorum hatayı ben alıyorum yani
 
2007'de PDF kayıt özelliği yok maalesef.

Yanlış hatırlamıyorsam onun için bi eklenti vardı. O eklentiyi bulup yükleyebilirseniz kullanabilirsiniz.

www.chip.com.tr

Belgeleri doğrudan PDF biçiminde kaydetmek

Yepyeni bir Office ve yepyeni belge biçimleri... Ancak yeni sürüme sahip olmayan birçok kullanıcı için şu anda bu dosyalarla çalışmak mümkün değil. Office 2007'de hazırladığınız belgelerin bu kullanıcılar tarafından da görüntülenmesini istiyorsanız Word ve Excel dosyalarını PDF olarak kaydedebilir.
www.chip.com.tr www.chip.com.tr
 
Aşağıdaki gibi deneyin:

Sheets("GELENEVRAK") .PageSetup.LeftFooter = format(date, "dd/mm/yyyy")
 
Kod: 
Private Sub cmdarşiv_Click()

Sheets("GELENEVRAK").PageSetup.Orientation = xlLandscape
Sheets("GELENEVRAK").PageSetup.Zoom = 77
Sheets("GELENEVRAK").PageSetup.RightHeader = "HALKAPINAR SOSYAL YARDIMLAŞMA VE DAYANIŞMA VAKFI BAŞKANLIĞI GELEN EVRAK LİSTESİ"
Sheets("GELENEVRAK").PageSetup.LeftFooter = Format(Date, "dd/mm/yyyy")
Dim oWSHShell As Object
sor = MsgBox("GELEN EVRAK LİSTESİ ARŞİVLEME YAPILSINMI?", vbYesNoCancel + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub
Set oWSHShell = CreateObject("WScript.Shell")
Klasor = oWSHShell.SpecialFolders("Desktop")
Set oWSHShell = Nothing
Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub


msjbax kısmında evet seçince pdf çıktısı alınca gelen sayfasındaki tüm verileri sıfırlaması nasıl yapabilirim.
 
End Sub satırından önce aşağıdaki satırı ekleyin:

Sheets("GELENEVRAK").Range("A2:H" & Rows.Count).ClearContents

Not: Her zamanki gibi kodu deneyip de gönderdim, örnek dosyanızda sıkıntı çıkmadı.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst