اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

ورقة 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

تقبل تحياتي

 

  • Like 5
رابط هذا التعليق
شارك

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

جزاك الله خير

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

  • 2 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information