نقل الاسم من عامود لعامود اخر دون ان يتكرر

[وليد زين العايدن]

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

بحاجة للمساعده في الملف المرفق

في العمود  ( D )  تحت مسمى المهنه هناك عدة مهن ومنها متكرر المطلوب اي مهنه تكتب في هذا العامود تظهر في العمود( I)  دون ان تكرر (مثال لدينا مهنة مهندس عدد 2 يظهر في العامود فقط مرة واحد كلمة مهندس ونفس الشي للباقي المهن

ارجو المساعدة ولكم مني جزيل الشكر 

012.rar

[سليم حاصبيا]

جرب هذا الشيء 

في المشاركة التالية (حيث لم يتم التحميل جيداً

 

 

 

تم تعديل أكتوبر 25, 2015 بواسطه سليم حاصبيا

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

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

الملف المرفق لم يتم تحميله يرجى رفعه مرة أخرى

جزاك الله خير الجزاء

[سليم حاصبيا]

حاضر اخي ياسر

 

 

sans repetition salim.zip

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

بارك الله فيك أخي الحبيب سليم

وإثراءً للموضوع هذا حل آخر باستخدام معادلة صفيف ، توضع في الخلية I5

معادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter معاً

=IFERROR(INDEX($D$5:$D$40,MATCH(0,IF(ISBLANK($D$5:$D$40),1,COUNTIF($I$4:I4,$D$5:$D$40)),0)),"")

 

 

Unique List.rar

[وليد زين العايدن]

بارك الله فيك اخي سليم 

وبارك الله فيك اخي ياسر

 هذا هو المطلوب تقبلوا تحياتي

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

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

تقبل وافر تقديري أخي وليد

[وليد زين العايدن]

الف شكر اخي ياسر لكن بحاجه لامر اخر واسف اذا اثقلت عليك  

الجدول مؤلف عامودين وعند امتلاء العامود الاول ان يبداء الظهور في العامود الثاني دون ان يتكرر في العامود الثاني ماهو موجود في العامود الاول 

في المرفق شرح لهذا 

وتقبل تحياتي

Unique List.rar

[سليم حاصبيا]

جرب هذا الشيء

Unique List.zip

[وائل احمد المصري]

 اثراء" للموضوع اخي جرب المرفق 

Book1.rar

[وليد زين العايدن]

شكرا اخ سليم كود رائع لكن لم استطيع تطبيقه على ملفي 

ارفق لك ملفي راجيا ان تساعدني بتطبيقه على ملفي 

في الملف الشيت الاول ATTENDANCE وهو المطلوب جلب البيانات منه من عامود  ( F  ) 

الشيت الثاني Number trades in the project وهوالمطلوب تطبيق عليه الكود في العامودين  ( F ) ( C)

والتطبيق فقط لهذين العامودين 

وتقبل تحياتي 

012 ‫‬.rar

[سليم حاصبيا]

اخي وليد لقد جهزت لك الملف للرفع

الورقة محمية لذا لم استطع اضافة زر للماكرو

اليك الكزد لهذاالغرض يمكنك نسخه في موديل جديد و تعيين زر له

او تشغيل الماكرومن الملف المرفق

Sub split_in_tow_columns1()


Dim ws1, ws2 As Worksheet
Dim Myrange As Range
Dim lr, My_nb_rows As Integer
Dim c, k As Integer
k = 5
c = 3
    Set ws1 = Sheets("ATTENDANCE"): Set ws2 = Sheets("Number trades in the project")
   
    lr = ws1.Cells(Rows.Count, "f").End(3).Row
    Set Myrange = ws1.Range("f9:f" & lr)
ws2.Range("c5:c26").ClearContents
ws2.Range("f5:f26").ClearContents


For i = 9 To lr
 t = Application.CountIf(ws1.Range("f5:f" & i), Range("f" & i))
 If t = 1 Then
  Cells(i, 6).Copy ws2.Cells(k, c)
  k = k + 1
  If k > 26 Then k = 5: c = 6
 End If

Next
End Sub

 

برنامج حظور وانصراف salim.zip

تم تعديل أكتوبر 25, 2015 بواسطه سليم حاصبيا

[وليد زين العايدن]

الف شكر اخي سليم 

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

والشكر موصل لكافة الاخوة