اريد كود استخرج الاسماء الجديده

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

اريد كود استخراج الاسماء الجديده بدون تكراراستخراج الاسماء الجديده.rar

[جمال عبد السميع]

أليك أخي العزيز إحدي روائع العملاق (يحيي حسين )

قائمة بدون تكرار.rar

[إبراهيم ابوليله]

الاخ محمود بارك الله فيك

ولكن هل من شرح للداله

وانا ما زلت طامعا فى وجود كود يعمل ذلك انشاء الله

[جمال عبد السميع]

الدالة من الشكل هي دالة صفيف أي لابد من الضغط علي ( ctrl+shift+enter) لكي تقوم بعملها علي الوجهة السليم وطبعا باقي الدالة لايحتاج إلي شرح

[طارق محمود]

السلام عليكم

أخي الكريم

تفضل الكود التالي

Sub chooose()

5 LR = [D1000].End(xlUp).Row

For Each ce In [A4:A150]

    If ce.Value = "" Then GoTo 10

    For r = 4 To LR

        If ce.Value = Cells(r, "D").Value Then GoTo 10

    Next r

    Cells(LR + 1, "D").Value = ce.Value: GoTo 5

10 Next ce

End Sub

[رجب جاويش]

بعد اذن إخوتى المشاركين

أخى ابراهيم

هذا الرابط يحتوى على طلب مشابه تماما لطلبك

http://www.officena.net/ib/index.php?showtopic=42476

[عبدالله المجرب]

ردوود رائعة ومتنوعة

بارك الله فيكم اخواني

[إبراهيم ابوليله]

الاخ طارق بارك الله فيك

ماذا لو اردنا استخراج الاسماء بدون زر

[طارق محمود]

الاخ طارق بارك الله فيك

ماذا لو اردنا استخراج الاسماء بدون زر

السلام عليكم

هذا هو الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

Range("D1:D" & [D10000].End(xlUp).Row).ClearContents

[D3] = " "

5 LR = [D1000].End(xlUp).Row

For Each ce In [A4:A150]

If ce.Value = "" Then GoTo 10

For r = 4 To LR

If ce.Value = Cells(r, "D").Value Then GoTo 10

Next r

Cells(LR + 1, "D").Value = ce.Value: GoTo 5

10 Next ce


End Sub

تفضل أخي أيضا المرفق وبه الكود المطلوب

استخراج الاسماء الجديده.rar

[إبراهيم ابوليله]

الاخ طارق

بارك الله فيك كود رائع

وكن اطمع فى شرح للكود

والله الموفق

[طارق محمود]

السلام عليكم

أخي إبراهيم

تفضل المرفق وبه شرح الكود بالتفصيل

شرح الكود.rar

[إبراهيم ابوليله]

الاخ طارق بارك الله فيك

وما اجملك حين تشرح

فاننا تعودنا منك على الشرح الوفير الملم بكل المعلومات

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