rapor oluşturma

[sinemomec]

evet haklısınız gerçekten özür dilerim hakkınızı helal edin.

 

[sinemomec]

çok haklısınız özür dilerim bir an düşünemedim hakkınızı helal edin.teşekkür ederim

 

[sinemomec]

ü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

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

 

[YUSUF44]

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?

 

[sinemomec]

kod konusunda çok bilgim yok anlattığınız kodu paylaşırsanız sevinirim.

 

[YUSUF44]

Yazdığınız kodda Activesheet yerine Sheets("GELENEVRAK") yazmayı deneyin.

 

[sinemomec]

tammdır onu yazdım yalnız alt bilgide tarih nasıl yazdırabilirim.

 

[sinemomec]

For Each component In ActiveWorkbook.VBProject.VBComponents

excele raporladığım yerde böyle bir hata alıyorum nasıl düzelir

 

[sinemomec]

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

 

[YUSUF44]

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

O bilgisayarda Ofis sürümü 2007 ya da daha eski olabilir mi?

 

[sinemomec]

hata veren 2007 sürümü olan 2010 olanda hata vermiyor ancak 2007 ben kullanıyorum hatayı ben alıyorum yani

 

[YUSUF44]

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.

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

 

[sinemomec]

bu çok kötü oldu işte

 

[sinemomec]

eklentiyide buldum yuıkledim

 

[sinemomec]

altbilgiye tarihi nasıl yazdırabilirim peki.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sheets("GELENEVRAK") .PageSetup.LeftFooter = format(date, "dd/mm/yyyy")

 

[sinemomec]

teşekkür ederim.

 

[sinemomec]

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.

 

[YUSUF44]

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ı.

 

[sinemomec]

teşekkür ederim.