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

[hamed.34552]

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

ارجو من سيادتكم ان تكون الخلية H2  فى ورقة وظيفة ان تضم بيانات لا تتكرر  

ملحوظة H2  هى قائمة منسدلة

ولكم كل التقدير والاحترام

hamed.xls

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

جرب هذا الكود

1-يقوم بادراج قائمة منسدلة بدون تكرار ومرتبة ابجدياً 

2-يعمل اوتوماتيكياً عند فتح الملف

Option Explicit

Private Sub Worksheet_Activate()
Salim_Data_Val
End Sub
'+++++++++++++++++++++++++++++++++++
Sub Salim_Data_Val()
Dim B As Worksheet, W As Worksheet
Set B = Sheets("البيانات الرئيسية")
Set W = Sheets("الوظيفة")
Dim i#: i = 7
Dim arr
Dim Laste_row#
Laste_row = B.Cells(Rows.Count, "D").End(3).Row
Dim rg As Object
Set rg = CreateObject("System.Collections.Arraylist")
With rg
 Do Until i > Laste_row
  If Not .Contains(UCase(B.Range("D" & i).Value)) _
   And B.Range("D" & i) <> vbNullString Then _
  .Add UCase(B.Range("D" & i).Value)
 i = i + 1
 Loop
 .Sort
 arr = Join(.Toarray, ",")
 End With
 
 With W.Range("H2").Validation
 .Delete
 .Add xlValidateList, Formula1:=arr
  End With
 Set rg = Nothing: Set B = Nothing: Set W = Nothing

End Sub

الملف مرفق

hamed_1.xls

[abouelhassan]

شكر وتقدير واحترام من اخيك استاذى

[hamed.34552]

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

ولدى سؤال هل هناك كود فيجوال يجعل اى خلية فى اى شيت بها تاريخ 1900/1/00  تكون فارغة 

بمعنى يحذف هذا التاريخ ويجعل الخلية فارغة

يجب عليك الضغط على الإعجاب لإجابة الأستاذ سليم وليس على تعليق الأستاذ أحمد يوسف

 

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

غير تنسيق الخلايا في العامود المناسب الى  General   و تعود  هذه الخلايا الى طبيعتها

[hamed.34552]

غيرت التنسيق الى General لكن التاريخ العادية اصبحت ارقام  وتاريخ 1900/1/00 اصبح اصفار 

لا اريد تغيير باقى التواريخ الى ارقام 

ارجو المساعدة

وتحياتي لكم ربنا يحفظكم من كل سوء

[hamed.34552]

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

اشكر القائمين على هذا الموقع وشكر خاص للاستاذ سليم حاصبيا 

واريد ان اوضح انني توصلت غلى طريقة للتخلص من تاريخ  1900/1/00 وهى ان اسبق الدالة بIF

مثال للدالة 

=IF(ISERROR(MATCH($C$7;INDEX(بيانات1;0;3);0));"";INDEX(بيانات1;MATCH($C$7;INDEX(بيانات1;0;3);0);15))

اجعل if تسبق هذه الدالة مثل

=IF(IF(ISERROR(MATCH($C$7;INDEX(بيانات1;0;3);0));"";INDEX(بيانات1;MATCH($C$7;INDEX(بيانات1;0;3);0);15))="";"";IF(ISERROR(MATCH($C$7;INDEX(بيانات1;0;3);0));"";INDEX(بيانات1;MATCH($C$7;INDEX(بيانات1;0;3);0);15)))

ولسيادتكم جزيل الشكر

ارجو ان اكون قد وفقت فى توضيح المعلومة

[الرائد77]

لعدم جعل قيم الصفر تظهر هده الميزة موجودة في أوفيس بدون معادلات 

1

2

3

انزع علامة الصح من show zero in a cell that have zero value