نقل محتوى خلية من ورقة لورقة بدون تكرار

[نايف - م]

ورقة NN

ورقة MM

أريد نقل محتوى خلية من الورقة الأولى للورقة الثانية بشرط عدم تكرار القيمة  مرة ثانية في العمود

يعني أن كان يوجد الرقم 12 - لا يقوم الكود بنقل رقم 12 للورقة الثانية

حاولت بكود و لم ينجح

أرجو المساعدة و شكرا

ملف مرفق

المصنف1.rar

[ياسر خليل أبو البراء]

أخي الكريم نايف

إليك الكود التالي عله يكون المطلوب

Sub Test()
    'تعريف المتغيرات
    Dim Ws As Worksheet, Sh As Worksheet, Cel As Range, LR As Integer
    
    'تعيين قيمة للمتغير ليساوي ورقة العمل المراد الترحيل منها
    Set Ws = Sheets("mm")
    
    'تعيين قيمة للمتغير ليساوي ورقة العمل المراد الترحيل إليها
    Set Sh = Sheets("nn")
    
    'تعيين الخلية التي سيتم ترحيل قيمتها
    Set Cel = Ws.Range("A1")
    
    'تحديد أول خلية فارغة في العمود الأول في الورقة المراد الترحيل إليها
    LR = Sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    'شرط لاختبار تكرار القيمة باستخدام دالة العد بشرط
    'فإذا كان ناتج العد أكبر من أو يساوي 1 ، فذلك يعني أن القيمة موجودة
    If Application.WorksheetFunction.CountIf(Sh.Columns(1), Cel.Value) >= 1 Then
    
        'طالما أن القيمة موجودة تظهر رسالة تفيد بأن القيمة مكررة
        MsgBox "القيمة مكررة في العمود", 64
    Else
    
        'إذا لم تكن القيمة موجودة من قبل في الورقة المراد الترحيل إليها
        'يتم وضع القيمة في أول خلية فارغة في العمود الأول بعد آخر خلية بها بيانات
        Sh.Range("A" & LR).Value = Cel.Value
    End If
End Sub

تقبل تحياتي

 

[نايف - م]

كود راااااااااائع شكرا لك أستاذي الكريم

شكرا أيضا للشرح المستفيض لأنني أتعلم منه

[ياسر خليل أبو البراء]

إنت تؤمر أخي الكريم نايف

المهم أن يستفيد الجميع لنبدأ مرحلة جديدة ... مرحلة غير المراحل السابقة نرى فيها الجميع يقدم إبداعاته بلا حدود

تقبل تحياتي

[KHMB]

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

اخي الحبيب الفاضل الاستاذ ياسر

كوع يسيط مختصر الطرق الطويله التي تؤدي إلي روما (الله يذكره بكل خير الااستاذ احمد إبن مصر ) وشرح رائع سيكون في متناول المبتدئين  والمتقدمين

جزاك الله خير

[ياسر خليل أبو البراء]

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

بارك الله فيك أخي العزيز أبا الحسن والحسين وجزيت خيراً بمثل ما دعوت وزيادة

ومشكور على مرورك العطر بالموضوع

تقبل تحياتي

[أبوبسمله]

جزاك الله كل خير يا أبوالبراء

[ياسر خليل أبو البراء]

14 ساعات مضت, أحمد الفلاحجى said:

جزاك الله كل خير يا أبوالبراء

وجزيت خيراً بمثله أخي العزيز أحمد ، ومشكور على مرورك الطيب والاستفادة من الكود المشروح

تقبل وافر تقديري واحترامي

[جمعة العوامي]

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