abouelhassan

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

نفس الخطأ والله استاذى ارجو الاطلاع بعد اذنك كل الشكر والتقدير Abou_hasn_validation.xlsm

حفظك الله استاذنا الغالى Option Explicit Dim col As Object Dim ro%, i% Dim Sh As Worksheet '++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("m:m")) Is Nothing _ And Target.Count = 1 Then data_val Cells(2, "e") = Target End If Application.EnableEvents = True End Sub '+++++++++++++++++++++++++++++++++++++++++ Sub data_val() Set Sh = Sheets("Sheet1") ro = Sh.Cells(Rows.Count, 1).End(3).Row Set col = CreateObject("System.Collections.Arraylist") With Sh For i = 2 To ro If .Cells(i, 1) <> vbNullString And _ Not col.Contains(.Cells(i, 1).Value) Then col.Add .Cells(i, 1).Value End If Next i With .Range("E2:E50").Validation .Delete: .Add 3, Formula1:=Join(col.toarray, ",") End With End With End Sub تم التنفيذ وايضا الكود توقف اشكرك من قلبى

تحفة حلو جدا استاذى والله ما اروعك بارك الله فيك لى سؤال حاولت اغير العمود من A الى m مكان القائمة من f2 الى ("e:e50") الكود لم يعمل خرجت من الشيت ورجعت ايضا لم يعمل اشكرك من كل قلبى استاذى الغالى لقلبى استاذ سليم

الف شكر استاذ على والشكر موصول للاساتذة الافاضل استاذ سليم والاستاذ ياسر احترامى

تفضل كلمة مرور لزر امر.xlsm

الاساتذة قرأت موضوعات عدة بالمنتدى ولكنى فشلت احتاج قائمتين منسدلتين بدون تكرار او فراغات بالمعادلات وبالكود مع الشكر الجزيل قائمة منسدلة بدون تكرار وبدون فراغات بالكود والمعادلات.xlsm

تفضل كلمة السر1234 كلمة مرور لزر امر.xlsm

الاساتذة العمالقة شكر وتقدير وكامل الاحترام من اخيكم

بعد اذن حضرتك استاذ الرائد77

فى الشريط المعادلات بجانبه مربع صغير بالاعلى تجد به الاسم زر1 اعمل عليه سيلكت بالموس واكتب الاسم الذى تريده واضغط انتر احترامى

شكر وتقدير واحترام من اخيك استاذنا ربنا يحفظك يارب

الاخوة الاساتذة لدى ملف به 50 شيت وبهم بيانات واريدان يتم نسخ البيانات التى بهذا الملف الى ملف اخر به نفس اسماء الشيتات بس فارغ من البيانات هل من كود ينسخ البيانات من كامل الملف الاول الى كامل الملف الثانى مع الشكر والتقدير والاحترام حيث ان الاكواد تتوقف فى بعض الاحيان فى الملف الاول واضطر لنقل البيانات الى الملف المحفوظ لدى الذى بعه الاكواد تعمل وبالرغم انى انقل الاكواد بردو لا تعمل الا بملف جديد فاضطر الى نسخ البيانات صفحة صفحة من الملف القديم الى الجديدon.xlsx مع الاحترام والتقدير on2.xlsx

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

حضرتك على راسى ربنا يحفظك استاذنا بارك الله فيك استاذنا

تفضل تواتي 40.xlsm

مشكور استاذى بارك الله فيك ربنا يحفظك يارب

تمام الله ينور على حضرتك ويبارك لك بس محتاج تظبيط بسيط الخلايا الفردية هى a2 .c2,f2 لو اى خلية فيهم فرغة تمام اريد الرسالة البيانات ناقصة اما الخلايا b d e مرتبتين ببعض فى كل سطر النطاق من b3 الى e50 اذا كاتبنا فى اى خلية منهم فى الصف لازم نكمل باقى الخلايا يعنى لو كاتبنا a2 c2 f2 و كاتبنا فىb3 ولم نكتب فى d3 او e3 تظهر بيانات ناقصة زى الان وهكذا لكل السطور حتى b50 طالما كاتبنا فى اى سطر فى الخلية b لازم نكمل باى الخلايا المرتبتة بيها وهى d e او لو كتابنا فى e لازم نكمل b وd لان الكود يقوم بالترحيل والبيانات ناقصة فعايز احكم الموضوع ده وعدم الترحيل الااذا كتبنا كل البيانات عندى 50 سطر مش شرط كلهم يكونو مليانين بيانات بس السطر الى اكتب فيه فى اى خلية من الثلاث خلايا لازم اكمل الخليتين التانين مع شكرى جزيل الشكر بحضرتك

طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله نقوم بتحديد النطاق المطلوب ، ومن التبويب Home نختار Format as Table ونختار أي نمط من أنماط الجدول ستظهر لك نافذة فيها النطاق الذي قمت بتحديده ، وهذه النافذة فائدتها تحويل النطاق لجدول الآن حدد الخلية المطلوب إنشاء قائمة منسدلة فيها ، ثم ننتقل للتبويب Data ثم ننقر Data Validation ثم من الحقل المسمى Allow نختار List ، وفي الحقل المسمى Source سنكتب المعادلة =INDIRECT("Table1[Names]")

جرب هذا الشرح اخى شرح بالمعادلات عمل قائمة مطاطية لاتحتوى على فراغات.xlsx

تم عمل ملف به كود ترحيل اريد تنفيذ ال msgbox عليه بحيث اذا كان هناك خلية فارغة يتوقف الترحيل كما هو موضح مع الشكر New Microsoft Excel Worksheet2.xlsm

ماشاء الله عليك استاذ سليم حفظك الله

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

الاخوة الاساتذة الاحباء هذا الكود لمن يحتاج الالوان بالاكسيل احترامى الالوان.xlsm

الاساتذة الاخوة الافاضل العمالقة احتاج msgbox فيه رسالة اذا كانت خلية a2 فارغة الرجاء ادخال التاريخ واذاكانت الخلية c2 الرجاء ادخال الرقم واذا كانت الخلية f2 فارغة برجاء ادخال الترتيب الخلايا b,d,e مرتبتين ببعض في اى صف يعنى اذا ادخلنا الخلية لb3 ولم ندخل بيانات d3 وe3 تخرج رسالة برجاء ادخال الاسم والمبلغ1 ولو ادخلنا مثلا خلية d4 ولم ندخل b4 وe4 تظهر رسالة برجاء ادخال البيان والمبلغ1 واذا لم نخل بيانات في الخلية b1,d1,e1 تظهر رسالة برجاء ادخال البيان والاسم والمبلغ وذلك لاى صف يعنى الخلايا b3:b50 ,d3:d50,e3:e50 مع خالص الشكر والاحترام New Microsoft Excel Worksheet.xlsx