HTML-код
- Опубликовано: 5 авг 2024
- Bu Dosyayla Birlikte 51+ Farklı Excel Program Şablonu İNDİRMEK İÇİN TIKLAYIN🙂👇
www.shopier.com/10743087
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
Microsoft Excel VBA kullanarak birçok görevi otomatize edebilmekteyiz. Bu dersimizde de tek bir düğmeyle otomatik olarak nasıl bir excel sayfasını pdf'e çevirebileceğimizi öğreniyoruz.
Üstelik ortaya koyduğumuz bu yapıda bazı parametreler ayarlanabilmekte !! Örneğin dosyayı hangi klasöre kaydetmek istediğinizi kendiniz seçebiliyorsunuz 🙂 Bu harika değil mi 😀
Keyifli izlemeler dileriz 😊☕
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
Videodaki Kısımlar;
00:00 Tanıtım
00:13 Şablon İndirme
00:51 Şablonu Temizleme
01:06 Sayfanın Yazdırma Alanlarını Ayarlama
01:39 Excel Sayfasını PDF Olarak Kaydetme
03:00 Excelde Düğme Oluşturmak
03:42 Yazdırma Ayarlarını Kontrol Etme ve Düzeltme
04:20 VBA - Kodlamaya Başlama
05:20 VBA - PDF Olarak Kaydet Kodları (Hard Coded)
07:55 Hard Code Testi
08:41 Excelde Düğmeye Kod Atama
09:59 VBA - PDF Olarak Kaydet Kodları - (Parametrik)
15:54 Farklı Bir Yere Kaydetmek
16:27 .xlsm olarak kaydetme
16:58 Öğrenmeye Devam Edin
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
Exceli Sıfırdan Öğrenmek için Kursumuza Kayıt Olun
➤ bit.ly/3gqpRyp
Excel Veri Analizi | Raporlama | Dashboard Eğitimine Kayıt Olun
➤ bit.ly/2Vqjq7z
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
Diğer Program Videolarımıza Göz Atın 🙂👇
EXCELDE GELİR GİDER TABLOSU YAPIMI:
➤ • EXCELDE GELİR GİDER TA...
EXCELDE YAPILACAKLAR LİSTESİ (HATIRLATICILI)
➤ • #EXCELDE YAPILACAKLAR ...
EXCELDE DİNAMİK RESİM OLUŞTURMA (SİCİLE GÖRE PERSONEL RESMİ GETİRME)
➤ • EXCELDE DİNAMİK RESİM ...
SON KULLANMA TARİHİNE KAÇ GÜN KALDI
➤ • Excel'de Son Kullanma ...
EXCEL KASA PROGRAMI
➤ • EXCEL KASA PROGRAMI - ...
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
▪️ Sosyal Medya Hesaplarımız ⤵️
🎬 𝗬𝗢𝗨𝗧𝗨𝗕𝗘 : / excel751
📷 𝗜𝗡𝗦𝗧𝗔𝗚𝗥𝗔𝗠 : / excel_751
📽 𝗧𝗜𝗞𝗧𝗢𝗞 : / excel751
📱 𝗙𝗔𝗖𝗘𝗕𝗢𝗢𝗞 : / excel751
🌐 𝗪𝗘𝗕𝗦𝗜𝗧𝗘𝗠𝗜𝗭: www.excel751.com/
✍ 𝗕𝗟𝗢𝗚𝗨𝗠𝗨𝗭: blog.excel751.com/
▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬
#ExcelEğitimleri #ExcelDersleri #MsExcelDersleri
#excel751 #excel #microsoftexcel #msexcel
#excelöğren #excelkursu #exceldersleri #exceldersi
#yazılım #memur #bilgi
#insankaynakları #masabaşı #çalışma
#mühendisler #stajer #muhasebe
#avukat #inşaatmühendisi #ihracat
#işler #mühendislik #satış #smmm
#yönetim #şirket #kurumsaleğitim
#mühendis #mühendislik #esnaf
#insankaynakları #şirket #kurumsaleğitim
![#EXCEL - SEÇİLİ HÜCRENİN SATIR VE SÜTUNUNU RENKLENDİRME - [EXCEL 751]](http://i.ytimg.com/vi/gDghduULNC8/mqdefault.jpg)
![#EXCEL - SEÇİLİ HÜCRENİN SATIR VE SÜTUNUNU RENKLENDİRME - [EXCEL 751]](/img/tr.png)
Hocam emeğinize sağlık, 60 tane sayfayı tek tek pdf ye çıkarmam gerekiyordu sayenizde bir döngü ile bir saatlik iş 1 dk bile sürmedi hem iş yükünden hemde zamandan kazandık, sağolun.
Çok faydalı bir video olmus. Teşekkürler..
Merhabalar , yorumunuz için Teşekkür ederiz 🙂
Harikasınız elinize emeğinize sağlık. Müthiş işime yaradı.
Merhabalar 👋🙂
Çok teşekkür ederiz 😊
Merhaba, yaralı bir çalışma olmuş. Teşekkür ederim.
Merhabalar 😊👋
Çok teşekkürler.
Teşekkür ederim emeğinize sağlık işime yaradı
Rica ederiz,iyi çalışmalar 🙂
Kesinlikle harika🙏
Merhabalar , yorumunuz için Teşekkürler 🙂 🙏
Süperr
Çok teşekkürler 🙂✨
Muhteşem
Çok teşekkürler 🙂✨
Harika
Merhabalar , yorumunuz için Teşekkür ederiz 🙂 🙏🙏
Teşekkürler
Merhabalar 🙂👋
Rica ederiz 🙂🌟
tıkır tıkır çalıştı teşekkür ederim
Rica ederiz,iyi çalışmalar 🙂
çok faydalı oldu teşekkürler , peki bunun içerisine ilgili pdf aynı zamanda mail ekine nasıl ekliyebiliriz
Çok iyi
Merhabalar 👋🙂
Çok teşekkür ederiz.
çok güzel bir çalışma olmuş
döngü içerisinde aynı anda 100 tane farklı veriyi pdf yi dönüştürüyorum ama hepsi ayrı sayfalar halinde oluyor. 100 sayfayı tek pdf ye yazmak için ne yapabilirim
Merhabalar 👋🙂
Aynı dosya içndeyse pdf ayarından yapabiliyorsunuz.
@@excel751 ne o ayar işte onu soruyorum. Vba kod mu yazacağız. Yoksa farklı bir ayar mı var ?
2 farklı sayfayı sayfa1 ve sayfa2'yi birleştirip excelin kayıtlı olduğu klasör neresi ise (yani yol, değiken dosya neredeyse C: D: YeniKlasör vs vs) tek pdf kaydetmek istersek kodda nasıl değişiklik yapmalıyım
Ben bu çalışmayı denedim ancak başaramadım. hata verdi. ancak bende makro ile bu işi başardım. indirmiş olduğum resim ile makroyu eşleştirdim. Ben ne kadarda başarısız olsamda sizin Yapmış olduğunuz çalışmadan dolayı teşekkür ederim.
Merhabalar 👋🙂
değerli yorumunuz için teşekkürler 🙏
Merhaba. Bende videodakı ile bire bir aynı yaptım olmadı. hata veriyor. Siz Makroyu nasıl yaptız?
@@elxanagammedov8050 Merhaba ben göreceli makroyu çalıştırdım. F12 tuşuna bastım. farklı kaydet penceresinden pdf formatını ve kayıt edeceğim alanı seçtim. tamam dedim. sonra makroyu durdumdum. istersen makroyu bir nesneye ata daha hızlı yap. şimdi gine dendim oldu. Kolay gelsin.
@@aligunduz3124 Teşekkür ederim. Farklı bi kodla hall etdim. ama sizin yöntem daha kolaymış
Hocam gerçekten ufkumuzu açıyorsunuz. Tek bir merakım var, 10:11 de dosya yolunu kendimizin belirleyebileceği bir ayar girdiniz ya. Sağında bir düğme oluşturup (tıpkı diğer programlar gibi) dosyayı kaydetme yolunu gösteren pencereyi nasıl açtırabiliriz?
Merhabalar 👋🙂
Çok teşekkürlerr 😊✨
Sorunuzun cevabını aşağıdaki videomuzda bulabilirsiniz.
ruclips.net/video/Z-cOYu45ap0/видео.html
Merhaba, faydalı videonuz için teşekkürler. İki çalışma sayfasını tek pdf dosya olarak kaydedebilmek için nasıl kod yazacağız? İnternette çok aradım ama bulamadım. Yardımcı olursanız sevinirim.
Merhabalar 👋😊
Çok teşekkürler. Aşağıdaki linkten göz atmanızı tavsiye ederiz 😊
ruclips.net/video/BlzZdWco3bs/видео.html
Merhaba;
Sub PdfKaydet()
Path = Application.ActiveWorkbook.Path
form = Worksheets("Form").Range("C4").Value
Worksheets("Form").ExportAsFixedFormat xlTypePDF, Filename:=form & ".pdf"
End Sub
şeklinde yaptım. pdf i belgelerim klasörüne kaydediyor. excel dosyası masaüstünde . başka bir yere veya klasöre aldığımda değişmiyor. excel dosyası nerde ise oraya kaydetmesini istiyorum nasıl yapabiliriz.
Hocam video için teşekkür ederim. Benim sorum bu pdf kaydını belirli bir klasör yerine hangi klasör içinde çalışıyorsam o klasör içine kaydettirebilir miyiz. Yardımcı olursanız çok sevinirim.
Merhabalar 🙂👋
Hangi klasörde çalışıyorsam derken, excelin bulunduğu klasörden bahsediyorsak evet yapılabilir. Şu kodu kullanabilirsiniz🔽
Application.ActiveWorkbook.Path
@@excel751
Sub Pdfkaydet()
ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\PC\Desktop\Application.ActiveWorkbook.Path\5-Karar Tutanağı"
End Sub
hocam bu şekilde olmayak mı denedim olmadı malesef
Merhaba, sayfa adını pdf içinden seçip kendi yazması için nasıl yapmalıyız.
Merhabalar Ben Düğmeye bastıktan sonra Şablondaki yazdıklarım ilk başa dönsün istiyorum yani sıfırlansın yeni dosya gireyim istiyorum bunun için hangi kodu yazmam gerekiyor
Merhabalar 🙂👋
Şablondaki silinmesini istediğiniz hücreleri koda belirterek bu hücrelerdeki değerlerin silinmesini sağlayabilirsiniz. Range() metodu ile istediğiniz hücreleri seçip, Range().Clear özelliğini kullanarakta bu hücreleri silebilirsiniz.
Merhaba .Dosya ismini belirli hücrlerdeki değerler olsun istiyorum.File name kısmını nasıl yazacağım.Videonuz harika bu arada kısa ve öz anlatmışssınız elinize sağlık.
Merhabalar 👋🙂
Çok teşekkür ederiz 🙏 "Faturalanan" örneğinde yaptığımız gibi yapabilirsiniz.
ruclips.net/video/lueZn2-K77s/видео.html
Merhaba video nuz için çok teşekkür ederim, excel dosyası içinde ayrı sayfaları tek bir pdf dosyası şeklinde (sıralı olacak şekilde) nasıl kayıt edebiliriz? Örn: sizin çalışmadaki gibi fatura ve ayarlar sayfası varsayalım, pdf olarak kayıt ettiğimizde ayarlar sayfası 1inci sırada fatura sayfasıda 2inci sırada pdf dosyasına kayıt edilmiş olması lazım. konu ile ilgili yardımlarınızı beklerim.
Merhabalar 🙂👋
Excel'i dışarı aktarma ayarları , sizin yazdırma ayarlarınızla ilgilidir. Yazdırma ayarlarınızı nasıl güncellerseniz PDF'inizde o şekilde olacaktır. 🙂
@@excel751 bilginiz için teşekkürler hocam. sormak istediğim soru tek excel çalışma kitabı içerinse iki ayrı sayfa olarak düşünün. sayfa 1 içeriğindeki 1.sayfa ile sayfa 2 içeriğindeki 1 ve 2. sayfaları tek pdf şeklinde kaydetmeyi sormuştum.
peki birden fazla sekmeyi tek tıkla PDF olarak kaydetmek için ne yapmak lazım
Merhabalar 👋🙂
Sekmeleri seçip CTRL+P diyerek yapabilirsiniz.
Hocam, öncelikle teşekkürler, bu dosyayı mail olarak göndermek istiyorum (pdf) olarak, bunun için nasıl bir kod yazmamız gerekir.
Merhabalar 🙂👋
Ürünümüze göz atmanızı tavsiye ederiz 🙂👇
www.excel751.com/%C3%BCr%C3%BCn-hizmetler/excel-programlar%C4%B1/toplu_mail_uygulamas%C4%B1
👏👏👏
Merhabalar 👋🙂
Çok teşekkürler
@@excel751 Merhaba Hocam. Verdiğiniz bilgiler çok değerli. Bu videonuz çok işime yaradı. Ancak benim VBA ya öyle bir kod yazmam lazım ki PDF simgesine tıkladığım zaman dosya adının ne olacağını bana sorsun. Bu konuda yardımcı olabilirseniz çok sevinirim. Şimdiden çok teşekkürler. Emeğinize sağlık.❤️
Merhaba üstad,
Benim sorum dosya yolu ile alakali
Dosya yolunu excelde herhangi bir hücreye tanimladigimda PDF yapiyor fakat kayit etmiyor. Bu olagan bir sey mi ?
Laptop = Environ("username")
yol = "C:\Users\Laptop\Desktop\Calismalar\"
'yol = Tabelle7.Range("A2")
Merhabalar 🙂👋
Aşağıdaki gibi ".pdf" ibaresini eklemelisiniz 🙂👇
Laptop = Environ("username")
yol = "C:\Users\Laptop\Desktop\Calismalar\"
'yol = Tabelle7.Range("A2") & ".pdf"
Salih Hocam Merhaba ( Peki bir buton ile 1 den çok excel sayfasını pdf olarak ala bilirmiyiz.
Merhabalar 👋🙂
Kodlarda değşiklik yapılırsa yapılabilir tabi ki
Hocam yazdırma makrosu ile sürekli değişen veriler yazdırma yapabiliyorum. Hem veriyi otomatik degistirip hem PDF olarak nasıl kaydetme yapabilirim ?
PDF yazicisini seçiyorum ama sağlıklı sonuç alamıyorum. Bu konuda yardım edebilir misiniz?
Merhabalar 👋🙂
Sorunuzu tam olarak anlayamadık 🤔
PDF'i PPT'ye çeviriyorum ama tablonun bir kısmı kararıyor. Hangi siteden yapsam aynı nedendir?
Merhabalar 👋🙂
Online converter'lar ile çeviriyi gerçekleştirmenizi önerebiliriz. 🙂 Eğer hata devam ediyorsa , pdf dökümanınızın lgili alanlarında gerçektende karartılar olabilir. Taranmış bir döküman gibi örneğin. 🙂
sayenizde yapabildim ama ayrıca sizden ricam olacak. aynı butonun yanına tek tıkla excel dosyası olarak nasıl farklı kaydet yapacağım saatlerdir araştırıyorum bulamadım. yardımcı olurmusunuz
Merhabalar 🙂👋
Teşekkürler. ActiveWorkbook.SaveAs Filename:="D:\temp\myFile.xlsx", FileFormat:=51 --> bu kodu kullanabilirsiniz.
@@excel751 Hocam bende excele çevirmeye denedim bu formülle de yapamadım bir örnek yapabilir misiniz veya tam kodunu yazabilir misiniz excele çevirmenin.
Hocam merhabalar
Sub PdfKaydet()
Path = Worksheets("Einstellungen").Range("D3").Text
ad = Worksheets("Einstellungen").Range("D4").Value
Worksheets("sh_DB") .ExportAsFixedFormat xlTypePDF, FileName:=Path & ad & "_" & Date & ".pdf"
End Sub
Yaptim fakat "Compile error: Syntax error" hatasi aliyorum. Yardimci olurmusunuz?
Merhabalar,
Muhtemelen & 'lerin iki yanına da boşluk koymadığınız için oluyor. Ya da bir yerde syntax yani kodun anlamayacağı bir noktalama hatası yapıyorsunuz.
Belki çift tırnakları yanlış yapıyor olabilirsiniz. SHIFT + 2 şeklinde yapmamalısınız. ESC'nin altındaki é tuşuna basarak yapmalısınız.
Buraları kontrol etmenizi öneririz.🙂
Hocam merhaba benim sorum su;
Dosya ismini almasi gerektiği yer textbox icerisinde, textbox 52 olarak yaziyorum ama hata veriyor nasıl yapabilirim? Simdiden tesekkurler
Merhabalar 👋🙂
Textbox.value şeklinde çekebilirsiniz
merhaba hocam bende
complie error:
Variable not defined hatası alıyorum neden olabilir
hatayı düzelttim. Type:=xlTypePDF şeklinde yazmak gerekiyormuş. Yalnız bir sorum daha olacak, active.sheet pdf yapsın istiyorum. Yani standart bir dosya adı vermek istemiyorum
onu da çözdüm belki ihtiyacı olan olur.
ActiveSheet.ExportAsFixedFormat yazmak gerekiyor
Merhabalar 🙂👋
Sorununuzu çözdüğünüze sevindik 🙂 mesajlarınız için teşekkürler. İyi Çalışmalar dileriz.
Merhabalar ben mac kullanıyorum ve kodu bir türlü çalıştıramadım. ne yapmam gerekir. Dosyayı masaüstüne kaydetmek istiyorum.
Merhabalar 👋🙂
Mac te kodlar farklı olabilir
Hocam Ders Mükkemler ama Kaydetme Klasör dizinini değiştirsem de hep masaüstüne kaydediyor sebebi nedir ?
Merhabalar 👋🙂
Mac kullanıyorsanız doya yolları biraz daha farklı olabiliyor. Sonuna / getirmeden ilerleyebiliyorsunuz bazı durumlarda. Bu gibi detaylardan kaynaklı olabilir 🙂
@@excel751 yok hocam Windows işletim sistemi çok ilginç ya hem kodlarından değiştiriyorum hemde Ayarlar sayfasından ama dosyanın isminin başına kaydetmesi gereken klasörün ismini ekleyip masaüstüne kaydediyor 😂😂😂
Merhaba bu kodu google E-Tablolarda da kullanabilir miyiz?
Merhabalar,
Direkt olarak bu kodu Google e tablolarda kullanamazsınız. Çünkü Google tablolarında ve VBA çalışmamaktadır bunun yerine java script tabanlı başka bir kodlama dili bulunur.
Merhaba, Gerçekten video çok güzel öncelikle çok teşekkür ediyoruz. Peki mevcut Pdf i güncellemek istiyorsak yada aynı isimde varsa 2. dosya olarak nasıl kaydedebiliriz ??
Sub Pdf_Cari()
Path = Worksheets("Ayarlar").Range("R1").Text
Faturalanan = Worksheets("Ana Sayfa").Range("O9").Text & " & " & Range("O12").Text
MkDir Path
Worksheets("Ana Sayfa").ExportAsFixedFormat xlTypePDF, FileName:=Path & Faturalanan & "_" & Date & ".pdf"
End Sub
Klasör açıp kaydediyorum, aynı klasörün içinde 2. dosyayı nasıl kayıt yapabiliriz ??
Merhabalar 👋🙂
Rica ederiz, Çok teşekkürler geri bildirimleriniz için 🙂🙏🙏
Anladığımız kadarıyla versiyonlama yapmak istiyorsunuz. Bunun için bütün dosyalara artan değerlerde bir index verebilirsiniz. Dosya isminin sonuna 1,2,3,4,5.......... şeklinde artan bir değer verebilirsiniz. 👍
hocam bende 1004 hatası veriyor
Merhabalar 👋🙂
Lİnkten hata ayıklama yapabilirsiniz.
answers.microsoft.com/tr-tr/msoffice/forum/all/excelde-run-time-error-1004-hatas%C4%B1-veriyor-ne/5533c19a-e860-4067-b650-b85adbede951
Merhaba video için teşekkür ederim
3. kısımda hata alıyorum yardımcı olur musunuz,
Sub PdfKaydet()
Path = Worksheets("Dosya Yolu").Range("B1").Text
ad = Worksheets("Sayfa1").Range("j3").Value
Worksheets("Sayfa1").ExportAsFixedFormat xlTypePDF, Filename:=Path & ad & "_" & Date & ".pdf" (Bu kısımda hata alıyorum)
End Sub
Merhabalar 🙂👋
Sayfa adlarını ve konumlarına dikkat etmelisiniz. Sayfa isimleri ve kodlamalarını tam olarak videodaki gibi yaptığınızda da hata alıyor musunuz ?
@@excel751 Dönüşünüz için teşekkür ederim . Birçok kez denedim fakat hala belirtmiş olduğum yerde hata veriyor , excel sürümüyle ilgili olabilir mi ?2016 excel
@@YATIRIMAKLI Hayır versiyon çok etkilemez 🙂 PDF yüklü değil mi ? Bir de aldığınız hata kodunu internetten araştırabilirsiniz. Sizin için bir yönlendirme olabilir 🙂
@@excel751 "belge kaydedilmedi. belge açık olabilir veya kaydederken bir hatayla karşılaşıldı" araştırıyorum :D
üstad hayırlı günler;
Sub PdfKaydet()
Worksheets("Siparisformu").ExportAsFixedFormat xlsTypePDF, Filename:="C:\Users\SONY\Desktop\test.Pdf"
End Sub
run-time error (9):
subscript out of range hatası alıyorum. nasıl yardımcı olabilirsiniz.
saygılar
Merhabalar 👋🙂
.Pdf --> .pdf şeklinde düzeltilmeli ilk aşamada. Sorun bundan kaynaklı olabilir. 🙂
@@excel751 eyvallah üstad tşk ederim.
@@excel751 Hocam merhaba, aynı sorun bende de mevcut fakat yazım hatası yapılmadığı halde aynı hata kodu karşıma geliyor, Debug tıkladığımda hatalı satır olarak gösteriyor fakat hatayı bulamadım.