ياسر خليل أبو البراء

السلام عليكم إخواني الأحباب في الصرح العملاق أقدم لكم اليوم موضوع في غاية الأهمية بالنسبة للكثيرين وهو التعامل مع القائمة المنسدلة بخاصية التحقق من الصحة. سبق وأن شرحنا في دروس سابقة كيفية عمل قائمة منسدلة باستخدام خاصية Data Validation أو التحقق من الصحة .. عيوب القائمة المنسدلة أنه لا يمكنك تغيير حجم الخط لهذه القائمة .. عدد الصفوف الظاهرة بها 8 فقط ، ولا يوجد بها خاصية الإكمال التلقائي .. يعني من الآخر قائمة عقيمة في التعامل معها مع الملف المرفق شرح وافي لكيفية التغلب على هذه العيوب بالتفصيل في ورقة العمل Help أترككم مع الملف عله ينال إعجابكم والسلام عليكم Auto Completer Data Validation.rar

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

الأخ الكريم أحمد نبيل جرب المرفق التالي دفتر الايصالات.rar

طالما نجحت .. لماذا تبحث عن طريقة أخرى .. جرب تغير الأرقام 2 و 9 اللي في الكود لو الأبعاد مش مريحاك

الأخ الفاضل حسام أنا بقول مندخلش ع الأكواد تقوم تحاول تعدل عليها والله إنت قلبك جامد الأخ محمد .. لا أدري لماذا أنا منصب 2013 عندي في البيت وشغال 100% ممكن إعدادات الماكرو محتاجة للتدقيق .. علم علامة صح على Trust access VBA

تفضل أخي الحبيب جرب الكود التالي .. سيقوم الكود بإخفاء الأعمدة التي نواتجها صفر ثم إظهارها بعد الطباعة Sub PrintSelection() Dim LR As Long, I As Integer LR = Columns("B").Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row For I = 2 To 14 If Cells(LR, I) = 0 Then Cells(LR, I).EntireColumn.Hidden = True Next I Range("B6:N" & LR).Select Selection.PrintOut Copies:=1, Collate:=True Cells.EntireColumn.Hidden = False End Sub

الأخ الغالي المصري السعودي .. جزيت خيرا على مرورك العطر .. وإن شاء الله انتظر المزيد

تسلم أستاذ محمود وأشكرك على تشجيعك المستمر لي ولغيري

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

ارفق مثالك أخي الفاضل عصام ووضح هل الخلايا التي بها أصفار تقع في آخر جدول أم انها في نطاق ؟ بملف مرفق يتضح الطلب أكثر

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

الأخ أبو بهاء المصري الأخ أبو فارس بارك الله فيكما على مروركما الكريم وجزاكما الله خيرا

الأخ الفاضل مختار بارك الله فيك إضافة صغيرة للأخ الكريم مختار يمكن إضافة السطر Application.CutCopyMode = False يقوم بإلغاء عمليه النسخ .. معلومة ع الطاااااير

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

نعم أخي قم بالضغط على CTRL + ALT + F9 أو F9 للتحديث حيث أنني قمت باستخدام دوال معرفة لاختصار المعادلة لأن الموضوع متشابك وإن كنت أرى أنه يمكنك عمل عمودين لكل عمود بمعنى أن يكون عمود للأردب وعمود للكيلو حيث أن ذلك يسهل عليك التعامل مع الملف أكثر عموما الحمد لله أن تم الحل كان فيه موضوع مشابه للموضوع ده .. هل إنت كنت صاحب الموضوع نفسه؟

السلام عليكم إخواني الكرام ومع ثاني حلقة من سلسلة (من روائع الأعمال ) للأخ المغربي الغائب عنا جعفر طرباق أقدم لكم اليوم ملف يحوي على كود العدسة المكبرة .. أترككم مع الملف عله ينال إعجابكم .. لاغلاق العدسة كليك يمين عليها Close Me بس نصيحة بلاش حد يبص ع الأكواد عشان ميتعقدش !!! Magnifier.rar

مشكور أخي حسام على مرورك العطر الأخ mhmn11 لسه فاكر ترد الموضوع انا نسيته ، عموما الحمد لله أن تم بخير

تمام يعني يا أخ حمادة ضبطت معاك الحمد لله ...!! تقبل تحياتي وتقديري

هل راجعت النتائج جيدا أخي الفاضل أنا قعدت على ملفك دا أكتر من ساعة تقريبا في الصف الأول 900.120 400.120 300.90 لما نحسبها يدوي .. عندك 900+400+300 = 1600 وكام كيلو 120+120+90 = 330 يعني 2 أردب و30 كيلو والنتيجة اللي في الملف صحيحة 100% 1602.30

أخي الحبيب ناصر يمكنك من خلال خيارات الإكسيل التبويب Advanced .. الجزء الخاص بـ Display ابحث عن الـ Comments ستجد ثلاثة اختيارات اختار أول خيار No Comments or Indicators أو يمكنك أن تستغني عن التعليقات بشكل نهائي وتستخدم الـ Data Validation يوجد بها ما يسمى Input Box أي صندوق الإدخال ، ويظهر لك التعليق عندما تقوم بعمل كليك على الخلية

أخي الفاضل جرب Sub PrintSelection() Dim LR As Long LR = Columns("A").Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row Range("A2:J" & LR).Select Selection.PrintOut Copies:=1, Collate:=True End Sub

أخي الفاضل حماده في المثال المرفق فيه 3 أعمدة بكل عمود بيان هل هذا ضمن النطاق أم أنها بيانات زائدة (K L M( ثانيا في المشاركة رقم 3 قلت أن (الكود يعمل علي جميع الخلايا التى بها بينات في الشيت والخلايا التى بها معادلات وفارغة) وهناك معادلات في العمود A حتى الصف 69 وفي المرفق كتبت أن المطلوب من A2:J11 أعتقد أن هذا تناقض حيث أنني لم أفهم ديناميكة تحديد النطاق .. هل تريد العمل على كل الخلايا التي بها معادلات أم أنك تستند إلى العمود J للحصول على آخر خليه بها بيانات ؟؟؟

جرب الكود التالي Private Sub UserForm_Activate() With Me .ScrollBars = fmScrollBarsBoth .ScrollHeight = .InsideHeight * 2 .ScrollWidth = .InsideWidth * 4 End With End Sub

ارفق مثال عملي غير مثالك الأول حتى نفهم المطلوب بشكل جيد .. لأنك لم توضح مثل تلك النقطة في بداية الأمر

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