إبراهيم محمد

بارك الله فيك اخي العزيز فهذا فعلا ما كنت ابحث عنه الف الف شكر

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

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

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

و الله يا جماعه هذا الموضوع مهم وانا ابحث عنه منذ فترة ولا اجد له حلا فارجو من استاذة وعباقرة الاكسيل فى هذا المنتدى الكريم ان يهتموا بالموضوع وانا كلي ثقه فى قدرتهم على ذلك باذن الله تعالى

بارك الله فيك الاستاذ الفاضل عبد الله المجرب على سرعه الرد والاهتمام وبالفعل ما هو فى الرابط هو بالضبط ما ابحث عنه واكرر شكرى وتقديرى لكم ودائما موقع اوفسينا غنى بالعلم والمعرفه لانه غنى بعلمائه الكرام والسلام عليكم ورحمه الله وبركاته

السلام عليكم ورحمه الله وبركاته اساتذة المنتدى المحترمين فى الحقيقه ان منتداكم الكريم هو ملاذ كل طالب علم لانه وفى الحقيقه غنى باستاتذته الافاضل والذين لا بخلون بعلمهم عن من يحتاجه اللهم اجعله فى ميزان حسناتهم يوم القيامه واجزهم عنا خير الجزاء فى الحقيقه اننى عملت ملف اكسيل وجعلته يفتح ملىء الشاشه ولكن عند الضغط على مفتاح ESC او زر تصغير او تكبير الشاشه فانه يقوم باظهار اشرطه الادوات مرة اخرى مع العمل باننى اعمل على اصدار 2007 او 2010 وارجو ايضا كود تعطيل ازار التكبير والتصغير مع ملاحظه انه عند الفتح تكون الشاشه بكامل الملف لانه عند تعطيل زر التكبير يكون حجم الصفحه تتوسط الملف ولا تكون بكامل الشاشه فى الاكسيل هذا ولكم جزيل الشكر والتقدير والاحترام والسلام عليكم ورجمه الله وبركاته

كود رائع للاستاذ عبد الله المجرب وفقك الله ودائما المزيد من العلم والعطاء باذن الله

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

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

Sub ALIDROOS_JC_T() Application.ScreenUpdating = False Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For R = 2 To 31 If sh.Name = "ÇáßÔÝ ÇáÑÆíÓí" Then GoTo 2 If Cells(R, 4).Value <> Empty Then If Cells(R, 4).Value = sh.Name Then Range(Cells(R, 1), Cells(R, 11)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("A" & QQ).PasteSpecial xlPasteValues End If End If Next 2 Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub[/left] [left] السلام عليكم ورحمه الله وبركاته لقد قراءت هذا الكود فى منتداكم الكريم وهو يختص بعمليه ترحيل البيانات من ملف رئيسى الى صفحات مختلفه حسب الجنسيه ولكنى ارجو شرح هذا الكود حيث انه مفيد جدا لي فى عملي ولكن يلزمه بعض التعديل ولذلك ارجو شرحه حتى يتسنى الاستفادة منه وجزاكم الله خيرا وبارك الله فيكم

<p style="text-align: left;"><span class="typ">Private</span><span class="pln"> </span><span class="typ">Sub</span><span class="pln"> </span><span class="typ">CommandButton1_Click</span><span class="pun">()</span><br /> <span class="typ">Dim</span><span class="pln"> sh </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Worksheet</span><br /> <span class="typ">Dim</span><span class="pln"> R </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Integer</span><span class="pun">,</span><span class="pln"> N </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Integer</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Endrow</span><span class="pln"> </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Integer</span><span class="pun">,</span><span class="pln"> ALI </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Long</span><br /> <span class="typ">Set</span><span class="pln"> sh </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Sheets</span><span class="pun">(</span><span class="typ">TextBox4</span><span class="pun">.</span><span class="typ">Value</span><span class="pun">)</span><br /> <span class="pln">ALI </span><span class="pun">=</span><span class="pln"> sh</span><span class="pun">.</span><span class="typ">Cells</span><span class="pun">(</span><span class="typ">Rows</span><span class="pun">.</span><span class="typ">Count</span><span class="pun">,</span><span class="pln"> </span><span class="lit">1</span><span class="pun">).</span><span class="typ">End</span><span class="pun">(</span><span class="pln">xlUp</span><span class="pun">).</span><span class="typ">Row</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><br /> <span class="typ">For</span><span class="pln"> R </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="typ">To</span><span class="pln"> </span><span class="lit">10</span><br /> <span class="typ">If</span><span class="pln"> </span><span class="typ">Me</span><span class="pun">.</span><span class="typ">Controls</span><span class="pun">(</span><span class="pln">myCon</span><span class="pun">(</span><span class="pln">R</span><span class="pun">)).</span><span class="typ">Text</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="str">&quot;&quot;</span><span class="pln"> </span><span class="typ">Then</span><span class="pln"> N </span><span class="pun">=</span><span class="pln"> N </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><br /> <span class="typ">Next</span><br /> <span class="typ">If</span><span class="pln"> N </span><span class="pun"><></span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="typ">Then</span><span class="pln"> </span><span class="typ">MsgBox</span><span class="pln"> </span><span class="str">&quot;ملف فارغ لا يمكن الأضافة&quot;</span><span class="pun">:</span><span class="pln"> </span><span class="typ">GoTo</span><span class="pln"> </span><span class="lit">1</span><br /> <span class="typ">Me</span><span class="pun">.</span><span class="typ">MousePointer</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">11</span><br /> <span class="typ">With</span><span class="pln"> </span><span class="typ">Sheets</span><span class="pun">(</span><span class="str">&quot;الكشف الرئيسي&quot;</span><span class="pun">)</span><br /> <span class="typ">Endrow</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="pun">.</span><span class="typ">Range</span><span class="pun">(</span><span class="str">&quot;A&quot;</span><span class="pln"> </span><span class="pun">&amp;</span><span class="pln"> </span><span class="pun">.</span><span class="typ">Rows</span><span class="pun">.</span><span class="typ">Count</span><span class="pun">).</span><span class="typ">End</span><span class="pun">(</span><span class="pln">xlUp</span><span class="pun">).</span><span class="typ">Row</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><br /> <span class="typ">For</span><span class="pln"> R </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="typ">To</span><span class="pln"> </span><span class="lit">10</span><br /> <span class="pun">.</span><span class="typ">Cells</span><span class="pun">(</span><span class="typ">Endrow</span><span class="pun">,</span><span class="pln"> R </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pun">).</span><span class="typ">Value</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Me</span><span class="pun">.</span><span class="typ">Controls</span><span class="pun">(</span><span class="pln">myCon</span><span class="pun">(</span><span class="pln">R</span><span class="pun">)).</span><span class="typ">Value</span><br /> <span class="typ">If</span><span class="pln"> </span><span class="typ">TextBox4</span><span class="pun">.</span><span class="typ">Value</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> sh</span><span class="pun">.</span><span class="typ">Name</span><span class="pln"> </span><span class="typ">Then</span><br /> <span class="pln">sh</span><span class="pun">.</span><span class="typ">Cells</span><span class="pun">(</span><span class="pln">ALI</span><span class="pun">,</span><span class="pln"> R </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pun">).</span><span class="typ">Value</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Me</span><span class="pun">.</span><span class="typ">Controls</span><span class="pun">(</span><span class="pln">myCon</span><span class="pun">(</span><span class="pln">R</span><span class="pun">)).</span><span class="typ">Value</span><br /> <span class="typ">End</span><span class="pln"> </span><span class="typ">If</span><br /> <span class="typ">Next</span><span class="pln"> R</span><br /> <span class="typ">End</span><span class="pln"> </span><span class="typ">With</span><br /> <span class="pln">KH_A</span><br /> <span class="typ">ActiveWorkbook</span><span class="pun">.</span><span class="typ">Save</span><br /> <span class="typ">Me</span><span class="pun">.</span><span class="typ">MousePointer</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><br /> <span class="typ">MsgBox</span><span class="pln"> </span><span class="str">&quot;تمت الأضافة بنجاح&quot;</span><br /> <span class="lit">1</span></p> <p style="text-align: left;"> </p> <p style="text-align: left;"><span class="typ">End</span><span class="pln"> </span><span class="typ">Sub</span></p> <p style="text-align: left;"> </p> <p style="text-align: left;"> </p> <p style="text-align: left;"> </p> <p style="text-align: left;"><span class="typ">السلام عليكم روحمه الله وبركاته </span></p> <p style="text-align: left;"><span class="typ">فى الحقييقه المنتدي غنى بالمعرفه والجديد وارجو من الاستاذ محرر هذا الكود ان يقوم بشرح مبسط له لان هذا الكود مفيد جدا لى فى عملي ولكنى احتاج لفهمه حتى استطيع تطبيقه </span></p> <p style="text-align: left;"><span class="typ">وارجوا ان لا يكون فى ذلك اثقال عليكم </span></p> <p style="text-align: left;"><span class="typ">وجزاكم الله خيرا </span></p>

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

فيدوهات رائعه ومفيدة جدا مع خالص الشكر والتقدير للاخ ابو احمد وهذا ما نتوقعه منكم وفى الحقيقه شرح جميل ومفصل لعمل الفلترة المتقدمه واكرر شكري وتقديرى مرة اخرى

برجاء الاهتمام بالموضع

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

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

السلام عليكم ورحمه الله وبركاته الاستاذة الافاضل / مشرفى المنتدى الكريم لقد قمت بتحميل بعض دوال التفقيط من منتداكم الكريم والغنى بالمواد العلميه المفيدة وهى تعمل بصورة ممتازة مع اكسيل 2003 ولكن عندما قمت بتحميل اوفيس 2007 فوجدت ان كافه الاكواد البرمجيه لا تعمل فبرجاء المساعدة ولكم جزيل الشكر مرفق ملف الاكسيل الذى قمت بتحميله سابقا من المنتدي وفيه نفس الداله التى قمت باستخدامها وهى الان لا تعمل مع اكسيل 2007 tafkeet.rar

برجاء الاهتمام بالموضوع والافادة من فضلكم ؟؟؟؟؟؟؟؟؟؟

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

بسم الله الرحمن الرحيم فى الحقيقه منتداكم الكريم هو ملاذ اى عربي يريد ان يتعلم ويجد من يساعدة فى حل المشاكل التى توتجهه فخيركم من تعلم العلم وعلمه فى الحقيقه اود عمل ارتباط تشعبي hyper link بين صفحتى اكسيل بينهما لصق ارتباط بحيث عندما اضغط على الاسم فى الصفحه الاولى يتم نقلى مباشرة الى نظيرة فى الصفحه الثانيه ، وقد ارفقت مثال لتوضيح الفكرة فارجو المساعدة ولكم جزيل الشكر والتقدير example.rar

الاخوة الافاضل لقد قمت بعمل list box تعمل على فلترة البيانات بحيث ان السجل الذى نختارة تظهر بياناته فى باقى النموذج ولكن واجهتنى مشكله وهى عندما يتكرر البيان فانها تقف عند اول سجل فقط و تتحرك الى السجل الثانى مع العلم بان باقى البيانات مختلفه ولكى اوضح كلامى مثلا العميل يشترى عدة سلع فان كود العميل يتكرر مع انواع السلع المختلفه ، وبالتاالى يظهر كود العميل فى list box اكثر من مرة ، ولكن عند الضغط على كود العميل فى القائمه فانه تظهر بيانات اول سجل فقط ولا يظهر الباقى فهل من حل لهذة المشكله يا عباقرة المنتدى الكرام جعلكم الله عونا لكل مسلم ان شاء الله وشكرا

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

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

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