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

السلام عليكم ورحمة الله وبركاته

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

مساعدة.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 اعمده والمطلوب مدى غير محدد وايضا الصفوف 

السلام عليكم ورحمة الله وبركاته اخواني الكرام احتاج إلى مساعدتكم

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

مع شكري لكم