أبو حنــــين

السلام عليكم أولا قمت بتغيير الارقام في الصفحات SAL2 أو SAL3 او SAL4 حيث : وضعت الأرقام 00-06-00-01 01-06-00-01 02-06-00-01 في صفحة SAL2 الى آخره وضعت الأرقام 00-06-00-03 01-06-00-03 02-06-00-03 في صفحة SAL3 الى آخره ثم نفس الشيئ بالنسبة للصفحة الثالثة ( انظر العمود B في كل الصفحات ) و غيرت الكود ليتناسب مع ذلك ADSL REPORT55.rar

اخي عباس السماوي سررت كثيرا بمروركم العطر و كلماتكم الطيبة جزاك الله خيرا

أخي اذا كان التاريخ في العمود C و تريد كتابة اليوم في العمود D فأكتب هذه المعادلة في العمود D و اسحبها للأسفل =IF(C3="";"";TEXT(C3;"dddd"))

جزاك الله خيرا : / أخي حسين على مروركم الطيب

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

يصبح الكود بهذه الطريقة : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 And Target.Row > 1 Then With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=OFFSET($A$2,0,0,COUNTA($A:$A),1)" End With For Each cl In [A2:A1000] If cl <> "" Then Listee = Listee & cl & "," Next With ActiveCell.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Listee End With End If Target.Validation.Delete End Sub

ضع هذا الكود Private Sub CheckBox1_Click() If CheckBox1.Value = True Then UserForm1.Show End If End Sub

و عليكم السلام :/ أخي عبد الله و الله أتشرف دوما بمروركم و ذلك لأن تعقيبكم على اي موضوع يعتبر حافزا للتواصل و لا يشعر صاحب الموضوع بخيبة الامل في ما يقدم جزاكم الله خيرا و حفظكم من كل سوء

هذا بالنسبة للقائمة السؤال الثاني غير مفهوم يرجى ارسال ملف للعمل عليه برنامج العمال.rar

أخي الحبيب : / أبو نصار أدام الله عليكم الصحة و جزاكم الله خيرا على مروركم العطر ***************************** أخي الحبيب : / محمود جزاكم الله خيرا على المرور الطيب و لا تنسونا من دعائكم الصالح في ظهر غيب

أخي أحمد الكود يعمل مع الدوال التي لها علاقة بنطاق محصور بين خليتين فقط مثل A2:A20 و اي دالة تعمل ضمن نطاق مثل هذا يمكن ادراجها كما يمكن تعديل الكود ليتسع لدوال أخرى

رأيت في المنتدى نقاش حول قائمة منسدلة تحتوي على مجموعة دوال يمكن اختيار أي منها لتقوم بالعمل فأجريت هذا المثال لذلك دوال.rar

أخي الحبيب : / رجب جاويش جزاك الله خيرا على مروركم الطيب ، لقد اصبحنا نفتقدك من حين الى آخر ****************** أخي الحبيب : / يوسف عطا جزاكم الله خيرا على المرور العطر و الكلمات الطيبة

بعد اذن أخي عباد هذا مثال على الكود الذي طرحه أخي عباد مثال.rar

جزاك الله خيرا أخي عباس السماوي على مروركم و هذا تعديل لمنع الفراغات ان وجدت في القائمة Validation11.rar

جزاك الله خيرا أخي ياسر خليل على مروركم الطيب

أسعد بمرورك دوما أخي أبو نصار حفظك الله و حفظ نصار

بكل صراحة أخي : / أنس دروبي بعد تحميل المرفق و فتح البرنامج و دون الاطلاع على المحتوي فقط رأيت الواجة مع القوائم ، سارعت في كتابة هذه الأسطر لمدى اعجابي بهذا العمل الرائع الذي ادعو الله ان يجعله لك في ميزان حسناتكم و كنت قد عملت عملا مشابها لهذا العمل في المنتدى لكنني لم اكمله و لا يرقى لهذا العمل جزاك الله خيرا

نحتاج في بعض البرامج الى قائمة منسدلة مرنة في الوقت الذي نريده عن طريق الكود هذا مثال على ذلك Validation.rar

السلام عليكم بعد اذن اخي الاستاذ طارق بالنسبة للسؤال الاول و هو القائمة ضع هذا الكود في الورقة الاولى Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 And Target.Row > 1 Then With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=OFFSET($B$2,0,0,COUNTA($B:$B),1)" End With End If Target.Validation.Delete End Sub بالنسبة للسؤال الثاني صع هذا الكود في السطر الاول من كود النسخ If Sheets("ورقة1").Range("B2") = "" Then Exit Sub

و عليكم السلام أخي الأستاذ : أحمد زمان اعتذر عن التأخر في الرد و جزاك الله كل الخير على مروركم فهذا شرف لنا المرفق أخي احمد لا يقبل النقاش طالما هو من توقيع اناملكم و الملاحظ لاول وهلة هو تنسيق الملف و الاختيار المحكم للالوان و ربما هذا هو الملف الذي يحتاجه الاخ ابو محمد يارا صاحب الموضوع كما اتقدم بالشكر الكبير لاخي ابو نصار على مروره العطر جزاكم الله خيرا تقبلو تحياتي

العفو أخي لكن لاحظ أخي ان الشرط يتحقق فقط في حالة ما اذا كانت قيمة الخلية ( = ) و ماذا يحدث لو كانت اكبر او اقل ؟

استعمل هذه المعادلة في الخلية N5 ثم اسحبها للاسفل =IF(G5<400;(K5*10)/100;0)

جرب المرفق القوائم2.rar

جزاك الله خيرا أخي : أبو أحمد على مروركم