skyblue

الاساتذة المشرقين والاعضاء الافاضل : السلام عليكم ورحمة الله وبركاته وبعد : في المرفق نموذج وارغب التعديل عليه على النحو التالي : 1- القائمة المنسدلة لاتعمل معي على الرغم من ادخال الكود الصحيح . 2- اظهار المجاميع اليا 3- ظهر القيد المالي في النموذج بمجرد ترحيلي للبيانات . ( سحب بيانات القيد المالي من ورقة 1) . تحياتي برنامج المصروفات.rar

الاساتذة الافاضل السلام عليكم ورحمة الله وبركاته في نموذج النسخ خاصية CANCEL لاتعمل ارجوا التكرم بالتعديل في المود لتفعيلها . تحياتي 11نسخ ورقة.rar

الاساتذة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد : عندي ملف كلما افتحه تاتيني رسالة تشير ان هناك في الملف ارتباطات بمصار بيانت اخرى . سؤالي : ماذا تعني هذه وكيف اتوصل الى المشكلة في الملف واحلها مرفق صورة من تلك الرسالة تخياتي Doc1.rar

عظم الله اجرك اخي جمال الفار ورحم الله ميتكم . الله اجعل قبرها روضة من رياض الجنة

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

السلام عليكم ورحمة الله وبركاته وبعد اخواني الاساتذة المشرفين والاعضاء الافاضل المحترمين في الملف المرفق كود يقوم بنسخ الورقة الى ورقة اخرى باسم انت تختاره . وارجوا التكرم بالمساعدة في التعديل بالكود بحيث اذا قام بنسخ ورقة ان ينسخها بدون المعادلات الموجودة في الورقة الرئيسية (( اي الورقة المنسوخة بدون معادلات )) . تحياتي نسخ ورقة.rar

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

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

السلام عليكم ورحمة اله وبركاته الاساتذة المشرفين والاعضاء الافاضل المحترمين في الملف لمرفق لدي في حدث الورقة كودين بمسمى واحد : Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If [e2].Value > 0 Then ActiveSheet.Shapes("button 1").Visible = True Else ActiveSheet.Shapes("button 1").Visible = False End If End Sub Private Const Ali_Sta As String = "-" Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Range("E7:E13"), Target) Is Nothing Then If Target.Value > 0 Then Target.Font.Color = RGB(255, 0, 0) Target.Value = Ali_Sta & Target.Value Exit Sub End If End If End Sub فما الحل في هذا التعارض ؟؟؟ book12.rar

احسنت ولك جزيل الشكر استاذ رجب وفقك الله

السلام عليكم ورحمة الله و بركاته اخواني المشرفين والاعضاء والافاضل في الملف المرفق قمت بدمج 3 اكواد في كود واحد ولكن لاحظت انه عند الضغط علىهذا الزر يتم الترحيل على دفعتين فما هو السبب تحياتي Book17.rar

ارجوا التكرم والتفضل بالتعديل على الكود بحيث انه عند وضع رقم في الخلية d4 او الخلية f4 يظهر الرقم مسبوقا بعلامة - تحياتي book12.rar

شكرا استاذي ابو حنين على الرد فعلا هذا هو المطلوب . الله لايحرمنا منك . ادعوا الله لك بالتوفيق تحياتي لك

الاخوة الافاضل الموقرين السلام عليكم ورحمة الله وبركاته وبعد : في الملف المرفق اريد ان ادمج خلية بها نص مع خلية بها تاريخ فعند الدمج ظهر التاريخ بشكل اخر . فماهو السبب ؟ تحياتي BOOK13.rar

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

up

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

السلام عليكم ورحنة الله وبركاته برجاء التكرم بالمساعدة وحسب المرفق تفبلوا تحياتي book12.rar

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

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

شكرا على الرد ياابو حنين دائما محب للخير وسباق له . حفظك الله ورعاك فعلا هذا هو مااريده . تحياتي لك

up

الاخ / الخالدي مشكور والف شكر على هذا المحهود الرائع .. كم انا مبسوط انني وجدت الحل بالكود . ومن باب الاستفادة فقط هل يكنن ان تظهر البيانات في ورقة 2 اليا بدون استخدام الزر عن طريق Private Sub Worksheet_Change(ByVal Target As Range) تحياتي الخالصة لك

الاخ / الخالدي الحل كان رائعا بالكود ولكن عندي طلب لو تكرمت ان يكون الجدول الخاص بالكود يظهر في ورقة 2 تحياتي

شكرا اخي mamoud -lee على المجهود الكبير الذي عملته وفعلا حلك كان ممتازا بالكعادلات .