محمد صغير شعبان

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء ارجو منكم مساعدتي في عمل كود او تعديل الكود الموجود بالملف المرفق في عمل تعرفة للاستهلاك متغيرة بحيث اذا تم ادخالها في الشيت يستجيب الكود دون اجراء اي تعديل فيه بمعنى يكون التعديل في التعرفة عبر النطاقات المجودة في الشيت وبحسب تدرج الاستهلاك المتغير التصاعدي الموجود بجانب التعرفة وجزاكم الله الف خير مساعدة.xlsm

استطيع التعديل منه والتنسيقات والفلترة بينما اللست بوكس بيكون ثابت

هي اضافة يتم تثبيتها من خارج الاكسل ثم تضيفها الى صندوق الادوات

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

السلام عليكم ورحمة منه وبركاته مجددا وونزولا عند رغبة اخونا كمال علي طارق تم عمل مختصر لبيان ما نحتاجه اظهر بيانات الجدول في التكست بوكسات اعلى الجدول عندما اضغط بالماوس على اي صف فتظهر بياناته في الاعلى جرب.xlsm

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

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

شكرا جزيلا استاذ محمد وبارك الله فيك وجعل الله ذلك في ميزان حسناتك والله يزيد في الرجال من امثالك

اخواني الكرام لدي الكود التالي وهو خاص بالبحث في كل اوراق العمل حاولت اصلاحه ليبحث فقط في صفحات محددة كأن يبحث في الشيت الثالث والرابع والخامس والسادس ويترك البحث في باقي الشيتات ... ارجو المساعدة ... وكتب الله اجوركم الملف كبير جدا ويتكون من اكثر من 30 شيت ونحن لدينا نت ضعيف جدا في اليمن والكود لا يحتاج سوى اسنثناء لبعض الصفحات من البحث شكرا لك Private Sub TextBox19_Change() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox11.Value = "" TextBox12.Value = "" TextBox13.Value = "" TextBox14.Value = "" TextBox15.Value = "" TextBox16.Value = "" TextBox17.Value = "" TextBox18.Value = "" Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 2).End(xlUp).Row For Each C In x.Range("c3:c" & ss) b = InStr(C, TextBox19) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(C.Row, 1).Value ListBox1.List(k, 1) = x.Cells(C.Row, 2).Value ListBox1.List(k, 2) = x.Cells(C.Row, 3).Value ListBox1.List(k, 3) = x.Cells(C.Row, 4).Value ListBox1.List(k, 4) = x.Cells(C.Row, 5).Value ListBox1.List(k, 5) = x.Cells(C.Row, 6).Value ListBox1.List(k, 6) = x.Cells(C.Row, 7).Value ListBox1.List(k, 7) = x.Cells(C.Row, 8).Value ListBox1.List(k, 😎 = x.Cells(C.Row, 9).Value ListBox1.List(k, 9) = x.Cells(C.Row, 10).Value ListBox1.List(k, 10) = x.Cells(C.Row, 11).Value ListBox1.List(k, 11) = x.Cells(C.Row, 12).Value ListBox1.List(k, 12) = x.Cells(C.Row, 13).Value ListBox1.List(k, 13) = x.Cells(C.Row, 14).Value ListBox1.List(k, 14) = x.Cells(C.Row, 15).Value ListBox1.List(k, 15) = x.Cells(C.Row, 16).Value ListBox1.List(k, 16) = x.Cells(C.Row, 17).Value ListBox1.List(k, 17) = x.Cells(C.Row, 18).Value k = k + 1 End If Next C Next x End Sub

شكرا على الاجابة لقد ذكرت اخفاء واظهار الاعمدة ولم تذكر اخفاء واظهار الصفوف وحددت مدى معين 10 اعمده والمطلوب مدى غير محدد وايضا الصفوف

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