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

طيب يا فلاحجي .. متنساش تبقا تقسم بالنص : النص ليك والنص التاني لأعضاء المنتدى

أخي الفاضل هل قمت بتجربة الملف المرفق وأدى الغرض ؟ أرجو أن تكون قد استفدت من الموضوع الخاص بالبدايات ..

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

أخي الحبيب الجموعي أخيراً شاركت معنا في موضوع البحث .. والحل المقدم جميل جداً ورائع تقبل وافر تقديري واحترامي

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

الأروع هو مرورك العطر أخي الكريم ..

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

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

مشكور على مرورك العطر أخي الفاضل أشرف .. ولا تنسى تغيير اسم الظهور باللغة العربية ليعبر عن شخصكم الكريم

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

أخي الكريم أشرف رجعتنا بالذكريات لـ 2010 ..مشكور على مرورك العطر بالموضوع بارك الله فيك وجزاك الله خيراً تقبل تحياتي

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

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

القديم عفا عليه الزمن وإن لم نواكب الجديد الآن فمتى نواكبه ؟! هذا مجرد رأي وننتظر بقية الآراء من إخواننا الكرام

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

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

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

أخي العزيز أبو مهند جرب الكود على هذا الرابط

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

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

أخي الكريم أبو قاسم قم بتعديل مسميات التكس بوكس لأن فيه تكست بوكس مفقود .. التكست بوكس رقم 6 لديك غيره ليكون رقم 5 (حيث الرقم 5 مفقود) والتكست بوكس رقم 7 خليه 6 وجرب الكود التالي عله يكون المطلوب Private Sub CommandButton1_Click() Dim cMis As New Collection, D1 As Date, D2 As Date, N&, R&, V, VD, VN If Not IsDate(TextBox1) Then MsgBox "Enter Start Date": TextBox1.SetFocus: Exit Sub If Not IsDate(TextBox2) Then MsgBox "Enter End Date": TextBox2.SetFocus: Exit Sub UserForm2.ListBox1.Clear For N = 3 To 6: Me.Controls("TextBox" & N).Value = "": Next D1 = CDate(TextBox1) D2 = CDate(TextBox2) With Sheet1.Cells(1).CurrentRegion.Columns VN = .Item(1).Value VD = .Item(6).Value End With On Error Resume Next For R = 1 To UBound(VN) If VarType(VD(R, 1)) = vbDate Then If VD(R, 1) >= D1 And VD(R, 1) <= D2 Then Err.Clear cMis.Add Array(VN(R, 1), 1), VN(R, 1) If Err.Number = 457 Then V = cMis(VN(R, 1)) V(1) = V(1) + 1 cMis.Remove V(0) For N = 1 To cMis.Count If V(1) > cMis(N)(1) Then cMis.Add V, V(0), N: Exit For Next N If N > cMis.Count Then cMis.Add V, V(0) End If End If End If Next R On Error GoTo 0 If cMis.Count Then N = 0 For Each V In cMis UserForm2.ListBox1.AddItem V(0) & " : عدد المهمات ( " & V(1) & " )" N = N + 1 Select Case N Case 1: TextBox3.Value = V(0): TextBox5.Value = V(1) Case cMis.Count: If N > 1 Then TextBox4.Value = V(0): TextBox6.Value = V(1) End Select Next V Set cMis = New Collection Else MsgBox "No match !" End If Set cMis = Nothing End Sub Private Sub CommandButton2_Click() Me.TextBox1.Value = Format(Range("F2"), "dd/mm/yyyy") Me.TextBox2.Value = Format(Range("F25"), "dd/mm/yyyy") End Sub تقبل تحياتي

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

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

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

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