الـعيدروس

السلام عليكم وش رأيك بالفله المنوره للأستاذ الحســـــــــــــامي حفظه الله إطلع على المرفق قاعدة بيانات صور (للاستاذ الحسامي).rar

السلام عليكم انا اسف فعلا كلامك مزبوط تفضل جرب المرفق DATABES_&_TQRER_A2003_20.rar

السلام عليكم جرب المرفق Filter_ALI.rar

السلام عليكم الاخ الفاضل ضى النور حفظك الله شوف الحين حقل الإقامة فارغ في شيت حديثي الدخول اوك انت تخش على الفورم تبحث برقم الحدود ظهر لك الإسم تنقر عليه في الليست بوكس بيظهر زر ترحيل تروح تسجل رقم الإقامة في تكست بوكس رقم الإقامة وبعدها تنقر على زر ترحيل رح يترحل رقم الإقامة الذي سجلته و الإسم عربي والإسم انجليزي والجنسية ورح يحذف من شيت حديثي الدخول هل هذا ماتريده ؟؟؟ DATABES_&_TQRER_A2003_10.rar

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

اخي الفاضل بالنسبة للتقارير ياريت نخليها اخر شيء لاني للحين موش عارف وين الخلل بالضبط

اخى الفاضل بالنسبة لشيت الهاربين لو مافيش رقم اقامة مكتوب بالصفحة فى العمود الى باسم رقم الاقامة فالبحث لا يعمل وطبعا مافيش رقم اقامة لان حديثى الدخول مافيش له رقم اقامة " إقتباس" اخي البحث في مخالفات المرور ام حديثي الدخول ارجو الرد

السلام عليكم اخي الفاضل تعمل كيف لاتعمل هل قصدك الجمع يعني لانك مستخدم دالة SUBTOTAL وهي تقوم بجمع المفلتر فقط لاكن جرب بدالة SUM راح يظهر معك ناتج الجمع

السلام عليكم هذا الكود في حدث الصفحه اذا كنت تريد الكلمة بمجملها بمجرد الخروج من الخليه يغير الخط من اسمول الى كبتل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:F1")) Is Nothing Then Target.Value = UCase(Target.Value) End If End Sub وهذا الكود بمودويل يغير نطاق تحدده في الكود من اسمول الى كبتل Sub THOEEL() For Each CEL In Range("A3:F3") CEL.Value = UCase(CEL.Value) Next End Sub

هل تريد جزء من الكلمة بحالة كبتل أم الكلمة كاملة ؟؟؟

السلام عليكم اخي صراحة اجبرت ان استخدم عمود مساعد وحيل اخرى هذا مالدي اعذرني ولاكن إن توصلت لفكرة اخرى لن ابخل جرب المرفق G_ALIDROOS_1.rar

السلام عليكم جرب المرفق ان شاء الله يفي بالغرض G_ALIDROOS.rar

اين المرفق ؟؟؟

اخي حط الرمز 123 للترحيل واما البحث فهو بموجب رقم الحدود بالتأكيد وبالنسبة للتقرير اشيك عليه وأتأكد من الناتئج واوافيك بالنتيجة

إستخدم هذا الكود لحذف مكرر عمود G Public Sub DE_TQRAR() ActiveSheet.Range("G4:G" & Range("G" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes End Sub

اطلع على المرفق دمج كودين1.rar

===== >>> لم يستوعب المطلوب ماهو التحديث والقائمة المنسدلة الذي فيها أرقام صفحات أم ماذا العذر والسموحه فهمي بطيئ

اي القائمة تريدها ابجديا Data ام Result

التقرير بيجيب مابين التاريخين المحددين فقط انا مجرب الملف بيعمل مزبوط أرجو التوضيح

السلام عليكم استخدم هذا الكود حطه في موديول جديد وخصص له زر Public Sub CAL_C() Call kh_copy_Formula4 Call kh_copy_Formula5 End Sub

السلام عليكم اطلع على المرفق وماهي الإضافات المراده والسلام عليكم DATABES_&_TQRER_A2003.rar

اخي ضى النور بالنسبة بشيت الهاربين فيه عمود (تاريخ انتهاء الاقامة) وعمود ( تاريخ الهروب) وعمود ( تاريخ التبليغ بالهروب) اي من هالاعمدة تريد نعمل عليه فلترة ؟؟؟؟

السلام عليكم أخي ضى النور بالنسبة للتقارير والله الطريقة السابقة هيا التي في جعبتنا وأما غيرها ( من قال لاأعلم فقد افتى ) ولاكن ننتظر مدخرات العلماء الأفذاذ الذين تعلمنا منهم يدلونا على شيء يتماشا مع متطلبات ملفك هذا والسلام عليكم

تسلم أستاذي عبدالله المجرب وبارك الله فيك دائماً وابداً إضافات وتعديلات المحترفين ممتعه

السلام عليكم ياللروعة حلول بنكهة الإحتراف بارك الله فيكم وزادكم من علمة وفضله