حسونة حسين

وعليكم السلام ورحمة الله وبركاته 

يمكنك الاستفادة من هذا الموضوع 

وعليكم السلام ورحمة الله وبركاته 

جرب هذا التعديل

Private Sub CommandButton9_Click()
ActiveSheet.Range("A1:M29").ExportAsFixedFormat Type:=xlTypePDF,Filename:="D:\تقارير قسم الحركة\" & range("C6") & ".pdf"

وعليكم السلام ورحمة الله وبركاته 

يمكن ذلك عن طريق اتباع الخطوات التالية:

حدد الخلية التي تريد إدراج ملفك فيها

انقر فوق علامة التبويب "إدراج"

انقر فوق "كائن" ضمن مجموعة "نص"

حدد "إنشاء من ملف"

تصفح ملفك

حدد خانة الاختيار "عرض كرمز" إذا كنت تريد إدراج رمز يرتبط بالملفات

انقر فوق "موافق"

ويمكنك الاستفاده من هذا الرابط

https://www.rowshare.com/blog/tips/how-to-insert-attachments-in-excel/

وعليكم السلام ورحمة الله وبركاته 

بارك فيك استاذ وجيه 

بارك الله فيك استاذ ضاحى جعله الله في ميزان حسناتك يوم القيامه 

السلام عليكم ورحمة الله وبركاته 

تصميم جميل وفقك الله لما يحبه ويرضاه 

بارك الله فيكم اخوانى واساتذتى جميعا

وفقنا الله جميعا واياكم لما يحبه ويرضي

وعليكم السلام ورحمه الله وبركاته

بارك الله فيك اخى  AbuuAhmed

بارك الله فيك اخى ابويوسف محمد حسن المحمد

بارك الله فيك اخى المشرفي

بارك الله فيك اخى ابراهيم الحداد

بارك الله فيكم اخوانى واساتذتى جميعا

واسأل الله تعالى أن يجعلنا جميعا في خدمة العلم النافع ، وأن يجعله بميزان حسناتنا جميعاً يوم القيامة

آمين يارب العالمين

جزاكم الله خيرا استاذ علي على هذا التشريف

جزاكم الله خيرا استاذ محمد على هذا التشريف

اسأل الله العظيم رب العرش العظيم ان يوفقنا جميعا لما يحبه ويرضاه وان يعينني على هذه المهمه

وعليكم السلام ورحمه الله وبركاته

كيف تقوم بالابدال اخي عبدالكبير

وعليكم السلام ورحمة الله وبركاته 

احفظ الملف بامتداد

Xlsm

او

xlsb

تقرير.xlsm

الف مليون مبروك 

وعليكم السلام ورحمه الله وبركاته

اخى @talal baghdadi

ضع هذه المعادله في الخليه E14 واسحب لاسفل قدر ما تحتاج

=Ameen|AcnBal!'AccCode=&INDIRECT("D" &ROW(),StartDate="1-1-2022",EndDate="30-10-2022",ShowUnPostedEnt="1"'

وعليكم السلام ورحمه الله وبركاته

ارفق ملف اخى يري الاخوة ما هي المشكله

ثم يعطوك حل مشكلتك ان شاء الله

هل هذا الاختيار لديك

وعليكم السلام ورحمه الله وبركاته

عن طريق تجربه البرامج التي تصنع pdf لدي هذه هي النتائج

Microsoft Print to pdf  الطباعه عن طريق Microsoft Print to pdf    لا يوجد بها تقطيع

Adobe pdf.pdf            الطباعه عن طريق Adobe pdf                    لا يوجد بها تقطيع ولكن تاتى ببعض الكلمات باللون الاسود

dopdf.pdf               الطباعه عن طريق Do pdf                             هي التى يوجد بها تقطيع

وعليكم السلام ورحمة الله وبركاته 

استبدل cells

ب range

وجزاكم مثله استاذنا الغالى ابو يوسف 

جعل الله اعمال استاذنا الفاضل في ميزان حسناته يوم القيامه 

وعليكم السلام ورحمة الله وبركاته 

هل تتذكر اي شيئ عن الرقم السري

ارقام.   ولا حروف      ولا رموز

ولا الكل معا 

هل تتذكر اي شيى ام لا.

فيديو يوضح لك طريقه لمحاوله فتح الملف

https://youtu.be/S-_O9H0Mm0c

وعليكم السلام ورحمة الله وبركاته 

الملف ليس به اي مشاكل اخى مهند

المشكله عندك في اللغه العربيه الخاصه بجهازك

يمكنك الاستفادة من هذا الموضوع

وعليكم السلام ورحمة الله وبركاته 

كيف حالك اخى هانى

علم علامه صح على unblock 

وعليكم السلام ورحمة الله وبركاته 

عدل هذا السطر 

If ws.Cells(r, c + 1).Value2 >= myDate Then

ليصبح هكذا

If ws.Cells(r, c + 1).Value2 >= myDate and If ws.Cells(r, c + 1).Value2 <= CLng(DateSerial(2019, 1, 1)) Then

وعليكم السلام ورحمة الله وبركاته 

من هنا البدايه

https://www.officena.net/ib/topic/37509-ساعه-رقمي-وتناظري

الحمد لله الذي بنعمته تتم الصالحات 

مبارك عودتك اخى الكريم