ادراج قوائم

[الشيباني1]

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

Book1.zip

[أبو ردينة]

عفوا أخي الكريم / لم أفهم المقصود ؟

لو تكرمت توضح المطلوب و لك الشكر

[الشيباني1]

اخي العزيز مع تقديري ما وددت الحصول عليه معادله او كود يثبت رقم القائمه امام تفاصيلها لمرة واحده بدون تكرار وكما موضح في العمود (F ) مع الشكر

[رجب جاويش]

تفضل أخى

Book1.rar

[أبو حنــــين]

اضافة لمعادلة اخي رجب

هذه الطريقة بالكود

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Dim cl As Range

For Each cl In Range("C5:C20")

With cl

If .Value = "" Or .Offset(-1, 0).Value = .Value Then

.Offset(0, 3).Value = ""

Else

.Offset(0, 3).Value = .Value

End If

End With

Next

End Sub

Book1.rar

[الشيباني1]

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