PDF Kaydetme Makrosundaki 1004 Hatasını Giderme

  • Konuyu başlatan Konuyu başlatan mtecimer
  • Başlangıç tarihi Başlangıç tarihi

mtecimer

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Bu islemi calistirdigimda 1004 hata kodu geliyor ? Nerede hata var !
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (25 satır). Giriş Yap
 
Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn.mtecimer;
İlk mesajda paylaşmış olduğunuz kodlar ile örnek dosyadaki Test sayfasındaki kodlar biraz farklı.
Örnek dosyanın Test sayfasındaki kodları aşağıdaki şekilde değiştiriniz.
-- Sonuç ekran görüntüsü ektedir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (26 satır). Giriş Yap
 

Ekli dosyalar

  • sonuc.webp
    sonuc.webp
    18.7 KB · Gösterim: 127
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar Sn.mtecimer;
İlk mesajda paylaşmış olduğunuz kodlar ile örnek dosyadaki Test sayfasındaki kodlar biraz farklı.
Örnek dosyanın Test sayfasındaki kodları aşağıdaki şekilde değiştiriniz.
-- Sonuç ekran görüntüsü ektedir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (26 satır). Giriş Yap
Genişletmek için tıklayın ...
2 Farkli modul hazirlamistim dosyanin icinde Modul 2 güncel olan onun üzerinden islem yapmak istiyorum. Sizin yazmis oldugunuz kodlari kendi sistemime ekledim ama gene 1004 hatasi verdi acaba acmam gereken bir secenek olabilir mi ? yada ben bir hata mi yapiyorum anlayamadim.
Ekli dosyayı görüntüle 3109
 

Ekli dosyalar

  • 1577821730175.webp
    1577821730175.webp
    53.6 KB · Gösterim: 147
Oyla 0 Olumsuz oyla
Merhabalar;
Paylaştığınız örnek dosyada Modul yok.

Kullandığınız dosyanın örnek halini paylaşır mısınız?
 

Ekli dosyalar

  • ornek-dosya-ekran-goruntusu.webp
    ornek-dosya-ekran-goruntusu.webp
    41.9 KB · Gösterim: 130
Oyla 0 Olumsuz oyla
Merhabalar Sn.mtecimer;
Son paylaştığınız dosyada sadece Modul1 var ve içerisindeki kodları aşağıdaki şekilde değiştirip kullanabilirsiniz.

-- Dikkat etmeniz gereken nokta, Test sayfası L8 hücresi
Pdf dosyasının ismi bu hücreden alınıyor ve bu hücrede şu simgeler olmamalıdır...
dosya_adi.webp
Örnek olarak paylaştığınız dosyadaki L8 hücresinin içeriği 2020/1001 şeklindedir.
-- Pdf olarak kaydetmeden önce bu hücre içeriğini şu şekilde değiştirdim 2020_1001

-- Makroyu çalıştırmadan önce Masaüstüne Rapor isimli bir klasör oluşturunuz.
-- Sonuç ekran görüntüsü ektedir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (32 satır). Giriş Yap
sonuc2.webp
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar Sn.mtecimer;
Son paylaştığınız dosyada sadece Modul1 var ve içerisindeki kodları aşağıdaki şekilde değiştirip kullanabilirsiniz.

-- Dikkat etmeniz gereken nokta, Test sayfası L8 hücresi
Pdf dosyasının ismi bu hücreden alınıyor ve bu hücrede şu simgeler olmamalıdır...
dosya_adi.webp
Örnek olarak paylaştığınız dosyadaki L8 hücresinin içeriği 2020/1001 şeklindedir.
-- Pdf olarak kaydetmeden önce bu hücre içeriğini şu şekilde değiştirdim 2020_1001

-- Makroyu çalıştırmadan önce Masaüstüne Rapor isimli bir klasör oluşturunuz.
-- Sonuç ekran görüntüsü ektedir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (32 satır). Giriş Yap
sonuc2.webp


Hocam ben macroda yeniyim 1 haftadir merak sardim ve islerimi kolaylastiriyor baya, Beni maruz görün fakat asagida ki olayi tam cözemedim PDF dosyayi bilgisayarimda nereye kayit ediyor- siz bir yol belirlemissiniz ama ben anladigim gibi yazdim oda hatali maalesef.

Diger yandan mail gidiyor dediginiz gibi PDF / isaretini kabul etmiyor.
Genişletmek için tıklayın ...
Sub PDF_und_Senden()

Rows("20:24").AutoFit


Dim DateiName As String

Pc = Environ("username")
"C:\Users\Pc\Desktop\Rapor\"

DateiName = Range("L8") & Range("L7") & ".pdf"

ActiveSheet.Range("A1:I42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rapor

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem

.To = Range("L9")
.Subject = Range("L10")
.Body = Range("L11")
myAttachments.Add DateiName
.Display

End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing

End Sub
 
Oyla 0 Olumsuz oyla
Hocam ben macroda yeniyim 1 haftadir merak sardim ve islerimi kolaylastiriyor baya, Beni maruz görün fakat asagida ki olayi tam cözemedim PDF dosyayi bilgisayarimda nereye kayit ediyor- siz bir yol belirlemissiniz ama ben anladigim gibi yazdim oda hatali maalesef.

Diger yandan mail gidiyor dediginiz gibi PDF / isaretini kabul etmiyor.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. mtecimer;
8 numaralı mesajda "Makroyu çalıştırmadan önce Masaüstüne Rapor isimli bir klasör oluşturunuz." şeklinde belirtmiştim.
Makro, pdf dosyaları Masaüstündeki bu Rapor isimli klasöre kayıt edecek.

Kod içerisindeki ilgili bölümlerin açıklaması şu şekildedir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (19 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar Sn. mtecimer;
8 numaralı mesajda "Makroyu çalıştırmadan önce Masaüstüne Rapor isimli bir klasör oluşturunuz." şeklinde belirtmiştim.
Makro, pdf dosyaları Masaüstündeki bu Rapor isimli klasöre kayıt edecek.

Kod içerisindeki ilgili bölümlerin açıklaması şu şekildedir.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (19 satır). Giriş Yap
Genişletmek için tıklayın ...
Elinize Saglik anlatim icin ama bende belirttigim yola degil belgerimin icine kayit ediyor ?
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (38 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
Merhabalar;
12 numaralı mesajda paylaşmış olduğunuz kodlarda, aşağıdaki bölümde değişkenleri uygulamada bazı hatalar var.
-- İlgili bölüm kodları;
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap
Hatalı olan kısımları kırmızı renk ile işaretledim.

Bu bölümü aşağıdaki şekilde değiştiriniz.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar;
12 numaralı mesajda paylaşmış olduğunuz kodlarda, aşağıdaki bölümde değişkenleri uygulamada bazı hatalar var.
-- İlgili bölüm kodları;
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap
Hatalı olan kısımları kırmızı renk ile işaretledim.

Bu bölümü aşağıdaki şekilde değiştiriniz.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap
Genişletmek için tıklayın ...


Eline saglik üstad tam oldu. Bu konu cözüldü.

Diger sorumda vardi Genel - f(×) - VBA - ❔ Otomatik satir yükseltme ve Veri sirasi degistirme size zahmet olmazsa bununla da bir ilgilenebilirmisiniz ?

Sabriniz ve detayli anlatimlariniz icin tekrar tesekkür ederim.
 
Oyla 0 Olumsuz oyla
Merhabalar
Rica ederim. :) işinize yaramasına sevindim.
Belirttiğiniz konu ile ilgili çözüm bulabilirsem paylaşım yaparım.
Saygılarımla, iyi çalışmalar.
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar
Rica ederim. :) işinize yaramasına sevindim.
Belirttiğiniz konu ile ilgili çözüm bulabilirsem paylaşım yaparım.
Saygılarımla, iyi çalışmalar.
Genişletmek için tıklayın ...

Hocam bu konu ile ilgili Ayni dosyada 10 adet daha sayfa acsam hepsi bu macro ile ayri ayri calisabilirmi ?

Her sayfaya buton koyup ilgili kisilere mailler gidecek ?

<suan ben bir sayfa actim fakat hata raporu aldim :(
 
Oyla 0 Olumsuz oyla
Merhabalar;
-- Belirttiğiniz şekilde 10 sayfalık, örnek bir dosya hazırlayıp ve
-- Bu dosya içerisinde örnek kişi kayıtları ve Hata almadan çalıştırdığınız kodlar da olacak şekilde buradan paylaşır mısınız?

** Sayfaları hazırlarken dikkat edilmesi gereken nokta;
-- Her sayfada kullandığınız sayfa düzeni aynı olmalıdır...!
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar;
-- Belirttiğiniz şekilde 10 sayfalık, örnek bir dosya hazırlayıp ve
-- Bu dosya içerisinde örnek kişi kayıtları ve Hata almadan çalıştırdığınız kodlar da olacak şekilde buradan paylaşır mısınız?

** Sayfaları hazırlarken dikkat edilmesi gereken nokta;
-- Her sayfada kullandığınız sayfa düzeni aynı olmalıdır...!
Genişletmek için tıklayın ...


Dosya ektedir üstad
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Merhabalar Sn. mtecimer;
Ekteki dosyanın Module2 bölümüne şu kod bloğunu ekledim.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

Bu sayfadaki_buton_icin başlıklı kod bloğunu ekleyeceğiniz her sayfadaki düğmeye atamalısınız.
-- Bu tek satırlık kod bloğu, PDF ye çevirme makrosunu çağırır ve çalıştırır.
-- Her sayfada kullandığınız sayfa düzeninin aynı olması bu noktada önemli.

Sayfadaki düğmelere makro atamak için aşağıdaki adımları takip ediniz.
1- Düğme üzerinde farenin (mouse) sağ tuşunu tıklayınız. Açılan komut listesinden Makro Ata... komutunu tıklayınız.
makro_ata1.webp

2- Açılan pencerede, çalışma kitabınızdaki ve diğer açık olan Excel dosyalarındaki makrolar listelenir.
Bu listeden sayfadaki_buton_icin isimli makroyu seçip Tamam düğmesi ile pencereyi kapatınız.
makro_ata2.webp

-- Artık hangi sayfadaki düğmeye tıklarsanız, ilgili sayfadaki bilgilere göre PDF dosyası hazırlanır ve Outlook'a eklenir.
-- Dosya ve Sonuç görüntüsü ektedir.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar Sn. mtecimer;
Ekteki dosyanın Module2 bölümüne şu kod bloğunu ekledim.
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

Bu sayfadaki_buton_icin başlıklı kod bloğunu ekleyeceğiniz her sayfadaki düğmeye atamalısınız.
-- Bu tek satırlık kod bloğu, PDF ye çevirme makrosunu çağırır ve çalıştırır.
-- Her sayfada kullandığınız sayfa düzeninin aynı olması bu noktada önemli.

Sayfadaki düğmelere makro atamak için aşağıdaki adımları takip ediniz.
1- Düğme üzerinde farenin (mouse) sağ tuşunu tıklayınız. Açılan komut listesinden Makro Ata... komutunu tıklayınız.
Ekli dosyayı görüntüle 3125

2- Açılan pencerede, çalışma kitabınızdaki ve diğer açık olan Excel dosyalarındaki makrolar listelenir.
Bu listeden sayfadaki_buton_icin isimli makroyu seçip Tamam düğmesi ile pencereyi kapatınız.
Ekli dosyayı görüntüle 3126

-- Artık hangi sayfadaki düğmeye tıklarsanız, ilgili sayfadaki bilgilere göre PDF dosyası hazırlanır ve Outlook'a eklenir.
-- Dosya ve Sonuç görüntüsü ektedir.
Genişletmek için tıklayın ...

Eline saglik üstad mükemmel oldu. Sorunsuz calisiyor suan Allah yar ve yardimcin olsun.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst