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

تفضل أخي الحبيب الملف التالي وفيه شرح لكيفية خطوات العمل Search Within Validation List YK.rar

إضافة لما تقدم به الأخ الحبيب سليم إليك الحل التالي (آثرت إظهار النتائج بشكل عمودي وليس بشكل أفقي كما في المشاركة السابقة) ، ودمجت لك الطلبين معاً أرجو إن شاء الله أن يوفي المطلوب .. Extract Places & Dates.rar

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

المعادلة في المشاركة السابقة لم تروق لي في واقع الأمر ..إليك المعادلة التالية .. =SUM(SUMPRODUCT(($B$1:$B$9)*($C$1:$C$9={"طارق","ياسر","سليم","ناصر","ابراهيم"})))*15% أو المعادلة التالية =SUM(SUMIFS($B$1:$B$9,$C$1:$C$9,{"طارق","ياسر","سليم","ناصر","ابراهيم"}))*15%

جرب المعادلة التالية =SUM(SUMPRODUCT(($B$1:$B$9)*($C$1:$C$9="طارق")),SUMPRODUCT(($B$1:$B$9)*($C$1:$C$9="ياسر")),SUMPRODUCT(($B$1:$B$9)*($C$1:$C$9="سليم")),SUMPRODUCT(($B$1:$B$9)*($C$1:$C$9="ناصر")),SUMPRODUCT(($B$1:$B$9)*($C$1:$C$9="ابراهيم")))*15%

الأخ الحبيب علاء بارك الله فيك على التوضيح لطلبك بشكل جيد إليك الملف المرفق ..تم إضافة ورقة عمل جديدة باسم Analysis فيها المطلوب بإذن الله Get Dates Horizontally.rar

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

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

الأخ الفاضل يبدو أنه كان سؤال لعضو آخر ... صراحة لم أفهم هل تقصد مربع InputBox تكتب فيه المسار المطلوب ؟ أم ماذا تقصد بالمربع ؟؟ هل تقصد نافذة حوارية أم ماذا؟

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

ببساطة جدا شوف الرقم 18 في المعادلة وغيره لرقم الصف اللي انت عايزه بعد ما تعدل ..اضغط Ctrl + Shift + Enter لأن المعادلات معادلات صفيف بس خلاص انتهى

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

أخي الغالي الجموعي جرب الكود بهذا التعديل البسيط ..إذا كانت الخلية فارغة وحتى لو بها تعليق فلن يتم عمل مربع نص لها Private Sub UserForm_Activate() Dim Sh As Worksheet Dim txt As MSForms.Control Dim LastCol As Integer, I As Integer Dim Nam As String On Error GoTo kh_Exit Set Sh = ThisWorkbook.Sheets(1) LastCol = Sh.Cells(2, Sh.Columns.Count).End(xlToLeft).Column MyTop = 10 For I = 1 To LastCol If Not IsEmpty(Sh.Cells(2, I)) Then If Not Sh.Cells(2, I).Comment Is Nothing Then Set txt = Frame1.Controls.Add("Forms.Combobox.1", "MyTxt" & I) Nam = Trim(Sh.Cells(2, I).Comment.Text) If Not IsError(Evaluate(Nam)) Then txt.RowSource = Nam Else Set txt = Frame1.Controls.Add("Forms.TextBox.1", "MyTxt" & I) End If With txt .Move 20, MyTop, 114, 24 .Text = Sh.Cells(2, I) .TextAlign = 2 End With MyTop = MyTop + 30 End If Next Me.Frame1.ScrollHeight = MyTop kh_Exit: End Sub

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

ما هي الشروط التي تريد زيادتها ..وضح الطلوب كي نساعدك إن شاء الله

الأخ الحبيب رامي أقدم لك ملف غير ملفك عله يفيدك وتستطيع التعديل على ملفك بما يناسبه الفكرة في الملف المرفق أفضل من ناحية أنك تستطيع إدراج كل الصفوف في ورقة واحدة وفي أعمدة واحدة وليس كما أرفقت تستطيع أن تحصل على قوائم بالذكور وقوائم بالإناث طبقا للصف الذي تختار رقمه في ورقة العمل الثانية أرجو أن يفيدك واعذرني لأن الوقت قد تأخر ... حاول في الملف المرفق وإن شاء الله تجد من يقدم لك يد العون في حالة الفشل Extract Student Lists.rar

جرب هذا الكود Sub CreateNewWB() Dim NewBook As Workbook Set NewBook = Workbooks.Add On Error Resume Next Application.DisplayAlerts = False NewBook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Sheet1").Range("A1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True End Sub

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

الأخ الحبيب الحاوي (ياما في الجراب يا حاوي) على رأي المثل والحاجة كما قال أخي محمد صالح : الحاجة أم الاختراع ، والحاجة دي ملهاش علاقة بالحاجة أم محمد بتاعة الفطير في حلقات افتح الباب ، دي حاجة ودي حاجة وبلاش معجب عشان مراتي مراقبة المنتدى ، وخايف لتعملي حظر تصفح !! الأخ الغالي ياسر بوركت وجزيت خيرا على مرورك العطر تقبلوا تحياتي

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

تفضل أخي الحبيب الشهابي Sub CreateNewWB() ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub

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

بالمثال يتضح المقال ارفق ملف بالكود الذي تقصده

الأخ الشهابي يمكن استخدام Value بدلاً من Text أيضاً Sub openfile() Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & Range("a1").Value & ".xlsm" End Sub

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