عرض ملف pdf عن طريق userform

السلام عليكم .. ممكن مساعدة في:



1- في زر إظهار البيانات : انا اريد ان يظهر 12 عامود في الليست بوكس لكن الكود يظهر فقط 9 اعمدة وبحثت عن المشكلة في النت ولم أجد حل
List(.ListCount - 1, 9) = Cel1.Offset(0, 9).Value << فقط يقبل إلى  9
List(.ListCount - 1, 10) = Cel1.Offset(0, 10).Value << لا يقبل إلى 10 وما فوق

مع العلم أن هذا الكود هو فقط المناسب لطلبي أي أنه يظهر جميع البيانات الموجودة في الشيت وحتى البيانات المفلترة Autofilter
لكن المشكلة فقط في عدم إظهار العمود 11و12

---------------------------------------
2- زر ارفاق القرار: أريد عندما يبحث المستخدم في الكومبوبوكس عن اسم الطالب او عند الارفاق ان يظهر الملف عن طريق AcroPDF
من خلال textbox1 تلقائيا أو حتى عن طريق زر (عرض القرار) إذا لزم







أستخدمت هذا الكود من فديو تعليمي في اليوتيوب غيرت فيه ولم يزبط مع حالتي


الفديو اللي أخذت منه الكود وغيرت فيه


و لا مانع إذا عندك حل ثاني أو اي تعديلات  تناسب طلبي

وشكرا جزيلا أستاذ مجدي وعذرا على الإطالة.. دمت بخير


مرفق الملف مع ملفات pdf

https://up.top4top.net/downloadf-1172efb0o1-rar.html

بحثت فى الملف بسرعة وعند مشاهدة دقيفتين عرفت المشكلة

انظر الصور

دى صورة من الفيديو تفعيل البداف غير موجود عندى وحاولت كتير افعلة

مجدى يونس كتب:

انا حملت الملف ودى بداية العمل حشوف الملف واشوف الفيديو مع انى عملت ملف اكسل لتحميل بد اف موجود بالمنتدى

ابحث عن طلبك بالمنتدى وعلى الفجر اشوف مشاكل ملفك

بحثت فى الملف بسرعة وعند مشاهدة دقيفتين عرفت المشكلة

انظر الصور

دى صورة من الفيديو تفعيل البداف غير موجود عندى وحاولت كتير افعلة

أستاذي انا فعلته عن طريق (Additional tools)بعدين أخترت Adobe PDF Reader
أتوقع ينفع من اصدار 2013 فما فوق


بسألك أستاذي هل في حل لمشكلتي؟ دورت ما لقيت الفديو التعليمي  الpdf اللي قلت عليه
أتمنى تساعدني مشكور

طلبك على الرابط التالى باسم زر اوامر لفتح ملفات متعددة من الفورم
https://magdi54.forumegypt.net/t493-topic?highlight=%D8%B2%D8%B1+%D8%A7%D9%88%D8%A7%D9%85%D8%B1+%D9%84%D9%81%D8%AA%D8%AD+%D9%85%D9%84%D9%81%D8%A7%D8%AA+%D9%85%D8%AA%D8%B9%D8%AF%D8%AF%D8%A9+%D9%85%D9%86+%D8%A7%D9%84%D9%81%D9%88%D8%B1%D9%85

مجدى يونس كتب:

المشكلة عندى ان الاوفيس كان بقاله يومين ويقف ثم بحثت عن تحديثه وعرفت احدثة
لكن عندما حدثته حاولت Additional toolsادخل عليها لكن رفض الفتح
مستنى لما اغير الوندز انزل اوفيس يفتح معايا

طلبك على الرابط التالى باسم زر اوامر لفتح ملفات متعددة من الفورم
https://magdi54.forumegypt.net/t493-topic?highlight=%D8%B2%D8%B1+%D8%A7%D9%88%D8%A7%D9%85%D8%B1+%D9%84%D9%81%D8%AA%D8%AD+%D9%85%D9%84%D9%81%D8%A7%D8%AA+%D9%85%D8%AA%D8%B9%D8%AF%D8%AF%D8%A9+%D9%85%D9%86+%D8%A7%D9%84%D9%81%D9%88%D8%B1%D9%85

جربت الكود ذا
Dim mm As String
mm = ThisWorkbook.Path
ActiveWorkbook.FollowHyperlink mm & "\m.docx"
بس للاسف ما زبط معايا اتوقع ما يناسب مع الشي اللي اريده .. مو مشكلة يا استاذ بانتظارك

هو الرابط الملف اللى به لم يناسبك
حاولت انزل اوفيس 2003 اشتغل عليه رفض التسطيب

مجدى يونس كتب:

هو الرابط الملف اللى به لم يناسبك
حاولت انزل اوفيس 2003 اشتغل عليه رفض التسطيب

طيب استاذ مجدي عندك فكرة تانية كيف ممكن افتح الpdf من خلال مثلا بالضغط على الخلية التي ارفقت فيها الملف
انا عملت فورم ارفاق القرار عن طريق البحث بالاسم من خلال كومبوبوس وبعد ذلك اضغط على زر اختيار الملف واختار الملف وسوف يندرج في تكست بوكس الموجود في الفورم
واذا المستخدم ضغط على زر ارفاق الملف سوف يدرج في الخلية المخصصة للاسم المراد بقي فقط اذا اريد فتح الملف اذا لم ينفع ذلك عن طريق adobe pdf reader
هل استطيع فتح الملف المرفق من خلال الضغط عليه من الخلية نفسها؟

شوفى الملف المرفق لحين تنزيل اوفيس
تكتبى رقم البداف فيستدعيه

الملف

مجدى يونس كتب:

شوفى الملف المرفق لحين تنزيل اوفيس
تكتبى رقم البداف فيستدعيه

الملف

للاسف الرابط لا يعمل .. مشكور على المجهود استاذي

تظهر صفحة والملف ما يتحمل

رابط الملف
الملف

مساء الخير أستاذي

جربت دا الكود:
Dim x As String
x= Me.TextBox1.Value
Me.AcroPDF1.LoadFile x

أول مرة زبط وفتح الadobe pdf reader وحفظت الكود
بس بعده مسحت الفورم بالغلط بعد قفلت الملف بدون الحفظ (لأن الكود خلاص محفوظ والفورم موجود)
بعدين لمن فتحت الملف تاني والفورم والكود موجودين بس adobe pdf reader ما يشتغل وحاولت كتير ما نفع وزعلانة مرا أنه زبط في البداية

الله يسعدك متى حتنزل الأوفيس؟ مرا محتاجته ضروري وعذرا جدا على الالحاح ومشكور على الرد.. دمت بخير

كلمت واحد معاه اوفيس كامل بالسرى وعدنى يجيبه وبقالى 5 أيام مستنيه
ادعى لينا

مساء الخير أستاذي

واجهتني مشكلة صغيرة أرجو المساعدة فيها



طبعا سويت للجدول "Format table" عشان يكون له "Range" وعند إضافة بيانات المفترض ينضاف  في الصف الأول أي "A9" لكن المشكلة ينضاف خارج الجدول المنسق كالتالي



زبط معي عندما مسحت "Format Table"  بس انا احتاجه منسق عشان يكون له "Range" كما ذكرت في السابق لان في كود يعتمد عليه

اتمنى تساعدني فيه ومشكور جدا على المساعدة الدائمة .. دمت بود

مرفق الملف
https://up.top4top.net/downloadf-1185ytc6l1-rar.html

[quote="مجدى يونس"]

بس أتوقع ما اقدر اسوي فلتر للعناوين كدا وانا عندي زر يحسب عدد الصفوف الظاهرة والمفلترة

عندك مشكلة فى السطر 9 بحثت فى حماية ملقيتش حاجة اول منزلت العنواين فيها ظهر السطر العلوى واتحلت المشكلة

مجدى يونس كتب:

عندك مشكلة فى السطر 9 بحثت فى حماية ملقيتش حاجة اول منزلت العنواين فيها ظهر السطر العلوى واتحلت المشكلة

شكرا جزيلا أستاذي غيرت الكود و الحمدلله زبط
Dim rng As Range
Set rng = ActiveSheet.ListObjects("List2021").Range
Dim LastRow As Long
LastRow = rng.Find(What:=" * ", _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

rng.Parent.Cells(LastRow + 1, 2).Value = TextBox1
rng.Parent.Cells(LastRow + 1, 1).Value = TextBox2
rng.Parent.Cells(LastRow + 1, 3).Value = ComboBox8


بانتظار فقط كود acropdf

ما اعرف كيف اشكرك استاذ مجدي ساعدتني كتير الله يجعله في ميزان حسناتك ومشكور جدا الله يعطيك ألف عافية ما قصرت .. هذا هو طلبي بالضبط