عادل حنفي

جرب الملف تم التعديل

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

حبيبي ياسر

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

تحياتي