الصـقر

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

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

وعليكم السلام ورحمة الله استاذ / زيزو العجوز وفيك بارك استاذى الحبيب شاكر مرورك العطر تقبل تحياتى

وفيك بارك اخى عبدالواجد شاكر مرورك تقبل تحياتى

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

استاذى الحبيب / ابويوسف جزاكم الله خيرا ونفع بكم الى الامام دائما وننتظر ابداع جديد تقبل تحياتى

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

الاخ والاستاذى الحبيب / ياسر خليل جزاكم الله خير على كل ما تقدمه خدمه لاخوانك فى المنتدى موضوع رائع جدا ويستحق ان نشكرك عليه طبعا الكود كما قال الاخ والاستاذ الفاضل محمد ابوصهيب محتاج وقفه لفهمه والتمعن فىه بدقه ان شاء الله احاول ان اجد الوقت لفهمه بأذن الله وكان لى محاوله بسيطه من سنه تقريبا على الرابط التالى تشبه كثيرا فكرة الكود تقريبا ولكن انا وقتها خليته يغلق الملف وليس حذف الاكواد ويمكن الوصول الى المحرر لو كتبت فى الخليه A1 بشيت رقم 3 رقم 1 ستخدل محرر الاكواد بدون اغلاق الملف اشكرك كل شكر واسال الله تعالى ان يجعل كل ما تقدمه فى ميزان حسناتكم ملحوظه بخصوص تفعيل الماكرو فى كود يقوم بذالك وايضا لو تم تحويل الملف الى تنفيذى لا يحتاج الى تفعيل الماكرو وبكدا اعتقد انها حمايه الى حد ما ومقدرش اقول 100 لانى اجهل تمام امور الهكر تقبلوا تحياتى جميعا اخوكم حسام

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

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

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

الاستاذ عمر على حسب ما فهمت من طلبك فى شيت الاجمالى وفى الخلية C7 الصق المعادله التالية =SUMIFS(تسجيل!$D$3:$D$15;تسجيل!$C$3:$C$15;B7;تسجيل!$B$3:$B$15;">="&$C$2;تسجيل!$B$3:$B$15;"<="&$C$3) ثم اسحبها نزولا لاسفل تقبل تحياتى

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

الاخوه فى هذا الصرح العلمى الكبير اعتذر عن قلة تواجدى فى الاونه الاخيره ولكن يعلم الله انى مشغول جدا هذه الايام اسالكم الدعاء لى بالتوفيق والسداد اليوم بأقدم لكم شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination وهى تعنى هدف الوصول أو مكان الوصول أو المكان المقصود هنعرف 1 - أزاى نعمل ده بدون اكواد من خلال التعامل مع الشيت مباشرة 2- أزاى نعمل ده بالاكواد نبدأ بسم الله عايزك تفتح شيت اكسيل وتكتب فى الخليه A1 مثلا اى شئ مثلا اكتب " اوفيسنا " المطلوب بعد ما تكتب فى الخليه A1 نقوم بنسخها الى اى خليه اخرى طبعا زى ما حضراتكم عارفين بيكون من خلال تحديد الخليه المطلوب نسخها وهى A1 تم نعمل Ctrl+C ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها وليكن الخلية D1 ثم نعمل Ctrl+V وفى طريقه تانية وهى الوقوف على الخليه A1 وكليك يمين بالماوس واختيار نسخ ثم تحديد الخليه D1 وكليك يمين ونعمل لصق لكن اليوم هنعمل عملية النسخ بطريقه Destination طيب ازاى ؟؟؟ حدد الخليه A1 ثم حرك الماوس الى اى ضلع من اضلاع الخليه ستجد فى سهم مثل هذا السهم دا صوره مكبره منه عندما يظهر هذا السهم على ضلع من اضلاع الخلية اضغط من الكيبورد على زر Ctrl ومع الاستمرار بالضغط على الزر اضغط على زر الماوس الايسر واسحب الماوس الى الخليه D1 مكان اللصق اللى احنا عايزينه طيب ده بالنسبه لعملية النسخ طيب عملية القص ؟؟ الطريقه الاولى تحديد الخليه المطلوب قصها وهى A1 تم نعمل Ctrl + X ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها وليكن الخلية D1 ثم نعمل Ctrl+V الطريقه التانية وهى الوقوف على الخليه A1 وكليك يمين بالماوس واختيار قص ثم تحديد الخليه D1 وكليك يمين ونعمل لصق الطريقه الثالثه اللى هى اساس موضوعنا هنعمل عملية القص بطريقه Destination طيب ازاى ؟؟؟ حدد الخليه A1 ثم حرك الماوس الى اى ضلع من اضلاع الخليه ستجد فى سهم عند ظهوره يمكنك الضغط على زر الماوس الايسر والسحب الى المكان المراد اللصق فيه الخلاصه الطريقه عملية النسخ عملية القص 1- من خلال الكيبور اضغط Ctrl+C ثم انتقل الى الخلية اضغط Ctrl+X ثم انتقل الى الخلية المراد النسخ بها واعمل Ctrl+V المراد اللصق بها واعمل Ctrl+V --------------------------------------------------------------------------------------------------------------------------------------------- 2- من خلال الماوس قم بتحديد الخلية وكليك يمين بالماوس قم بتحديد الخلية وكليك يمين بالماوس واختار نسخ ثم انتقل الى الخليه المراد واختار قص ثم انتقل الى الخليه المراد اللصق بها واعمل كليك يمين بالماوس اللصق بها واعمل كليك يمين بالماوس واختار لصق واختار لصق --------------------------------------------------------------------------------------------------------------------------------------------- 3-Destination حدد الخلية المطلوب نسخها واتجه بالماوس حدد الخلية المطلوب نسخها واتجه بالماوس ( المكان المقصود) الى اى ضلع من اضلاع الخليه هيظهر سهم الى اى ضلع من اضلاع الخليه هيظهر سهم اضغط من الكيبورد على زر Ctrl ومع الاستمرار اسحب الماوس الى المكان المطلوب اللصق به بالضغط اسحب الماوس الى المكان المطلوب اللصق به ----------------------------------------------------------------------------------------------------------------------------------------------------- طيب ازاى نعمل الطريقه رقم 3 Destination ( المكان المقصود) بالاكواد Sub Alsaqer1() Range("A1").Copy Destination:=Range("d1") End Sub طبعا السطر الاول والثالث معروف وهو الاعلان عن بداية الكود ونهايته السطر اللى فى المنتصف بقى هو اللى هنوضحه كتبت اسم الخلية A1 المطلوب نسخها من خلال الخاصيه Range كالتالى ("Range("A1 وبعدين كتبت . اللى هى الضغط على حرف ز بالعربى من الكيبور ثم Copy وتعنى نسخ وبعدين مسافه وكتبة Destination متبوعه =: ثم الخلية المراد اللصق بها ("Range("D1 طيب الكود هيكون ازاى لو عايز اعمل قص وليس نسخ بسيطه جدا نفس الكود مع استبدال Copy Sub Alsaqer2() Range("A1").Cut Destination:=Range("d1") End Sub طيب الكلام كله عن نسخ او قص خليه واحده ماذا لو كان المطلوب نسخ نطاق من الخلايا مثلا من A1:C5 الى الخلايا H1:J5 اولا من خلال شيت الاكسل حدد الخلايا من A1:C5 وحرك الماوس الى اى ضلع من اضلاع التحديد سيظهر امامك السهم عند ظهوره اضغط على زر Ctrl ومع الاستمرار بالضغط حرك الماوس الى الى الخلية H1 ستجد تم نسخ الخلايا طيب ولو عملية القص هيكون نفس الخطوات ولكن بدون الضغط على زر Ctrl يعنى عند ظهور السهم اسحب الماوس الى الخليه H1 طيب ومن خلال الكود لو نسخ شاهد الكود Sub Alsaqer3() Range("A1:C5").Copy Destination:=Range("h1") End Sub نفس الاكواد السابقه الفرق فقط هو بدل ("Range("A1 جعلتها ("Range("A1:C5 ولو قص الخلايا يبقى الكود كالتالى استبدل Copy بــ Cut Sub Alsaqer4() Range("A1:C5").Cut Destination:=Range("h1") End Sub ماذا لو كان المطلوب نسخ الخلايا الى شيت اخر شاهد الكود نفس السابق ولاحظ انت الفرق Sub Alsaqer5() Range("A1:C5").Cut Destination:=Sheet2.Range("h1") End Sub استبدلت ("Range("h1 بــ ("Sheet2.Range("h1 لو احنا عايزين ننسخ عمود A كله مثلا الى العمود F طبعا من خلال الشيت يبقى تحدد العمود كله واذهب الى اى ضلع من العمود هيظهر السهم اضغط على زر Ctrl ومع استمرار الضغط اسحب الماوس الى العمود المطلوب وهو F ولو قص يبقى نفس الخطوات بدون الضغط على زر Ctrl ولو عايزين نعمله بالكود شاهد الكود Sub Alsaqer6() Columns("a:a").Copy Destination:=Columns("f:f") End Sub ------ ماذا لو كان عندى نطاق متغير مثلا من جدول من العمود A الى C ولكن عدد صفوف الادخال غير محدد فى زياده او نقصان فى الحاله دى هعمل سطر لتحديد اخر صف به بيانات فى العمود A شاهد الكود Sub Alsaqer7() lr = Cells(Rows.Count, "A").End(xlUp).Row Range("A1:C" & lr).Copy Destination:=Range("h1") End Sub واخيرا الفائده من هذه الطريقه هى افضل بالاكواد نظرا لسرعه تنفيذ الكود وبساطه كتابته وفهمه كدا انا خصلت كل الامثله باقى انك بس تجرب بنفسك اسال الله تعالى لى ولكم التوفيق والسداد تقبلوا تحياتى

تفضل استاذى الفاضل وائل استبدل الجزء الخاص بالخليه A4 بالتالى اذا كنت عايز تستخدم اسم الشيت يبقى لازم تكتب ("اسم الشيت") Sheets If x = Sheets("users").Range("a4") Then او السطر التالى بفرض ان الشيت المسمى Users هو شيت رقم 3 ( وعلشان تعرف رقمه ممكن من محرر الاكواد شوف الشيت users بجوارة رقم الشيت If x = Sheet3.Range("a4") Then كلا السطرين يؤدو نفس الغرض اعتذر للجميع لقلة تواجدى هذه الايام نظرا لانشغالى واسالكم الدعاء اعتذر ابوالبراء لم ارى مشاركتك الا بعد ما عملت حفظ لا يفتى ومالك بالمدينة تقبل تحياتى

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

اخى الكريم المرفق تم حذف الكود من حدث المصنف ThisWorkbook ووضع الكود فى حدث الشيت 1 بامكانك نسخه ووضع فى حدث اى شيت اخر تقبل تحياتى التكملة التلقائيه.zip

نفضل اخى الكريم شاهد المرفق هل هو ما تريد تقبل تحياتى التكملة التلقائيه.zip

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

بعد اذن استاذى ابوحنين استاذى الكريم عبدالرحمن بدوى فى هذا الكود Private Sub TextBox1_Change() With Me .Height = 125 .Move ActiveCell.Left + 16, ActiveCell.Top + .Height: End With If TextBox1 = "" Then UserForm1.Height = 25.5 With Sheets("ÈíÇäÇÊ") LR = .Cells(.Rows.Count, "A").End(xlUp).Row: ListBox1.Clear: For j = 2 To LR If .Cells(j, 2) Like TextBox1 & "*" Then UserForm1.Height = 125: ListBox1.AddItem .Cells(j, 2) End If: Next: End With If TextBox1 = "" Or ListBox1.ListCount = 0 Then Me.Height = 25.5 If TextBox1 <> "" And ListBox1.ListCount = 1 Then ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit Unload Me End If End Sub احذف الاربع اسطر التاليه If TextBox1 <> "" And ListBox1.ListCount = 1 Then ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit Unload Me End If تقبل تحياتى

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

استاذى الفاضل / عبدالله تفضل المرفق هل هو طلبك تقبل تحياتى example.zip

استاذى الحبيب / هانى بدر حضرتك عملت تعديل للمشاركه السابقه وطلبت وعمل سكرول بار ادخل حضرتك على الفورم فى مرحلة التصميم ومن خصائص الفريم رقم 2 فعل خاصية الاسكرول بار الى خليها رقم 2 رأسى تقبل تحياتى استاذى الفاضل / احمد الفلاحجى جزاكم الله خيرا لمروركم الكريم استاذى الفاضل هانى انت لك معزة خاصه بقلبى فأنا بأكن لك كل احترام وتقدير لشخصكم الكريم اسال الله ان يديم محبتنا فى الله جرب المرفق على الكود الاول تم تفعيل الاسكرول وتفعيل مؤشر الماوس تقبل تحياتى Rooms.zip

استاذى الحبيب / هانى بدر جرب المرفق التالى ان شاء الله هو طلبك تم العمل بكود اخر طبقا للملف المرفق فى المشاركة الاولى لحضرتك سوف يتم اظهار الفريمات طبقا لعدد الاسطر وسوف يتم التمييز باللون لكل ليبل حسب المحتوى كما طلبت وسوف يظهر عنوان عند وضع مؤشر الماوس على اى لليبل ويمكن حضرتك تعمل اى كود عند الضغط على اى ليبل فى حل اخر براسى ممكن اعمله ان شاء الله واذا توصلت لشئ سوف ارفق الملف لحضرتك تقبل تحياتى Rooms - 2.zip

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