عادل حنفي

جرب الملف تم التعديل MultiCat UDF Function2.rar

طب استسمحك تتركه لي الآن وسوف اكمله لك في اقرب وقت ان شاء الله

عذرا اخي صلاح ضعها قبل الـ End if التي قبلها مباشرة وانا معاك ملحوظة تم تعديل الكود السابق وهو الان ليس به مشكلة

اخي صلاح تمام الحمد لله ضع فقط Exit sub في الكود في منتصف الكود تقريبا وقبل السطر التالي End if If Target.Column = 8 And Target.Row > 3 And Target <> "" Then ليكون الكود بالشكل التالي ولو فيه اي شيئ اخبرني Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 4 And Target.Row > 3 And Target <> "" Then If Range("B4") = "" Then m = 4 Else m = Range("B3").End(xlDown).Row n = Target.Row End If v = Application.WorksheetFunction.CountIf(Range("B4:B" & m), Target.Text) If v = 0 Then With Columns(2).Rows(500).End(xlUp) .Offset(1, 0) = Target End With m = Range("B3").End(xlDown).Row s = Range("B4").Address ss = Cells(m, 2).Address ActiveWorkbook.Names.Add Name:="Rng", RefersTo:="=" & ActiveSheet.Name & "!" & Range(s, ss).Address End If Exit Sub End If If Target.Column = 8 And Target.Row > 3 And Target <> "" Then If Selection.Columns.Count > 1 Then Exit Sub Cells(Target.Row, Target.Column + 1) = "" m = Range("D3").End(xlDown).Row For i = 4 To m If Cells(i, 4) = Target Then If Cells(Target.Row, Target.Column + 1) = "" Then 'or i < m Then Cells(Target.Row, Target.Column + 1) = Cells(i, 5) Else Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) & " " & "¡" & " " & Cells(i, 5) End If End If Next End If

عذرا اخي الفكره كلها في حرف P اخذفه من السطر الرابع ستحل المشكلة ان شاء الله وسيكون الكود علي الشكل التالي والشكر موصول للاخ عمر الحسيني Private Sub CommandButton1_Click() Dim Sh As Shape For Each Sh In ActiveSheet.Shapes If Sh.Type = msoAutoShape Or Sh.Type = msoTextBox Then Sh.Delete Next Sh End Sub

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

اخي وبعد اذن الاخ الحبيبي ياسر قمت بترتيب الشيت وعملت رؤوس للاعمدة يمكنك تغير اسمائها فيما عدا العامود الثاني لانه سيرحل له كل كود جديد وغير مكرر لمجرد كتابته في العامود4 ومن ثم عمل مدي يتجدد باستمرار وما عليك الا اختيار الكود من عامود 8 فقط وسيتم عمل المطلوب عموما جرب الملف MultiCat UDF Function.rar

اخي بالنسبة للمطلوب الاول قم بالغاء الاسطر التالية في الكود If FT = LG Then MsgBox "لايمكن ان يكون عدد الفترات اكب من عدد اللجان" Exit Sub End If

طالما سيتم تعديل المكرر وانه سيظهر لك فور كتابته فلما الترحيل ثم التعديل ثم الالغاء فمن باب اولي عدم قبول المكرر وتعديله عند الكتابة مباشرة منتظر ردك

اخي الشيباني جرب المرفق تحياتي ترحيل.rar

اخي الخطأ في انه المفروروض ان تقوم بسخ الكومبوبوكس1 من ورقه1 الي ورقه3 هذا كل مافي الموضوع تحياتي combobox.rar

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

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

اخي هذا الرنامج جيد ولكن المشكلة تكمن لو كان ملفك باللغة العربية https://app.box.com/s/4gkgkm9h4wvye5jkqh8ccbz70e5s8ni7

عذرا اخي ابو سما اشارككم بالمرفق تنظيم المعاملات.rar

اخي جرب المرفق delet shapes.rar

اخي ابو حنين جرب المرفق اضافة كود بن علية حاجيR1.rar

السلام عليكم اخي ابو حنين القي نظرة علي المرفق إن شاء الله يكون المطلوب اضافة كود بن علية حاجيR.rar

اخي ابو قاسم وانت بكل خير ومصر كلهالابخير

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

السلام عليكم اخي عبد العزيز اشكرك علي كلماتك وانا من افتقدكم وكل عام وانت بكل خير اخي سعد عابد كل عام وانت بكل خير وصحة واسعدني مرورك

حبيبي ا/ زيزو وانت والاسرة الكريمة بكل خير ان شاء الله

السلام عليكم اخي الحبيب العالي ابو البراء تحياتي واشواقي وانا من يخسر بالبعاد عنكم وكل عام وانت بخير اخي الحبيب أ/ جلال الجمال اسعدني مروك وكلماتك ويشرفني دائما ان اكون بينكم وكل عام وانت بخير اخي الحبيب ابو يوسف اشكرك اخي الحبيب ولا تقلق علي غالي عليك ابدا ربنا يبارك فيك وكل عام وانت بخير

السلام عليكم احسنت اخي عبد السلام واسمح لي بالمشاركة اخي Kel1110 جرب الملف المرفق test.rar

حبيبي ياسر الله يخليك المنتدي منور بيكم وكل سنه وانت بكل خير تحياتي