وعلكيم السلام أخي الكريم

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

 بارك الله فيك أخي الكريم محمد والحمد لله أن تم المطلوب على خير

والحمد لله الذي بنعمته تتم الصالحات

 جزاك الله خيراً أخي الغالي محمد الدسوقي ومشكور على تفاعلك المثمر في المنتدى

تمنياتي لك بدوام التوفيق

 بارك الله فيك أخي الحبيب إسلام وجزاك الله خيراً

مقدمة رائعة وبداية موفقة إن شاء العلي القدير

 تسلم أخي الحبيب إسلام

لكن الأروع دائماً هو صاحب الضربة الأولى 

 جرب التعديل التالي عله يفي بالغرض .. قم بإزالة التحقق من الصحة

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 2 And Target.Row <> 1 Then

        Application.EnableEvents = False

            Target.Offset(, -1).Value = Application.Max(Range(Cells(1, 1), Cells(Target.Row - 1, 1))) + 1

            Target.Offset(, 1).Value = Application.VLookup(Target.Value, Range("sama"), 2, 0)

            Target.Offset(, 2).Value = Application.VLookup(Target.Value, Range("sama"), 3, 0)

            Target.Offset(, 3).Value = Application.VLookup(Target.Value, Range("sama"), 4, 0)

            Target.Offset(, 4).Value = Application.VLookup(Target.Value, Range("sama"), 5, 0)

    

            If Evaluate("COUNTIF(B:B," & Target.Address & ")") > 1 Then

                MsgBox Target.Value & " Is A Duplicate Entry.  It Will Be Removed.", vbExclamation, "Data Entry Editor"

                Target.Offset(, -1).Resize(, 6).ClearContents

            End If

        Application.EnableEvents = True

    End If

End Sub

 أعتقد أنه لا يوجد رد من الأعضاء لأن الموضوع والشروط الموضوعة في ورقة العمل BASIC غير واضحة ..

حاول تضع مزيد من الأمثلة لتوضيح المطلوب وضع بعض النتائج المتوقعة لأكثر من شخص مع ذكر السبب

 

 بارك الله فيك أخي الغالي حسام وجزيت خيراً

جعله الله في ميزان حسناتك يوم القيامة

 وجزيت خيراً أخي الحبيب حسام ومشكور على مرورك العطر



أخي الغالي إسلام لو متشتشت كل فطير مشلتت 

 بارك الله فيك أخي الحبيب ياسر وجزاك الله خيراً

واصل إبداعاتك وشروحاتك المميزة 

 نشاط رائع أخي الغالي إسلام .. بارك الله فيك

 بارك الله فيك أخي الحبيب إسلام وجزاك الله خيراً