sabry fahmy

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

شكرا لحضرتك اكفيت ووفيت بارك الله فيك

السلام عليكم ورحمة الله وبركاته وبها نبدأ في الخلية e5 عامود غرامة التاخير اريد عمل دالة ان يتم جمع الثلاث خلايا d5+f5+(e5) اذا كانت الخلية h5 فارغة اي لايتم اضافة غرامة طالما تم السداد اما اذا كانت تحتوي علي مبلغ اي تم السداد لا تجمع الخلية e5 الشرح يكون هنا في الموضوع وليس داخل الملف شرح المطلوب داخل الشيت الايجارات.xlsm

اريد عند عمل فلترة لعمود التاريخ حسب المدة المطلوب حسابها (مدة بين تاريخين )وبعد الفلترة يتم نسخ العمود (اشتراك صاحب عمل ) او عمود (اشتراك عامل ) حسب القائمة المنسدلة بالخلية k1 يتم النسخ الي العمود المسمي (A) بالون الاخضر وذلك عن طريق ماكرو او كود برنامج التسويات.xls

في هذا الملف يوجد فورم ادخال اريد ربطة بخلايا معينة في الشيت الخلايا باللون الاصفر وبعد الادخال تظهر النتائج للخلايا الملونة باللون الاخضر المصنف1.xlsm

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

هذا شيت اكسيل اريد تحويله الي اكسس بنفس الداتا Search++kod @sabry.xlsm

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

شكرا جزيلا استاذ محمد صالح lionheart شكرا جزيلا لحضرتك

هذا كود من عمل استاذنا المبدع عبد الله بقشير اريد فقط تعدل علي الكود بحيث يزيد جدول ( adta ) اعمدة (مظلله باللون الاصفر ) وكذلك البحث (مظلل باللون الاصفر ايضا) Search++ - Copy.xlsm

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

محي الدين ابو البشر مشكور اخي الحبيب

ما الخطا الذي في هذا الكود ..... تـــم رفع الملف يومية الاشتراكات - Copy.xlsm

محي الدين ابو البشر شكرا جزيلا استاذ محي ولكن الكود عند الترحيل وبدء ترحيل جديد يحذف الترحيل السابق علما باني الفورم بة 4 تيكست بوكس عند الترحيل املاء تكيست بوكس واحد فقط او اثنين علي الاكثر

معي نموذج ترحيل يقوم بالترحيل في اعمدة مختلفة وهذا هو الكود المستخدم Dim LastRow As Long LastRow=ThisWorkbook.Sheets("DETABEZ").Range("A1000000").End(xlUp).Row LastRow = LastRow + 1 With ThisWorkbook.Sheets("DETABEZ") .Range("D" & LastRow)= TextBox1.Value .Range("I" & LastRow)= TextBox2.Value .Range("B" & LastRow)= TextBox3.Value .Range("C" & LastRow)= TextBox4.Value End With End Function اريد تعديل الكود بحيث يرحل الي اول خلية في العمود الفارغ وهذا هو شيت العمل 12222222.xlsx