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.
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.
@@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.
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?
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
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
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 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
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.
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.
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 ü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")
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.🙂
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
@@excel751 Hocam bende excele çevirmeye denedim bu formülle de yapamadım bir örnek yapabilir misiniz veya tam kodunu yazabilir misiniz excele çevirmenin.
@@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, 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. 👍
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 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.
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
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 😂😂😂
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
ü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
@@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.
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 🙂