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

أخي الكريم زهير هل هناك مشكلة إذا قمت بضغط ملفك وإرفاقه في مشاركة؟

أخي الكريم زهير الأفضل إرفاق ملف .. احتمال يكون هناك أكثر من ورقة عمل محددة .. ويمكنك تجربة كلمة Activate بدلاً من كلمة Select

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

أخي الكريم وائل لما لم ترفق ملف ؟ لما لم تضع الكود بين أقواس الكود؟! ما هو الخطأ الذي يظهر معك عند النقر على كلمة Debug؟ هل الاسم users الاسم البرمجي لورقة العمل المراد ربط الباسورد بها؟ هل جربت استخدام كلمة Sheets يليها قوس مفتوح ) ثم أقواس تنصيص " ثم اسم ورقة العمل users ثم إغلاق أقواس التنصيص " ثم إغلاق القوس ( ...؟ تقبل تحياتي

فك الملف المصغوط وانقر عليه دبل كليك ووافق ثم أوك وبس خلاص

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

عوداً حميداً أخي الحبيب أحمد غانم فينك يا حاج بقالك فترة مختفي عن المنتدى؟ لعل غيابك خير إن شاء الله

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

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

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then Call kh_Show_UFormChang1 End If '********************************************************** If Target.Column = 5 Then Target.Value = Date Selection.NumberFormat = "yyyy/mm/dd" Target.Offset(0, 1).Select End If If Target.Column = 6 Or Target.Column = 8 Then Target.Value = Target.Offset(-1, 0) Target.Offset(0, 1).Select End If ThisRow = Target.Row If Target.Column = 7 And Range("f" & ThisRow) = "قيد يومية" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("f4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("f4").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "استلام شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g1").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g1").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "قبض نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g2").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g2").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g3").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g3").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g4").Value Target.Offset(0, 1).Select End Select End If End Sub وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون ..

فاتنني هذه أبانا الغالي ابو يوسف جزيت خيراً على التذكرة .. اللي جه في بالي عبد الواحد ..

جزيت خيراً أخي على دعائك الطيب المبارك ، ولك بمثل إن شاء الله تقبل تحياتي

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

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

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

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

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

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

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

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

أخي الغالي وحبيبي في الله أبو القبطان .. الملف سيء !! أيوا سيء !! أيوا زي ما بقولك كدا سيء@@ زعلت ؟؟! حقك عليا ! الملف جيد أيوا جيد .. بقولك جيد واحد هيقول العضو دا شكله مجنون أو عبيط .. هرد أقوله أشكرك ... بس كل واحد له طريقة تفكيره وكل شيخ وله طريقة بالأمس لم أطلع على الملف الجيد بشكل جيد .. لكن أتيحت لي الفرصة أن أطلع عليه فوجدت الأكواد جميلة ولكنها تحتاج لترتيب .. نريد أن نتعود عند إرفاق ملفات بالمنتدى أن تكون الأمور مرتبة ومنطقية .. ويتم إزالة الشوائب منها أولاً بالنسبة للكود في حدث المصنف وجدت أنه نفس الكود في موديول رقم 1 ..فلما التكرار الغير مرغوب فيه؟! يمكن الإبقاء على الكود في الموديول رقم 1 والإشارة إلي اسم الإجراء الفرعي في حدث فتح المصنف باستخدام كلمة Call يليها اسم الإجراء الفرعي ثانياً وجدت كود يخص الفورم في الموديول العادي !! ليس مكانه ثالثاً الكود في الموديول الثاني أعتقد أنه ماكرو مسجل ، وكم أكره شكل أسطر الكود الناتجة عن تسجيل الماكرو .. فهناك شوائب كثيرة فيها غير أن الكود ليس له علاقة بالموضوع ومن ثم يجب إزالة جميع الأكواد من المصنف الخاص بك وإعادة ترتيبها بهذا الشكل (لاحظ أيضاً شكل أسطر الكود وكيف تم تنسيقها ليسهل الإطلاع عليها) ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Call Picture1_Click End Sub والكود التالي يوضع في الموديول رقم 1 Sub Picture1_Click() Dim I As Long, lastRow As Long Dim Name1 As String lastRow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row For I = 2 To lastRow Cells(I, 4).Interior.ColorIndex = xlNone Cells(I, 4).Font.ColorIndex = xlAutomatic Cells(I, 4).Font.Bold = False If Cells(I, 4) = Date Then With UserForm1.ListBox1 .AddItem .List(.ListCount - 1, 0) = Sheet1.Cells(I, 1).Text .List(.ListCount - 1, 1) = Sheet1.Cells(I, 2).Text .List(.ListCount - 1, 2) = Sheet1.Cells(I, 3).Text .List(.ListCount - 1, 3) = Sheet1.Cells(I, 4).Text .List(.ListCount - 1, 4) = Sheet1.Cells(I, 5).Text .List(.ListCount - 1, 5) = Sheet1.Cells(I, 6).Text .List(.ListCount - 1, 6) = Sheet1.Cells(I, 7).Text .List(.ListCount - 1, 7) = Sheet1.Cells(I, 8).Text End With Cells(I, 4).Interior.ColorIndex = 3 Cells(I, 4).Font.ColorIndex = 2 Cells(I, 4).Font.Bold = True End If Next I UserForm1.Show End Sub والكود التالي يوضع في حدث الفورم Private Sub CommandButton1_Click() End End Sub Private Sub Image1_Click() UserForm1.PrintForm End Sub Private Sub Image2_Click() UserForm1.PrintPreviewForm End Sub Private Sub UserForm_Activate() lblDate.Caption = Date End Sub أرجو ألا أكون قد أزعجتك .. ولكني أحب أن أرى الأشياء في أجمل صورة لها ، وحتى يستفيد منها من أرد الاستفادة لا أن تكون مجرد ملف مرفق يلقى به في مكانٍ ما ويطويه النسيان أردت الاستفادة للجميع من الملف الرائع ولكن بصورة أفضل تقبل تحياتي

أخي الحبيب سعيد الفكرة والله دائماً في وضوح الطلب .. شفت لما الطلب أصبح واضح كما في المشاركة الأخيرة .اتحلت بتكة أبسط مما تتخيل .. بالنسبة لطلبك الثاني السيريال نمبر هسيبك مرة تانية توضح بالتفصيل عشان تكون الأمور واضحة وغداً إن شاء الله سأطلع على الموضوع مرة أخرى فقد حان وقت النوم تصبح على السرير وعلى خير إن شاء الله تقبل تحياتي جرب تضع هذا السطر في نهاية الكود في آخر سطر قبل End Sub Range("C2").Value = Range("C2").Value + 1 أرجو أن يكون المطلوب إن شاء الله

أخي الحبيب سعيد بيرم شايف الرقم 2 في السطر التالي Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = "" غيره خليه 4 وجرب وشوف

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

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