مشكلة تعبئة الكومبو بوكس في فتح الفورم في شيت اخر

[ابواميمة]

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

عند فتح الفورم في شيت آخر غير شيت الداتا يأتيني الكومبو بوكس فارغا مثلا اذا فتحت الفورم في شيت 2 لا  يعمل معي الكومبو بوكس وكذلك في الشيت 3 ولكن اذا فتحت الفورم في شيت 1 يعمل معي فأظن والله اعلم ان المشكلة في الكود

وأريد منكم اخواني الافاضل تعديل الكود ليتسنى لي فتح الفورم في اي شيت من الشيتات ليعمل معي الكومبو بوكس للفلترة 

وجزاكم الله خيرا

فورم التصفية حسب المستويات.xlsm

[ابراهيم الحداد]

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

فى الكود المسمى  Public Sub cargar_cambobox   ... استبدل هذه العبارة

Me.ComboBox1.RowSource = Range("k1:k12").Address

بتلك العبارة

Me.ComboBox1.List = Sheet1.Range("k1:k12").Value

 

[ابواميمة]

جزاك الله خيرا استاذي الفاضل وجعله الله في ميزان حسناتك

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

[ابراهيم الحداد]

السلام عليكم و رحمة الله ..فى كود الفلترة حول هذه الكلمة ActiveSheet  الى Sheet1..و ينتهى الامر باذن الله

 

[ابواميمة]

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

واسف جدا على ازعاجكم مرة اخرى فبارك الله فيكم ..وجزاكم الله خيرا وجعله الله في ميزان حسناتكم اللهم آمين

فورم التصفية حسب المستويات.xlsm

[ابراهيم الحداد]

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

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

فى الماكرو المسمى  FILTERAR_CRITERIO

اجعل هذا السطر

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Range("A" & Z).Value

هكذا

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Sheet1.Range("A" & Z).Value

و كذلك كل الاسطر التالية و المشابهة له

و سيعمل معك الكود بمنتهى الكفاءة

 

[ابواميمة]

جزاكم الله خيرا استاذي و اخي ابراهيم وجعله الله لك في ميزان حسناتك واحسن الله اليك ..والسلام عليكم ورحمة الله وبركاته