رسول

شكرا لك اخي العزيز ولجهودك وارجو منك عندما يتسنى لك وقت النظر وتصحيح الاخطاء مع الشكر

عذرا اخي لكن عند تشغيل الملف بعد التعديل عليه من قبلكم تظهر الرسالة التالية

شكرا اخي العزيز محمد لكن عندما طبقت الكود علة الملف المرفق ادناه لم يعمل الفورم مع الشكر ارشفة الحسابات.rar

With ComboBox1 For Each Data In ورقة3.Range("B2:B" & ورقة3.Cells(Rows.Count, "b").End(xlUp).Row) i = Data.Row AA = Application.WorksheetFunction.CountIf(ورقة3.Range(Cells(2, 2), Cells(i, 2)), Data) If AA = 1 Then .AddItem Data .List(.ListCount - 1, 1) = Data.Offset(0, 1).Value End If Next End With

وفقكم الله لكل عمل فيه خير ومنفعة للمجتمع

اخي العزيز طلعت عندما وضعت الفورم في الشيت المرفق طيا لم يعمل الكومبوكس ويظهر خطا مع الشكر اسم المستخدم رسول كلمة المرور 1111 وكذلك عند اضافة فورم الصورة الذي عدلته ليظهر الصورة ايضا لا يعمل ارشفة.rar

جزيل الشكر اخي طلعت

شكرا جزيلا اخي طلعت

احسنت وبارك الله في مجهودك العظيم وادامكم لفعل الخير

يرجى جعل صورة المستند المدرج ظاهرة في الفورم عندالادراج وعند الاستدعاء كما موضح في المرفق مع فائق التقدير ارشفة.rar

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

ارجو من الاخوة تعديل الفورم بحيث تظهر صورة الكتاب عند تحميل المرفق وعند الاستدعاء في البحث ايضا تظهر ضورة الكتاب مع جزيل الشكر