Eline sağlık Burakcan. Çok teşekkür ederim. Gene ufkumuzu açan bir video olmuş. Geçen bir mail atmış ve bir ricada bulunmuştum. (Dosyaları otomatik mail ile göndermeyle alakalı idi.) Dört gözle beklemeye devam ediyorum. Hayırlı çalışmalar. Vesselam.
Değerli yorumunuz için teşekkür ederim. Son zamanlarda akademik çalışmalarımdan dolayı video yükleyemiyorum. Videoların mutlaka devamı gelecek ilerleyen zamanlarda. Bu yüzden kanalıma abone olursanız bana destek vermiş olursunuz, teşekkür ederim.
Burakcan Hocam emeklerinize sağlık, çok güzel bir çalışma olmuş Ben vba da userform ile bir performans değerlendirme formu oluşturmak istiyorum. Böyle bir örnek çalışmanız olacak mı?
Tam olarak ne yapmak istediğinizi anlayamadım, daha detaylı bilgi verebilirseniz, geri dönüş yapacağım. Ayrıca güzel yorumlarınız için teşekkür ederim :)
Merhaba, Anlayamadığım bir konuyu sormak istiyorum. 10:45 Hem di değişkeninin sonunda .pdf var hem de pdf kaydetmeniz sağlayan kodda di değişkenininden sonra yine .pdf var. Birisi fazla değil mi?
Merhaba, evet haklısınız "di" değişkeninde ayrıca .pdf uzantısını yazdığımı büyük ihtimalle unutarak tekrardan .pdf yazmışım. Zaten makroyu çalıştırdıktan sonra kaydedilen pdf dosyalarının isimlerinin sonunda ".pdf" ibaresi bulunmaktadır, tek bir pdf kullanmış olsaydım dosyanın ismi de doğru olacaktı. Durumu fark ederek bilgilendirdiğiniz için ayrıca teşekkür ederim.
Burakcan hocam emeğine sağlık ben sadece bir adet pdf için yaptım bana pdf kaydet dediğimde yayınlanıyor diye bir bar çıkıyor. Sizde hiç öyle bir şey çıkmadan for döngüsündeki hepsi için otomatik oluşuyor nerede hata yapmış olabilirim
Merhaba, dosyanız varsa mail adresime paylaşabilirsiniz, yapabileceğim bir şey ise yardımcı olmak isterim, isterseniz buradan da sorunuzu iletebilirsiniz.
@@CodePlus-BurakcanBayraktar Merhabalar bu kod outlook da maillerin ek lerini yazdırmayı çalıştırıyor ancak ben pdf dosyalarının sadece ilk sayfasını yazdırmak istiyorum ayrıca bu kural çalışırken mail açıkken yeni mailler geldiğinde 424 object not found result hatası ve aynı kutuda mailleri yazdırırken de Error 75 - Path / File access error hatası alıyorum her iki hatayı outlook u kapatıp açarak çözmeye çalışıyorum yardımcı olabilir misiniz? Sub AttachmentPrint(Item As Outlook.MailItem) On Error GoTo OError ' This script finds the system's Temp folders, ' saves any attachments, and runs the Print ' command for that file. Dim oFS As FileSystemObject Dim sTempFolder As String Set oFS = New FileSystemObject sTempFolder = oFS.GetSpecialFolder(TemporaryFolder) sTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss") MkDir (sTmpFld) ' in the next few lines, you'll see an entry that ' says FileType = . This line gets the last 4 ' characters of the file name, which we'll use later. Dim oAtt As Attachment For Each oAtt In Item.Attachments FileName = oAtt.FileName FileType = LCase$(Right$(FileName, 4)) FullFile = sTmpFld & "\" & FileName oAtt.SaveAsFile (FullFile) ' We're using the FileType text. Note that it's the ' last 4 characters of the file name, which is why ' the next chunk has .xls and xlsx (without the period) ' - the period counts as the fourth character. Select Case FileType Case ".doc", "docx", ".xls", "xlsx", ".ppt", "pptx", ".pdf", ".tif" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(0) Set objFolderItem = objFolder.ParseName(FullFile) objFolderItem.InvokeVerbEx ("print") End Select Next oAtt If Not oFS Is Nothing Then Set oFS = Nothing If Not objFolder Is Nothing Then Set objFolder = Nothing If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing If Not objShell Is Nothing Then Set objShell = Nothing OError: If Err 0 Then MsgBox Err.Number & " - " & Err.Description Err.Clear End If Exit Sub End Sub
Merhaba, kodlarınızı bu şekilde gördüğümde çok anlamlı olamıyor maalesef, excel dosyanızı mail adresime paylaşabilirseniz yardımcı olmaya çalışacağım eğer yapabileceğim bir şeyse.
merhabalar kendi çabalarım ile bir teklif formu hazırladım ancak karşı firmalara bu teklifi gönderdiğimde sanki biraz ara yüzün basit olduğu tanısını alıyorum bana bu konuda yardımcı olabilirmisiniz teklifi nasıl daha iyi hale getirebilirim ?
Hocam söyle bir İşlem yapabilir miyiz. Seçili alanı ve seçtiğimzde A5 hücresinede ki isim ile pdf olarak kayıt edebilir miyiz. Yani ben pdf ye çevircm alanı seçicicm . Onu A5 hücresiNde ki belirledim klasöre B5 hücreninde ki isimle kayıt edecek. Böyle bir çalışma yapabilirmiyiz Hocam.. Şimdiden tşk ederim.
@@CodePlus-BurakcanBayraktar Yani Örnek verecek olursam. A1 Hücresine Code Plus yazdım .. Ben her hangi bir alalını seçtimde istedim alanı pdf ye A1 hücresinde ki Code Plus Adında Pdf oluşturack bana.. Bunu da yaptı hocam... sizin sayenizde
Hocam merhaba bir soru sarabilir miyim? Aynı isimde pdf kaydedersek, (1).pdf olarak kaydetsin örneğin; Sedat Caner.pdf ve Sedat Caner(1).pdf gibi Yardımcı olursanız sevinirim. İyi çalışmalar
Merhaba, belirttiğiniz isimlerle otomatik bir şekilde pdf formatında dosyalar kaydedebilirsiniz. Ancak bunu yorum kısmında açıklığa kavuşturabilmem çok kolay olmaz, ayrı bir algoritma hazırlamak gerekli diye düşünüyorum.
@@CodePlus-BurakcanBayraktar ilginiz için teşekkür ederim. Müsait olduğunuz bir zamanda bu konuyla ilgili bir video çekerseniz beni çok mutlu edersiniz. İyi çalışmalar dilerim
Yorumlarınız için teşekkür ederim. Video üretirken heyecan dolu oluyorum ve gerçek kendimi yansıtıyorum. Bu yüzden dolayı o şekilde bir ses tonum olsa gerek.
@@CodePlus-BurakcanBayraktar Rabbiim işinizi gücünüzü Rast getirsin hocamm.. Bu bilgiler çok buyuk işler . Genelde anlatırken boyle ölüölü anlatırlar insanın sevdıgı konuda olsa sogur. ama siz hikayede anlatsınız gercekten dinlenilıor hocamm .) Sizi boyle m,lyonların karsısına Sunumcu olarak toplumun anlayamadı idrak edemediği konuları anlatacksınız. bak nasıl dinlıor anlayırlar :) Maşşşallh Size Diyelim... 🧿🧿🧿🧿🧿🧿
Eline sağlık Burakcan. Çok teşekkür ederim. Gene ufkumuzu açan bir video olmuş. Geçen bir mail atmış ve bir ricada bulunmuştum. (Dosyaları otomatik mail ile göndermeyle alakalı idi.) Dört gözle beklemeye devam ediyorum. Hayırlı çalışmalar. Vesselam.
Çok teşekkürler. Çok yararlı oldu.
Harika bir ufuk açtın bana kardeşim, çok teşekkür ederim.
Çok teşekkür ederim🙏. Mutlaka diğer videolara da göz atmanızı tavsiye ederim 👍
Emeğine Sağlık. Super olmuş. Teşekkürler.
Ben teşekkür ederim🙏 Beğenmenize sevindim, diğer videolarımada göz atmayı unutmayın.
Elinize sağlık çok güzel bir çalışma olmuş
Değerli yorumunuz için teşekkür ederim. Son zamanlarda akademik çalışmalarımdan dolayı video yükleyemiyorum. Videoların mutlaka devamı gelecek ilerleyen zamanlarda. Bu yüzden kanalıma abone olursanız bana destek vermiş olursunuz, teşekkür ederim.
Teşekkürler.
Hocam elinize yüreğinize kalbinize emeğinize sağlık. :-)
Burakcan Hocam emeklerinize sağlık, çok güzel bir çalışma olmuş
Ben vba da userform ile bir performans değerlendirme formu oluşturmak istiyorum. Böyle bir örnek çalışmanız olacak mı?
Tam olarak ne yapmak istediğinizi anlayamadım, daha detaylı bilgi verebilirseniz, geri dönüş yapacağım. Ayrıca güzel yorumlarınız için teşekkür ederim :)
Merhaba,
Anlayamadığım bir konuyu sormak istiyorum.
10:45
Hem di değişkeninin sonunda .pdf var hem de pdf kaydetmeniz sağlayan kodda di değişkenininden sonra yine .pdf var.
Birisi fazla değil mi?
Merhaba, evet haklısınız "di" değişkeninde ayrıca .pdf uzantısını yazdığımı büyük ihtimalle unutarak tekrardan .pdf yazmışım. Zaten makroyu çalıştırdıktan sonra kaydedilen pdf dosyalarının isimlerinin sonunda ".pdf" ibaresi bulunmaktadır, tek bir pdf kullanmış olsaydım dosyanın ismi de doğru olacaktı. Durumu fark ederek bilgilendirdiğiniz için ayrıca teşekkür ederim.
@@CodePlus-BurakcanBayraktar rica ederim. Saygılar
Burakcan hocam emeğine sağlık ben sadece bir adet pdf için yaptım bana pdf kaydet dediğimde yayınlanıyor diye bir bar çıkıyor. Sizde hiç öyle bir şey çıkmadan for döngüsündeki hepsi için otomatik oluşuyor nerede hata yapmış olabilirim
Merhaba, bana bu çalışmayı gönderirseniz incelmek isterim. Ayrıca yorumunuz için çok teşekkür ederim.
Merhabalar rahatsız ediyorum kusura bakmayın gönderdiğim mailleri inceleyebildiniz mi?
Merhaba inceledim gönderdiğiniz dökümanları ama bende pek bir şey anlayamadım açıkçası.
harika
Çok teşekkürler :)
Merhabalar kodlama ile alakalı hiç bir bilgim yok. Outlook Vba tarafında bir sorum da yardımcı olabilir misiniz?
Merhaba, dosyanız varsa mail adresime paylaşabilirsiniz, yapabileceğim bir şey ise yardımcı olmak isterim, isterseniz buradan da sorunuzu iletebilirsiniz.
@@CodePlus-BurakcanBayraktar Merhabalar bu kod outlook da maillerin ek lerini yazdırmayı çalıştırıyor ancak ben pdf dosyalarının sadece ilk sayfasını yazdırmak istiyorum ayrıca bu kural çalışırken mail açıkken yeni mailler geldiğinde 424 object not found result hatası ve aynı kutuda mailleri yazdırırken de Error 75 - Path / File access error hatası alıyorum her iki hatayı outlook u kapatıp açarak çözmeye çalışıyorum yardımcı olabilir misiniz?
Sub AttachmentPrint(Item As Outlook.MailItem)
On Error GoTo OError
' This script finds the system's Temp folders,
' saves any attachments, and runs the Print
' command for that file.
Dim oFS As FileSystemObject
Dim sTempFolder As String
Set oFS = New FileSystemObject
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)
sTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss")
MkDir (sTmpFld)
' in the next few lines, you'll see an entry that
' says FileType = . This line gets the last 4
' characters of the file name, which we'll use later.
Dim oAtt As Attachment
For Each oAtt In Item.Attachments
FileName = oAtt.FileName
FileType = LCase$(Right$(FileName, 4))
FullFile = sTmpFld & "\" & FileName
oAtt.SaveAsFile (FullFile)
' We're using the FileType text. Note that it's the
' last 4 characters of the file name, which is why
' the next chunk has .xls and xlsx (without the period)
' - the period counts as the fourth character.
Select Case FileType
Case ".doc", "docx", ".xls", "xlsx", ".ppt", "pptx", ".pdf", ".tif"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVerbEx ("print")
End Select
Next oAtt
If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing
OError:
If Err 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub
End Sub
@@CodePlus-BurakcanBayraktar Merhabalar kodları inceleyebildiniz mi?
Merhaba, kodlarınızı bu şekilde gördüğümde çok anlamlı olamıyor maalesef, excel dosyanızı mail adresime paylaşabilirseniz yardımcı olmaya çalışacağım eğer yapabileceğim bir şeyse.
@@CodePlus-BurakcanBayraktar Merhabalar mail adresinize mail yolladım en kısa sürede geri dönüşlerinizi bekliyorum. Şimdiden teşekkür ederim :)
merhabalar kendi çabalarım ile bir teklif formu hazırladım ancak karşı firmalara bu teklifi gönderdiğimde sanki biraz ara yüzün basit olduğu tanısını alıyorum bana bu konuda yardımcı olabilirmisiniz teklifi nasıl daha iyi hale getirebilirim ?
Merhaba, boş bir vaktimde yardımcı olmak isterim. İsterseniz, mail adresime çalışmanızı gönderin inceleyip değerlendirmeye çalışayım.
@@CodePlus-BurakcanBayraktar Merhaba, geri dönüşünüz için teşekkür ederim size mail olarak ilettim cevabınızı bekliyor olacağım.
Hocam söyle bir İşlem yapabilir miyiz.
Seçili alanı ve seçtiğimzde A5 hücresinede ki isim ile pdf olarak kayıt edebilir miyiz.
Yani ben pdf ye çevircm alanı seçicicm . Onu A5 hücresiNde ki belirledim klasöre B5 hücreninde ki isimle kayıt edecek.
Böyle bir çalışma yapabilirmiyiz Hocam..
Şimdiden tşk ederim.
Merhaba, muhtemelen yapabiliriz ancak tam olarak ne demek istediğiniz anlayamadım.
@@CodePlus-BurakcanBayraktar
Tm Hocam Halletim. Sizin Bu dersinizden Esinlenerek vede bilgi alarak yaptımmm....
@@CodePlus-BurakcanBayraktar Yani Örnek verecek olursam. A1 Hücresine Code Plus yazdım .. Ben her hangi bir alalını seçtimde istedim alanı pdf ye A1 hücresinde ki Code Plus Adında Pdf oluşturack bana.. Bunu da yaptı hocam... sizin sayenizde
@@Hakan-cq6ek Merhaba bunu nasıl yaptınız yardımcı olabilir misiniz.
sevgili hocam 1 tık ile 1000 excel sayfası olusdurabilirmisin?
Sevgili takipçim, tabii ki hemen notlarım arasına alıyorum :)
Hocam merhaba bir soru sarabilir miyim?
Aynı isimde pdf kaydedersek, (1).pdf olarak kaydetsin
örneğin; Sedat Caner.pdf ve Sedat Caner(1).pdf gibi
Yardımcı olursanız sevinirim. İyi çalışmalar
Merhaba, belirttiğiniz isimlerle otomatik bir şekilde pdf formatında dosyalar kaydedebilirsiniz. Ancak bunu yorum kısmında açıklığa kavuşturabilmem çok kolay olmaz, ayrı bir algoritma hazırlamak gerekli diye düşünüyorum.
@@CodePlus-BurakcanBayraktar ilginiz için teşekkür ederim. Müsait olduğunuz bir zamanda bu konuyla ilgili bir video çekerseniz beni çok mutlu edersiniz. İyi çalışmalar dilerim
Hocam Excelci değilde daha çok tiyatrocu oyuncu birde çizgi film kahramanlarınnin seslerini Veren dubLore benziyor anlatmanz ver ses tonunuz :-)
Yorumlarınız için teşekkür ederim. Video üretirken heyecan dolu oluyorum ve gerçek kendimi yansıtıyorum. Bu yüzden dolayı o şekilde bir ses tonum olsa gerek.
@@CodePlus-BurakcanBayraktar Rabbiim işinizi gücünüzü Rast getirsin hocamm.. Bu bilgiler çok buyuk işler . Genelde anlatırken boyle ölüölü anlatırlar insanın sevdıgı konuda olsa sogur. ama siz hikayede anlatsınız gercekten dinlenilıor hocamm .) Sizi boyle m,lyonların karsısına Sunumcu olarak toplumun anlayamadı idrak edemediği konuları anlatacksınız. bak nasıl dinlıor anlayırlar :) Maşşşallh Size Diyelim... 🧿🧿🧿🧿🧿🧿
İyi dilekleriniz için çok çok teşekkür ederim 🙏