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

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

قام بنشر

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

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

في العمود  ( 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

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