-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayfaları PDF formatında kaydetme
- Konbuyu başlatan figutive
- Başlangıç tarihi
kelimesini esas alarak işlem yapıyor tabi 27 satır olarak alt satırı alıyor.Evet denedim.
not saved uyarısı veriyor.
Sarıya boyadığı alan burası
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\190500\Desktop\KG" & sayfaadi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
not saved uyarısı veriyor.
Sarıya boyadığı alan burası
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\190500\Desktop\KG" & sayfaadi, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Halit yeniden çok teşekkürler. Bir yanlışlık olmasın diye tekrar tekrar kontrol ettim
Sonyazdığınız kod çalıştı. Sadece range kısmı ve referans alınan noktaları yanlış yerden alıyordu.
Zamanınızı aldım. Yeniden çok teşekkürler
Merhaba
Pdf olarak Farklı kaydet kodu oluşturdum(istediğim yere kaydetmiyor malesef).Bu kodu userform1 deki command buttona eklemek istiyorum ,bu mümkün gözükmüyor.Farklı bir kodla çözümü var mı? Kod aşağıdadır;
Sub Bilgileri_PDF_Olarak_Kaydet()
dosya_adı = Sheets("sayfa2").Name
'xls dosyasında hangi aralığın PDF'ye dönüştürüleceğini belirledik yani B1:I20
Range("B1:e20").Select
' PDF dosyasını isimlendirmek için ad tanımlıyoruz:
Musteri_adi = Sheets("sayfa1").Range("C5").Value
Musteri_soyadi = Sheets("sayfa1").Range("D5").Value
strdate = Format(Now, "dd-mm-yyyy ")
' PDF dosyası oluşturuyoruz.
' PDF'nin kayıt yeri XLS dosyası neredeyse orada olacak.
Application.Goto (ActiveWorkbook.Sheets("Sayfa3").Range("a1:E6"))
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & "Hesap Cetveli" & " " & Musteri_adi & "-" & Musteri_soyadi & "-" & strdate, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'OpenAfterPublish:=True değerini False seçersek kayıt sonrası PDF otomatik açılmayacak.
End Sub
Pdf olarak Farklı kaydet kodu oluşturdum(istediğim yere kaydetmiyor malesef).Bu kodu userform1 deki command buttona eklemek istiyorum ,bu mümkün gözükmüyor.Farklı bir kodla çözümü var mı? Kod aşağıdadır;
Sub Bilgileri_PDF_Olarak_Kaydet()
dosya_adı = Sheets("sayfa2").Name
'xls dosyasında hangi aralığın PDF'ye dönüştürüleceğini belirledik yani B1:I20
Range("B1:e20").Select
' PDF dosyasını isimlendirmek için ad tanımlıyoruz:
Musteri_adi = Sheets("sayfa1").Range("C5").Value
Musteri_soyadi = Sheets("sayfa1").Range("D5").Value
strdate = Format(Now, "dd-mm-yyyy ")
' PDF dosyası oluşturuyoruz.
' PDF'nin kayıt yeri XLS dosyası neredeyse orada olacak.
Application.Goto (ActiveWorkbook.Sheets("Sayfa3").Range("a1:E6"))
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & "Hesap Cetveli" & " " & Musteri_adi & "-" & Musteri_soyadi & "-" & strdate, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'OpenAfterPublish:=True değerini False seçersek kayıt sonrası PDF otomatik açılmayacak.
End Sub
Halit Bey ilginiz için teşekkür ederim fakat hata veriyor.Eke basit bir deneme excel sayfası ekledim.Bu örnek üzerinden gitsek daha kesin sonuç olacak sanırım.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
dosyanız çalışıyor koddaki aralık yüzünden kırmızı renge bürünmüş kod
birde pdf ancak ofis 2007 de çalışıyor. tabi buna ait yamayı yüklediyseniz.
ben 2007 formatındas gönderiyorum dosyanızı
birde pdf ancak ofis 2007 de çalışıyor. tabi buna ait yamayı yüklediyseniz.
ben 2007 formatındas gönderiyorum dosyanızı
İlginiz için çok teşekkür ederim.İstediğimiz yere kaydetmemiz için ne yapmalıyız.d:\deneme\...
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
bunu denermisiniz.
Kod:
Private Sub CommandButton1_Click()
klasor = "d:\deneme"
Musteri_adi = Sheets("sayfa1").Range("C5").Value
Musteri_soyadi = Sheets("sayfa1").Range("D5").Value
strdate = Format(Now, "dd-mm-yyyy")
ActiveWorkbook.Sheets("Sayfa3").Range("a1:E6").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
klasor & "\" & "Hesap Cetveli" & " " & Musteri_adi & "-" & Musteri_soyadi & "-" & strdate, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "işlem tamam!"
End Sub- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
iyi çalışmalar
Halit Bey,
Ben örnek dosyadan anlaşılacağı üzere iki değere göre süzme yapıp öyle pdf olarak kaydetmek istiyorum.
Yardımını için şimdiden teşekkür ederim.
Halit Bey,
Çok teşekkür ederim. Sizden cevap beklerken önceki başlıklardan bulduğum kodları uyarlamaya çalıştım. Aşağıdaki kod ile PDF olarak kaydedebiliyorum. Sayfa ismine sınıf ismine de getirdim ama çok uğramama rağmen dönem adını getiremedim. Combobox1 ve 2'nin dosya adına gelmesini istiyorum.
Koda "Donem = Combobox6.Value" ekleyerek sinif'tan sonraki "-" (tire) den sonra donem yazdığımda hata veriyor ve alt kısmı olduğu gibi sarıya boyuyor.
Kod:
Private Sub CommandButton14_Click()
UserForm2.sinifagore = ComboBox5.Value
UserForm2.donemegore = ComboBox6.Value
strdate = Format(Now, "dd.mm.yyyy")
sinif = ComboBox5.Value
ActiveWorkbook.Sheets("Suz").Range("A1:L50").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & sinif & "-" & "Liste" & "-" & strdate, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Seçili döneme ait sınıfın listesi PDF olarak kaydedildi.", vbInformation, "Listeyi masaüstünden görüntüleyebilirsiniz."
ComboBox5.Value = ""
ComboBox6.Value = ""
End Sub
Son düzenleme: