عبدالله المجرب

موضوع مكرر هنا يغلق

تسلم ايدك يا استاذ سعيد متجدد دائما في مواضعيك

هل تريد سطر المسح

شاهد المرفق محمد.rar

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

جرب هذا الكود بداية قم بإزالة الدمج في الورقة 2 وكذلك امسح البيانات فيها ثم فعل الكود Sub Abu_Ahmed() Set MySh = Sheets("ورقة2") For i = 1 To 30 If i = 1 Then MySh.Range("A" & MySh.[A10000].End(xlUp).Row) = [D4] MySh.Range("A" & MySh.[A10000].End(xlUp).Row & ":" & "B" & MySh.[A10000].End(xlUp).Row).Merge End If If i = (Val([E4]) + 1) Then MySh.Range("A" & MySh.[A10000].End(xlUp).Row + 3) = [D5] MySh.Range("A" & MySh.[A10000].End(xlUp).Row & ":" & "B" & MySh.[A10000].End(xlUp).Row).Merge End If If i = (Val([E4]) + Val([E5]) + 1) Then MySh.Range("A" & MySh.[A10000].End(xlUp).Row + 3) = [D6] MySh.Range("A" & MySh.[A10000].End(xlUp).Row & ":" & "B" & MySh.[A10000].End(xlUp).Row).Merge End If MySh.Range("A" & MySh.[A10000].End(xlUp).Row + 1) = Cells(i + 1, 1) Next End Sub

الا تريد إستعمال الكود في الترحيل

طلبك غير مفهوم لانه حالياً بالبحث عن رقم معين تظهر بياناته

هذا الموضوع مميز ويستحق التثبيت ××××××× مثبت ××××××× الإدارة

شاهد ملفك بعد التعديل OMAR.rar

السلام عليكم اخي الفاضل الكود الذي نقلته له اشتراطات وانت لم تعمل بها ومنها انه لا يوجد مربعي نص بهذين المسممين DBNew - DBOld لوضع المسار فيها ============== لنقل اي كود يجب العمل على تعديل ما يلزم ليعمل الكود

السلام عليكم اعتقد في البداية يجب ان يكون هناك رابط بين هذه الجداول (على سبيل المثال جداول الضمان) ليس هناك رابط بينها وبين الاجهزة حاول تعديل جداولك بحيث تكون هناك علاقة ربط حسب الجدول == مثلاً جدول موقف الضمان وجدول ضمان قطع الغيار اظن انه يمكن دمجهما في جدول واحد يكون فية رابط برقم المنتج الذي ينطبق عليه الضمان وهكذا

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

السلام عليكم (منقول) ملف به شرح للاستاذ محمد طاهر Etqan.rar

بصراحة طلبك غير مفهوم

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

ممكن عمل التلوين بالكود ان شاء الله ضع مرفق

السلام عليكم بعد فحص الملف لا يوجد كود لمنع عمل الملف اذا كان الامان مرتفع ولكنها حيل متقنه تم عملها لاخفاء الشيتات وللعلم فانه قبل الخروج من البرنامج يتم اختيار ورقة (Information) لتكون هي الورقة المفعلة ولكون تفعيل الاوراق يتم بالكود فاذا كان الامان مرتفع لن تفعل الاوراق شاهد الصورة

فكرة جميلة أستاذ ابو خليل

بارك الله فيك استاذ عبدالله

السلام عليكم اليك هذا المرفق من عمل الاستاذة زهرة za-School-UP (1).rar

هل تقصد تريده يظهر أم لا يظهر

ما رايك ان تضع مرفق

إجعل مصدر البيانات استعلام وضع في المعايير الفرز تنازلي

الف مبروك