أبو شرف

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

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

ششششششششششششششششششكرا جزيلا وبارك الله فيك

استاذ تعبتك معي الرصيد عندما يكون صفر معنها ( توجد مبالغ بالمدينة تساوي المبالغ بالدائن ) لذلك يظهر الرصيد صفر . والآ، عندما يكون هناك مبلغ المدين يساوي الدائن لا تظهر اي كلمة في العامود المجاور . بحيث يقرا ( فراغ ) لو فرضنا 1000 بالمدين و 1000 بالدائن . معناها = صفر اي تصفير ولو تغيرت المبالغ ايضا تتغير الكلمات واشكرك جدا وتقديرنا لك

استاذ اشكرك جدا ولكن كلمة (التزام) لا تظهر عندما يكون الرصيد سالب ( اي ظهور اشارة (-) اعندما يكون الرصيد سالب .... شكرا لك ايضا بالنسبة الرصيد عندما يكون صفر معنها ( توجد مبالغ بالمدينة تساوي المبالغ بالدائن ) لذلك يظهر الرصيد صفر . والآ، عندما يكون هناك مبلغ المدين يساوي الدائن لا تظهر اي كلمة في العامود المجاور . بحيث يقرا ( فراغ )

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

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

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

استاذي العزيز محرك البحث في المعلومات عندما اضرب على اي خلية في العامود C فأنة يقرا محرك البحث المعلومات من العامود(( اسم المادة ))في الشيت ((اسماء الزبائن والجهات )). كذلك عندما اضرب دبل كلك على خلية في العامود D فيظهر لي محرك البحث ويجلب المعلومات من شيت اسماء الزبائن والجهات ( جهات البيع ) اي بمعنا كل عامود عندما اضرب عليه يقرا في العامود C اسماء المواد . ,ويقرا في العامود D جهات البيع ويقرا في العامود E اسماء المجموعات . وتقبل كل التقدير والأحترام

اخي الغالي اشكر اهتمامك . ولكن المحرك لا يعمل على الأعمدة المطلوبة .. وتقبل تقديري

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

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

شكراً جزيلا لجهودكم

السلام عليكم هذه المشاركة لاحد الآخوان في المنتدى الكريم هو شيت لترتيب الديون حسب الأهمية ( من الاعلى الى الادنى ) المطلوب عمل الجدول يعمل بصورة حسب كامل الزبائن حيث ان الشيت هنا يعمل الى عدد 17 فقط علما اني لدي مديونيات تصل الى الألف زبون . وهل بالأمكان تمديد المعادلة وحسب المرفق وتقبلوا تقديري اخوكم ابو شرف الكشف التنازلي للديون.rar

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

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

السلام عليكم اخواني الأعزاء في الملف المرفق لدي محرك بحث يعمل بصورة جيدة ولكن لكثرة الزبائن وحجم الملف احتاج الى ملف اخر ابحث به عن اسم الزبون في شيت مرفق . اتمنى ان يكون محرك بحث اخر ينتقي المعلومات من شيت اسماء الزبائن . او تعديل المحرك بحيث يكون به خيارات . واتمنى ان اكون وصلت الفكرة وتقبلوا فائق التقدير محرك11.rar

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

السلام عليكم اتقدم اليكم بالشكر الجزيل وبارك الله فيك ويعجز اللسان عن الشكر استاذي العزيز لدي مشكلة في حالة ان هناك اكثر من حرف في بداية الرمز مثل : ASBF 100*56*75 AWRT 100*56*75 اتمنى ان تكمل فضليك علينا والفضل الى الله يا غالي اخوكم ابو شرف

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

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False If Target.Column = 5 And Target.Row > 11 Then Cancel = True Dim B, D As String B = InputBox("أدخل عدد الصفوف المراد إضافتها", "تحديد عدد الصفوف المراد إضافتها", "1") If B = "" Or B = False Then Exit Sub ActiveCell.Offset(1).EntireRow.Resize(B).Insert ActiveCell.EntireRow.Copy ActiveCell.EntireRow.Offset(1).Resize(B).EntireRow On Error Resume Next ActiveCell.Offset(1).EntireRow.Resize(B).SpecialCells(xlConstants).ClearContents ActiveCell.Offset(1).EntireRow.Resize(B).RowHeight = 34 ActiveCell.Select Selection.Offset(1, -4).Select End If On Error GoTo 0 If Target.Column = 1 Then Cancel = True KH_T_SEARSH.Show On Error GoTo 0 End If If Target.Column = 2 And Target.Row > 12 Then Cancel = True ActiveCell = ActiveCell.Offset(-1, 0) ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) ActiveCell.Offset(0, 1).Select On Error GoTo 0 End If If Target.Column = 6 And Target.Row > 11 Then Cancel = True ActiveCell.ClearContents ActiveCell = [R8].Value ActiveCell.Offset(0, 1).Select End If If Target.Column = 3 And Target.Row > 11 Then Cancel = True Cost_Centers_Search.Show End If If Target.Column = 7 And Target.Row > 11 Then Cancel = True Description_Search.Show End If On Error GoTo 0 If Target.Column = 4 And Target.Row > 12 Then Cancel = True ActiveCell = ActiveCell.Offset(-1, 0) ActiveCell.Offset(0, -1) = ActiveCell.Offset(-1, -1) ActiveCell.Offset(0, 1).Select On Error GoTo 0 End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim sRng As Range Set sRng = Range("MY_PROTECT") If Intersect(Target, sRng) Is Nothing Then Exit Sub If Target = Intersect(Target, sRng) Then On Error GoTo Done Application.EnableEvents = False Application.Undo MsgBox ("هذا النطاق محمي ولايمكن حذف أو تعديل محتواه") Done: Application.EnableEvents = True End If End Sub اخواني الأعضاء بالكروب . ممكن لو تكرمتم بشرح بسيط حول كيفية تحويل الكود على الملف اعلاه او اي شرح وتوضيحات على الكود اكون شاكر فضلكم وبارك الله بكم

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

بارك الله فيك استاذنا العزيز وحقيقة شيء مبهر . حفظكم الله وبارك بصحتكم

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