البحث في كل الشيتات

[2saad]

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

في الملف المرفق

مكون من 4 اوراق عمل ( كي جي1 - كي جي2 - 1 - 2 )

في الورقة الأولي ( كي جي1 ) يوجد فورم ادخال بيانات

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

يعني لو ممكن نعمل كومبو بوكس ( ComboBox ) داخل الفورم يحوي جميع اوراق العمل الاربعة ونختار منه

ارجو المساعدةمحمد 4.xlsm

[محمد هشام.]

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

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

Private Sub UserForm_Initialize()
Dim A, B, C, D
Set WSData = ActiveSheet
   rngData = ActiveSheet.ListObjects(1).Name
    A = [Tableau1]: B = [Tableau2]: C = [Tableau3]: D = [Tableau4]
   Colonnes = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
   Tbl = Range(rngData).Value
   Rng = UBound(Tbl, 2)
   Me.ListBox2.List = Tbl
   Me.ListBox2.ColumnCount = Rng
   ListBox2.ColumnWidths = "50;65;180;80;75;75;65;80;60;35;40"
   Transférer
   Me.ListBox1.Visible = False
   Me.Show_file.Caption = "إظهار ملف العمل"
   NbLigne = [Tableau1].Rows.Count + [Tableau2].Rows.Count + [Tableau3].Rows.Count + [Tableau4].Rows.Count
If Me.ComboBox1.Value = Empty Then Counter.Caption = "المجموع" & " / " & NbLigne Else Counter.Caption = Me.ComboBox1.Text & " / " & ListBox2.ListCount + 0
End Sub

 

 

تم تعديل سبتمبر 29, 2023 بواسطه محمد هشام.

[2saad]

شكرا جزيلا استاذنا الفاضل وبارك الله فيك

معلش أنا مش عارف اطبق الكود علي الملف المرفق

[محمد هشام.]

تفضل اخي سعد

 

محمد_2.xlsm

 

 

تم تعديل سبتمبر 29, 2023 بواسطه محمد هشام.

[2saad]

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