مساعدة : حذف اسم من قائمة اذا ذكر في قائمة اخرى

[محمود الحربي]

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

 

الحمدلله والشكر لجهود من في المنتدى قربت انتهي من ملف به خير ان شاء الله

بقي نقطة واحد فقط اريد احد يساعدني بها .

 

حذف اسم من قائمة اذا ذكر في قائمة اخرى

 

من الملف المرفق ممكن تكون أوضح

9.rar

[عمرو.محمد]

تفضل اخى هل هذا ما تريد ؟ 

9.rar

[أ / محمد صالح]

تفضل أخي الكريم

لاحظ أنه تم عمل معادلة للمسلسل والاسم في الأفراد 

كما أنه لا يمكن حذف القائمة الكاملة التي تحتوي على الأفراد ورؤساء المجموعات

فقط يلزمك كتابة مسلسل رؤساء المجموعات ليتم استبعادهم من الأفراد

الموجود في قائمة وليس في الأخرى.rar

[محمود الحربي]

بارك الله أ / محمد صالح

 

1- المشكلة عند حذف الاسم يتم ازالة الرقم المسلسل وهي ما يعترض مع كود التوزيع

اريد بس حذف الخلية وانتقال الاسم الي في الاسفل مكان المسسل السابق والفراغ في اخر القائمة

 

2- اذا تم حف رقم من منصف القائمة لايحذف

مثال : جرب احذف الرقم 26

الموجود في قائمة وليس في الأخرى.rar

تم تعديل يونيو 13, 2017 بواسطه محمود الحربي

[محمود الحربي]

عمل رائع اخي عمرو.محمد

هناك مشكلة بسيطة

تقريب الفكرة :

بدل ما اعمل هذا الكلام كله

 

1- اضغط f5  مفتاح كنترول + حرف

2 - من نافذة الانتقال إلى اختر " خاص "

3 - ثم الفراغات

4 - ثم اختر إزاحة الخلايا لأعلى أو غيرها

 

ابغ اختصر الفكرة

9 (2).rar

تم تعديل يونيو 13, 2017 بواسطه محمود الحربي

[محمود الحربي]

جربت هذا الكود بس يحذف الصف كامل وليس الخلية

9 (2).rar

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

جرب الكود بهذا الشكل

Private Sub CommandButton4_Click()
    Dim lastRow     As Long
    Dim i           As Long
    
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    
    For i = lastRow To 1 Step -1
        If Cells(i, "D").Value = "" Then
            Cells(i, "C").Resize(, 2).Delete xlUp
        End If
    Next i
End Sub

 

[محمود الحربي]

Quote

جرب الكود بهذا الشكل

Private Sub CommandButton4_Click()
    Dim lastRow     As Long
    Dim i           As Long
    
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    
    For i = lastRow To 1 Step -1
        If Cells(i, "D").Value = "" Then
            Cells(i, "C").Resize(, 2).Delete xlUp
        End If
    Next i
End Sub

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

Quote

Private Sub CommandButton4_Click() Dim lastRow As Long Dim i As Long lastRow = Range("C" & Rows.Count).End(xlUp).Row For i = lastRow To 1 Step -1 If Cells(i, "D").Value = "" Then Cells(i, "D").Resize(, 2).Delete xlUp End If Next i End Sub

 

[محمود الحربي]

Quote

Private Sub CommandButton1_Click()

Dim myrng As Range, cel As Range, x As Double

Set myrng = Range("A1:A18") 'ããßä ÇáÊÛííÑ
myrng.Value = ""
If myrng.Count > 18 Then Exit Sub
Randomize
For Each cel In myrng
1 x = WorksheetFunction.RandBetween(1, 18)
If Application.CountIf(myrng, x) Then GoTo 1 Else cel = x
Next

End Sub

Private Sub CommandButton2_Click()

Dim myrng As Range, cel As Range, x As Double

Set myrng = Range("A19:A36") 'ããßä ÇáÊÛííÑ
myrng.Value = ""
If myrng.Count > 18 Then Exit Sub
Randomize
For Each cel In myrng
1 x = WorksheetFunction.RandBetween(19, 36)
If Application.CountIf(myrng, x) Then GoTo 1 Else cel = x
Next

End Sub

Private Sub CommandButton3_Click()

Dim myrng As Range, cel As Range, x As Double

Set myrng = Range("A37:A63") 'ããßä ÇáÊÛííÑ
myrng.Value = ""
If myrng.Count > 27 Then Exit Sub
Randomize
For Each cel In myrng
1 x = WorksheetFunction.RandBetween(37, 63)
If Application.CountIf(myrng, x) Then GoTo 1 Else cel = x
Next

End Sub

او حل اخر كيف اقدر اخليه يأخذ بس الأرقام الي في العامود

C

ويوزعها على في العامود

A

بالكود السابق

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

في الكود السابق غير السطر التالي

Cells(i, "C").Resize(, 2).Delete xlUp

لصيبح بالشكل التالي

Cells(i, "]").Delete xlUp

 

[أ / محمد صالح]

تفضل أخي الكريم

تم عمل تعديل بسيط في معادلة مسلسل الأفراد

لاحظ أنه تم عمل معادلة صفيف array formula للمسلسل

كما أنه لا يمكن حذف القائمة الكاملة التي تحتوي على الأفراد ورؤساء المجموعات

فقط يلزمك

كتابة مسلسل رؤساء المجموعات ليتم  ظهور اسمهم من القائمة الكاملة واستبعادهم من الأفراد

الموجود في قائمة وليس في الأخرى2.rar