samycalls2020 قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 السلام عليكم .. الأخوة الأعزاء .. الرجاء مشاركتى هذا الموضوع .. تعديل لكود.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 وعليكم السلام أخي الكريم سامي لما لا تقوم بوضع التفاصيل في الموضوع نفسه قبل إرفاق الملف .. جرب الكود التالي حسب ما فهمت من ملفك .. حيث يمكن أن يكون كود واحد يشمل الحالة الأولى والثانية أما النقطة الثالثة فلم أفهمها .. أو فهمتها ولكن حسب فهمي أنت محدد خيارات محددة في القائمة المنسدلة .. ماذا تريد بالضبط في النقطة الثالثة ..؟!! Sub Test() Dim o As Object With ActiveSheet Set o = .ListObjects("الجدول1") If .Range("K9") = "" Or .Range("K9") = 0 Then o.AutoFilter.ShowAllData: Exit Sub .ListObjects("الجدول1").Range.AutoFilter Field:=9, Criteria1:=Range("K9") End With End Sub رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر أغسطس 5, 2017 الكاتب مشاركة قام بنشر أغسطس 5, 2017 كل التقدير للأخ الكريم / ياسر .. الذى دائماً ما يكون سباق بالمشاركة والخير للأخرين .. أولاً : لقد قمت بوضع الكود وهو يعمل على الإيقاف فى حالة خلو k9 من اسم الحساب .. هذا تمام التمام وهل لى أن اطلب شئ لهذا الكود يضف مزيد من الأستفادة .. وهو مع الإيقاف يعطى فى k8 جملة ..من فضلك أدخل اسم الحساب . ثانيا : المقصود بالنقطة الثالثة أن يكون حساب ( البنك ) مثلاً بديل افتراضى فى حالة خلو k9 من اسم حساب كل الشكر .. تعديل لكود2.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 في هذه الحالة لابد من تغييير خصائص القائمة المنسدلة لتسمح بأي إدخال وسيقوم الكود بالفلترة بشكل عادي على المدخلات التي سيتم إدخالها في الخلية K9 .. رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر أغسطس 5, 2017 الكاتب مشاركة قام بنشر أغسطس 5, 2017 هذه محاوله 55 دقائق مضت, samycalls2020 said: وهل لى أن اطلب شئ لهذا الكود يضف مزيد من الأستفادة .. وهو مع الإيقاف يعطى فى k8 جملة ..من فضلك أدخل اسم الحساب . تعديل لكود3.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 تفضل الملف قمت بتعديل الخلية التي بها قائمة منسدلة لتسمح لك بإدخال آخر .. ولو وجد النص "من فضلك أدخل اسم الحساب" سيتم إالغاء الفلترة تعديل لكود3.rar رابط هذا التعليق شارك More sharing options...
الأستاذ / محمد الدسوقى قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 رائع ومبدع كالعادة أستاذى الغالى أبو البراء دائما السهل الممتنع الحل بأبسط طرق تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 بارك الله فيك أخي العزيز محمد الدسوقي ومشكور على كلماتك الطيبة رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر أغسطس 5, 2017 الكاتب مشاركة قام بنشر أغسطس 5, 2017 كل الشكر للأخ الكريم ياسر وكل كن شارك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.