محمد مصطفى ابو حمزة قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 هل يمكن تحقق من الصحة مصدره قائمة بها اكثر من عمود مدى متسع رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر فبراير 28, 2012 الكاتب مشاركة قام بنشر فبراير 28, 2012 للرفع رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 السلام عليكم أخي محمد السؤال غير واضح ممكن مثال وتعمل فيه ماتريد يدويا رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر فبراير 28, 2012 الكاتب مشاركة قام بنشر فبراير 28, 2012 مرفق مثال اخى وشكرا على ردك Book2.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 السلام عليكم اليك قائمة منسدلة بالكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim CL As Range If Not Intersect(Target, [K4]) Is Nothing Then For Each CL In [A2:A300,B2:B300,C2:C300,D2:D300,E2:E300,F2:F300,G2:G300,H2:H300] If CL <> Empty Then MyArr = MyArr & Trim(CL.Value) & "," Next With Range("K4").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=MyArr End With End If End Sub شاهد المرفق Book2.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 السلام عليكم عندما فتحت الملف وطبقت القائمة ظهر خطأ في الجزء .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=MyArr رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 بعد إذن الأستاذ / عبد الله المجرب تفضل أخى قائمة منسدلة تعتمد على جميع الأعمدة المطلوبة وبمدى متسع قائمة منسدلة تعتمد على عدة أعمدة ومرنة.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر فبراير 29, 2012 مشاركة قام بنشر فبراير 29, 2012 السلام عليكم الاخ الفاضل رجب بالامكان إختصار الماكرو لديك بهذا الكود Sub ragab() E = 4 For C = 1 To 8 For R = 2 To Cells(Rows.Count, C).End(xlUp).Row If Cells(R, C).Value <> Empty Then Cells(E, 13) = Cells(R, C) E = E + 1 End If Next Next End Sub رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر فبراير 29, 2012 الكاتب مشاركة قام بنشر فبراير 29, 2012 شكرا شكرا شكرا اخوتى الاعزاء والله انا عاجز عن الشكر وجزاكم الله خيرا جميعا حلول رائعة بالفعل رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر فبراير 29, 2012 الكاتب مشاركة قام بنشر فبراير 29, 2012 والله العظيم ادعى لكم فى كل وقت على هذا العطاء والاإيثار اخوتى طارق وعبد الله والعيدروس وطاهر ورجب بالفعل انا احسد نفسى ان رد على كل هؤلاء وبارك الله لكم فى علمك ونفع بكم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 29, 2012 مشاركة قام بنشر فبراير 29, 2012 (معدل) الأخ الفاضل / العيدروس ( أبو نصار ) بسم الله ما شاء الله كود رائع جدا جدا يدل على إبداع وتميز بارك الله فيك وزادك من علمه تم تعديل فبراير 29, 2012 بواسطه ragab100100 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 29, 2012 مشاركة قام بنشر فبراير 29, 2012 (معدل) الأخ الفاضل محمد مصطفى.2011 شكرا لك وجزاك الله خيرا تم تعديل فبراير 29, 2012 بواسطه ragab100100 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 29, 2012 مشاركة قام بنشر فبراير 29, 2012 السلام عليكم أساتذتي لم أفهم الكود الرجاء شرح الكود في المشاركة رقم 08 وجزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 29, 2012 مشاركة قام بنشر فبراير 29, 2012 السلام عليكم . اخي طاهر الكود الخاص بالاخ ابو نصار (المشاركة 8) هو اختصار للكود الذي في مرفق الاخ رجب (المشاركة 7) رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 1, 2012 مشاركة قام بنشر مارس 1, 2012 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان