أبو العاصم

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

تاملف غير موحود

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

السلام عليكم ورحمة الله الكود التالى من اعداد المبدع الخالدى فيه مشكلة وهى انه لا يقوم بعمل مسلسل وانما يقوم بعمل ترتيب فى المفردات فلو مثلا الكلمة فى العمود B تكررت يعطيها الرقم هو هو كلما تكررت هل من تعديل ليقوم بالتسلسل بغض النظر عن تكرار الكلمة Private Sub Worksheet_Selectionchange(ByVal Target As Range) Set Rn1 = [A4:A20] Set Rn2 = Rn1.Offset(0, 1) Rn1.ClearContents For i = 1 To Rn1.Rows.Count If Rn1(i) = "" And Rn2(i) <> "" Then N = N + 1 For ii = i To Rn1.Rows.Count If Rn2(ii) = Rn2(i) Then Rn1(ii) = N Next ii End If Next i Set Rn1 = Nothing: Set Rn2 = Nothing End Sub والرجاء التعديل على الكود لان فيه ميزتان انه يعمل مع التصفية انه يضاف فى حدث الصفحة

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

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

السلام عليكم ورحمة الله الكود الجميل ده Private Sub Worksheet_Selectionchange(ByVal Target As Range) Set Rn1 = [A4:A20] Set Rn2 = Rn1.Offset(0, 1) Rn1.ClearContents For i = 1 To Rn1.Rows.Count If Rn1(i) = "" And Rn2(i) <> "" Then N = N + 1 For ii = i To Rn1.Rows.Count If Rn2(ii) = Rn2(i) Then Rn1(ii) = N Next ii End If Next i Set Rn1 = Nothing: Set Rn2 = Nothing End Sub فيه مشكلة وهى انه لا يقوم بعمل مسلسل وانما يقوم بعمل ترتيب فى المفردات فلو مثلا الكلمة فى العمود B تكررت يعطيها الرقم هو هو كلما تكررت هل من تعديل ليقوم بالتسلسل بغض النظر عن تكرار الكلمة

أخى الفاضل addora2006 وأخى المفضال أبو حنين جزاكما الله عنى خيرا وبارك الله لكما وجعل ما فعلتما فى موازين حسناتكم

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

الله يعينك يا أخى

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

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

السلام عليكم ورحمة الله وبركاته قام المبدع عماد الحسامى بعمل قوائم للإكسيل فى الموضوع http://www.officena.net/ib/index.php?showtopic=34289&st=40 ولقد حاولت كثيرا عمل تلك القوائم وتعديلها حسب المطلوب وربطها بصفحات الملف واستغرقت وقتا طويلا ولكن دون جدوى لقلة الخبرة بالفيجوال فهل من مساعد ليقوم بالشرح أو المساعدة فى عمل أربع عناوين رئيسية كالتالى حسابات عامة دليل الحسابات وربطه بالصفحة رقم 1 مئلا قيود اليومية وربطه بالصفحة رقم 2 مئلا حساب الإستاذ وربطه بالصفحة رقم 3 مئلا ميزان مراجعة ميزان رئيسى وربطه بالصفحة رقم 4 مئلا ميزان فرعى وربطه بالصفحة رقم 5 مئلا ميزان متحرك وربطه بالصفحة رقم 6 مئلا تحليل أرصدة وربطه بالصفحة رقم 7 مئلا مراكز تكلفة ملخص مركز وربطه بالصفحة رقم 8 مئلا تدفق التكاليف وربطه بالصفحة رقم 9 مئلا حركة الربحية وربطه بالصفحة رقم 10 مئلا قوائم ختامية قائمة الدخل وربطه بالصفحة رقم 11 مئلا المركز المالى وربطه بالصفحة رقم 12 مئلا قائمة التكاليف وربطه بالصفحة رقم 13 مئلا وحذف الاسم والفيس بوك من الشجرة الرئيسية ونظرا لأن كل محاولاتى بأت بالفشل أعدت رفع ملف الأخ عماد للتعديل علية وبارك الله فيكم قوائم جديد.rar

ممكن شرح للموضوع

والله يا أتاذ با قشير اللسان يعجز عن الشكر ولكن كما قال رسولنا الكريم ( ) إذا قلت لأخيك جزاك الله خيرا فقد بالغت في الثناء فجزاك الله خيرا ولنا سؤال أخر بخصوص عملى هذا ولكن بصيغة أخرى هل من الممكن القيام بنفس الفكرة ولكن بتصفية الصفحة الرئيسية على المراكز المختارة بارك الله قيك دون النسخ الى الصفحة الثانية

جزاك الله خيرا أخى عبد الله على المشاركة ولكن التعديل ليس المطلوب فأنا أعمل شهريا على 150 مركز أو أكثر وليس ثلاثة فقط وأقوم بمتابعة التنفيذ لكل مركز شهريا مقارنة بالعام كله ل استخرج فى نهاية العام نسب الإتمام لكل مركز شهريا وما تم وما لم يتم فمراقبة المراكز من شاشة الإجماليات - غير مدرجة بالمثال - أحدد المراكز التامة والمرحلة الكود المطلوب ليقوم بجلب كل تعاملات المراكز التى أحددها فى عمود واحد بدلا من الجلب اليدوى عن طريق التصفية المتقدمة لكل مركز على حده فالمشكلة ما زالت قائمة

السلام عليكم ورحمة الله قمت فى الموضوع التالى http://www.officena.net/ib/index.php?showtopic=43429 بطلب كود ولم أوضح المطلوب منه فقمت بإنشاء موضوع جديد بغية التوضيح التوضيح فى المرفق H.rar

الرجاء المساعدة قد قمت بإرفاق ملف يوضح المطلوب قدر الاستطاعة بوركتم H.rar

Sub SRCH() Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "ORDER"), CopyToRange:=Range("output"), Unique:=False End Sub المطلوب تعديل الكود ليقوم بتصفية متقدمة لنطاق الانبوت بالاعتماد على نطاق الاوردر باكثر من خلية ليخرج كل العناصر الموجودة فى الاوردر لتخرج فى الاوتبوت

السلام عليكم ورحمة الله طلب تعديل على الكود المرفق ليقوم بفلترة الخلايا اللى أكبر من الصفر الكود هو Sub filter2() Sheet5.Unprotect ("123") x = Range("u11").Value Range("u11:u76").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=x Range("e11").Select Sheet5.Protect Password:="123" End Sub المطلوب فلترة النطاق وتجاهل الخلايا التى تساوى صفر وجزاكم الله خيرا

يا إخوة الخير بالمنتدى الرجاء المساعدة أو الاستفسار للوصول للحل جزاكم الله خيرا

للرفع

للرفع

السلام عليكم ورحمة الله الشكر مقدم لجميع الأخوة المشاركين الاستاذ عبد الله المجرب و الاستاذ يحياوى و الاستاذ محمد صلاح والأستاذ alidroos المشاركة الأخير للاستاذ محمد صلاح فيها مشكلتين الاولى غن الكود يقوم بعمل حماية لجميع صفحات الملف فهل يمكن قصرها على شيت معين الثانى تظهر رسالة عند الحفظ بـ pdf تطلب رقم حماية الشيت فهل من الممكن تجاهل ذلك وعدم طلب الرقم أما الحفظ فى المجلد المحدد فهو يعمل بصيغة جيدة فهل من الممكن تعديل الكود الأول الذى أعده الأستاذ أبو عبد الله الذى أرفقته سابقا ليعمل على حفظ ملف pdf فى المجلد الذى يحوى ملف الأكسيل عن طريق إدراج ذلك فى الكود لان الملف بيحفظ فى الـ documentes شكرا لكم والسلام عليكم

للرفع