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

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

قام بنشر

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

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

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

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

012.rar

قام بنشر

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

وإثراءً للموضوع هذا حل آخر باستخدام معادلة صفيف ، توضع في الخلية 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

  • Like 3
قام بنشر

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

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

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

وتقبل تحياتي

Unique List.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

تم تعديل بواسطه سليم حاصبيا
  • Like 2

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information