ابواميمة قام بنشر سبتمبر 16, 2022 مشاركة قام بنشر سبتمبر 16, 2022 السلام عليكم ورحمة الله وبركاته عند فتح الفورم في شيت آخر غير شيت الداتا يأتيني الكومبو بوكس فارغا مثلا اذا فتحت الفورم في شيت 2 لا يعمل معي الكومبو بوكس وكذلك في الشيت 3 ولكن اذا فتحت الفورم في شيت 1 يعمل معي فأظن والله اعلم ان المشكلة في الكود وأريد منكم اخواني الافاضل تعديل الكود ليتسنى لي فتح الفورم في اي شيت من الشيتات ليعمل معي الكومبو بوكس للفلترة وجزاكم الله خيرا فورم التصفية حسب المستويات.xlsm رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر سبتمبر 16, 2022 مشاركة قام بنشر سبتمبر 16, 2022 السلام عليكم ورحمة الله فى الكود المسمى Public Sub cargar_cambobox ... استبدل هذه العبارة Me.ComboBox1.RowSource = Range("k1:k12").Address بتلك العبارة Me.ComboBox1.List = Sheet1.Range("k1:k12").Value 2 رابط هذا التعليق شارك More sharing options...
ابواميمة قام بنشر سبتمبر 17, 2022 الكاتب مشاركة قام بنشر سبتمبر 17, 2022 جزاك الله خيرا استاذي الفاضل وجعله الله في ميزان حسناتك ولكن استاذي الفاضل هناك مشكلة الفلترة عندما اضغط على زر الفلترة يقوم بالفلترة في الورقة التي يتواجد فيها الفورم وأريد ان يقوم بفلترة الداتا الموجودة في شيت 1 فقط ولو تواجد الفورم في أي شيت وأي مكان وجزاكم الله خيرا على مساعدتكم رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر سبتمبر 17, 2022 مشاركة قام بنشر سبتمبر 17, 2022 السلام عليكم و رحمة الله ..فى كود الفلترة حول هذه الكلمة ActiveSheet الى Sheet1..و ينتهى الامر باذن الله 1 رابط هذا التعليق شارك More sharing options...
ابواميمة قام بنشر سبتمبر 18, 2022 الكاتب مشاركة قام بنشر سبتمبر 18, 2022 جزاكم الله خيرا أخي واستاذي الفاضل على إجابتكم وعلى اتساع صدركم لنا بقي مشكل تعبئة الليست بوكس اثناء الفلترة حيث انه يقوم بفلترة على الصفحة ولا تظهر النتائج على الليست بوكس والذي اريده هو ظهور النتائج على الليست بوكس اثناء الفلترة ليتسنى لي الترحيل الى شيت 2 واسف جدا على ازعاجكم مرة اخرى فبارك الله فيكم ..وجزاكم الله خيرا وجعله الله في ميزان حسناتكم اللهم آمين فورم التصفية حسب المستويات.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر سبتمبر 18, 2022 أفضل إجابة مشاركة قام بنشر سبتمبر 18, 2022 السلام عليكم و رحمة الله اخى الكريم هى نفس المشكلة فى كل الاكواد لابد من تحديد اسم الشيت الذى تستمد منه البيانات فى الماكرو المسمى 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 و كذلك كل الاسطر التالية و المشابهة له و سيعمل معك الكود بمنتهى الكفاءة 2 رابط هذا التعليق شارك More sharing options...
ابواميمة قام بنشر سبتمبر 18, 2022 الكاتب مشاركة قام بنشر سبتمبر 18, 2022 جزاكم الله خيرا استاذي و اخي ابراهيم وجعله الله لك في ميزان حسناتك واحسن الله اليك ..والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها