نجوم المشاركات

..... شاهدوا المرفق أخوكم عماد الحسامي

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

بعد هذه الحلول القيمة من الأساتذة الرائعين ألا يمكن أن يكون الحل هكذا أبسط بالنسبة لحضرتك المصنف3.rar

السلام عليكم تفضل اخى الكريم لعله بفيدك http://www.officena.net/ib/index.php?showtopic=55063#entry348079

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

السلام عليكم ماتفضل به اخونا الكريم / محمد أبو البراء ، مضبوط ولاأدري لماذا لايعمل معك عموما تفضل أخي المرفق به التعديل المصنف1_c.rar

تفضل أخى لعله " المطلوب " تقبل تحياتى بطاقة موظف.rar

استاذي الفاضل / طارق اشكرك جدا للأهتمام فعلا هذا ما اريده ولكن اريد ان افهم شيء انا عاوز النتيجة تطلع لما ااقف علي اسم المدرسة اللي في العامود B اللي هو باسم مدارس السيد الموجه واشكرك للاهتمام

السلام عليكم تفضل أخي المرفق وبه الكود التالي في حدث تغيير الإختيار بالورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [E10:E50]) Is Nothing Then v = Target.Value x = WorksheetFunction.CountIf([E9:E49], v) If x = 0 Then x = "" Else x = "" End If Shapes.Range(Array("مربع نص 2")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x Target.Select End Sub المصنف1_b.rar

الافضل ان يكون المجموع في التقرير جرب المرفق المشتريات.rar