أبوبسمله قام بنشر مارس 22, 2016 قام بنشر مارس 22, 2016 الان, عاطف عبد العليم محمد said: السلام عليكم ورحمة الله وبركاته يا أبا البراء فكرة جميلة نفذتها ولكن الوضع كما هو ــ جزاك الله خيرا واخي احمد يكفيني ماوصلنا اليه وفق الله الجميع لما يحب ويرضى جزاك الله كل خيرا ابوالبراء واخى عاطف نحن نحاول مساعدتك لتصل الى نتيجة مرضيه بحل يليق باسم المنتدى العريق وانت صاحب السؤال لك حرية ما تريد من الاكتفاء او التكمله بارك الله فيك تقبل تحياتى ومرورى
ياسر خليل أبو البراء قام بنشر مارس 22, 2016 قام بنشر مارس 22, 2016 أخي الكريم عاطف أحب أن أوجه إليك نصيحة .. نحن هنا : كما قالها عمر المختار .. نحن لا نستسلم ، ننتصر أو نموت وهكذا نحن في طلب العلم ننتصر أو نموت ! وهذا هو شعارنا أخبرتنا أن الوضع كما هو ولم تذكر المشكلة .. ماذا يظهر لديك من رسائل خطأ ؟ التجربة الأخيرة تعمل عندي ومتأكد من عملها بشكل جيد جداً بل بشكل ممتاز ، فكونها لا تعمل عندك فلابد إن شاء الله من معرفة السبب .. ارفق ملفك الذي جربت عليه وارفق التعديل للإطلاع عليه وموافاتك بسبب كون الوضع لم يتغير تقبل تحياتي 1
عاطف عبد العليم محمد قام بنشر مارس 23, 2016 الكاتب قام بنشر مارس 23, 2016 (معدل) يا أبا البراء السلام عليكم ورحمة الله وبركاته هاهو الملف أرفقته هيا انتصر للمشكلة وارجو ان تنتصر لكل الطلبات وهي بسيطة ان شاء الله ولا توجهنا لفتح موضوع جديد طبعا المشكلة الرئيسية هي عدم عمل نموذج البحث عند الضغط مرتين على عمود3 وفقك الله وجزاك الله خيرا على هذه الروح المقاتلة للتعلم ومساعدة الناس طبعا المطلوب حل المشكلة من اي من الافاضل لمن يتيسر له الوقت وفق الله الجميع نموذج ادخال معصلج.rar تم تعديل مارس 23, 2016 بواسطه عاطف عبد العليم محمد
ياسر خليل أبو البراء قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة 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 وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون .. 3
أبوبسمله قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 2 ساعات مضت, ياسر خليل أبو البراء said: جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون .. نعم الاخ والصديق والمعلم والناصح النصوح تقبل تحياتى ياغالى ننتظر تجربة عم عاطف
عاطف عبد العليم محمد قام بنشر مارس 23, 2016 الكاتب قام بنشر مارس 23, 2016 4 ساعات مضت, ياسر خليل أبو البراء said: جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون .. سعادة المراقب العام ابو البراء يافندم للأسف لم يعمل الكود ولا يوجد سطر أصفر النموذج يظهر ولكن غير فعال وبعدين يافندم الواحد ما بيصدق حد يرد عليه في موضوعه ويستوعب طلبه لان احيانا مافي احد بيرد ( وطبعا ما على المحسنين من سبيل ) بس عشان كده بنتمنى اللي بدأوا يردوا ياخدوا الشيلة للآخر وبرضه احنا فاهمين ( ما على المحسنين من سبيل ) وبما ان حضرتك مراقب عام فانت تنظر للمصلحة بصفة عامة وتوجيهات سعادتك اوامر ومافيش مضايقة ولا حاجة بس حل المشكلة يافندم وتذكر نصيحتك 19 ساعات مضت, ياسر خليل أبو البراء said: أحب أن أوجه إليك نصيحة .. نحن هنا : كما قالها عمر المختار .. نحن لا نستسلم ، ننتصر أو نموت وهكذا نحن في طلب العلم ننتصر أو نموت ! وهذا هو شعارنا وللأخ / احمد عن الأخ ابو البراء نعم الاخ والصديق والمعلم والناصح النصوح ..... صدقت و تقبلوا تحياتي
أبوبسمله قام بنشر مارس 23, 2016 قام بنشر مارس 23, 2016 ان شاء الله سوف نجاهد لحل المشكله حتى لو فكينا الاكسيل حته حتى عند الميكانيكى ههههه سوف اقوم بتجربه الكود عند عودتى من مشوار بره بالتوفيق 1
عاطف عبد العليم محمد قام بنشر مارس 24, 2016 الكاتب قام بنشر مارس 24, 2016 (معدل) وفوق كل ذي علم عليم (من آية 76 يوسف ) تم تعديل مارس 24, 2016 بواسطه عاطف عبد العليم محمد
الردود الموصى بها