طلب : عدم تكرار الكود فى العمود من خلال الفورم

[klma7lwa]

السلام عليكم ورحمة الله وبركاته 

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

طلبى باختصار

1- عند اخال كود للفرع من اليوزر فورم فى حالة تكرارة تظهر رسالة تفيد ان هذا الكود مستخدم مسبقاً ويظهر بجانب التعليق اسم الفرع وكذالك عند تكرار اسم الفرع تظهر رسالة تفيد ان هذا الاسم موجود مسبقا ويظهر بجانبه كود الفرع .

2- هذا الطلب قد طلبته من قبل ولكنى اطرحه لعلى اجد له حل وهو عندما يكون هناك ملف ولنفرض انه اسمه اكس 1  مفتوح تدخل به بيانات او تطلع عليه وتفتح ملف اكس2 الذى يعمل عليه فورم فقط دون عرض الملف والمطلوب هو انى يبقى ملف اكس1 مفتوح وظاهر كما هو واكس2 الذى يعرض فورم فقط دون ظهور الملف ويمكنك فتح ملف اكس 3 به بيانات عاديه .

 

فى انتظار المشاركات لعلى اجد ضلتى فى هذا المنتدى الذى تعلمته فيه معنى ال VBA وعلى ايدى اساتذته خطوت بيدى حروفى الاولى فى VBA وتعلمت منهم الابداع بمحرر الاكواد

 

فورم 11.rar

[طارق محمود]

السلام عليكم

أخي العزيز

 

عدل كود زر الإضافة كالتالي

 

 

Private Sub Comd1_Click()

If txt1.Text = "" Or txt2.Text = "" Then MsgBox "يرجى ادخال كود الفرع ", vbInformation + vbMsgBoxRight, "بيانات غير كافية": Exit Sub

Sheets("BrCode").Visible = True

With Sheets("BrCode")
    LastR = .[A10000].End(xlUp).Row
    
    For Each cl In Range("A2:A" & LastR)
        If cl = txt1.Text Then MsgBox "هذا الكود مستخدم للفرع " & cl.Offset(0, 1): Exit Sub
    Next cl
    
    For Each cl In Range("B2:B" & LastR)
        If cl = txt2.Text Then MsgBox "هذا الفرع تم إدخاله من قبل تحت الكود " & cl.Offset(0, -1): Exit Sub
    Next cl
    
        .Cells(LastR + 1, 1) = txt1.Value
        .Cells(LastR + 1, 2) = txt2.Value
        .Cells(LastR + 1, 3) = txt3.Value
End With
    MsgBox "تمت الاضافة بنجاح", vbCritical + vbMsgBoxRight, "تنبيه"
    txt1.Text = ""
    txt2.Text = ""
    txt3.Text = ""

End Sub

 

أو تفضل المرفق

إن شاء الله يكون هو ماتريد

فورم 11_2.rar

[klma7lwa]

الاخ الكريم طارق محمود

بارك الله فيك وجزاك عنا كل خير فى الدنيا والاخرة 

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

 

وان شاء الله اجد ضلتى فى طلبى الثانى قريبا بأذن الله