طارق نادر

للرفع ...

للرفع رفع الله مقامكم.....

تفضل اخي الكريم الاسم الي بالون الاخضر غيره حسب الاسم الذي تريد حفظ الملف به... ActiveWorkbook.SaveAs Filename:="C:\Users\tareq\Documents\Book1.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

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

نعم اخي الكريم UserForm2

تفضل اخي الكريم.... الشهيدة نهال العقيد.xlsm

للرفع

اخي الكريم.. تأكد من اللغة في control panal ان تكون اللغة العربية (السعودية) لان الملف شغال عندي تمام...

السلام عليكم اريد تعديل على زر البحث في الفورم بحيث يسترجع البيانات التابعة (ComboBox) الموضحة باللون الاصفر من صفحة اسمها (مخزن) وشكرا الرقم اسري tareq972708 Private Sub CommandButton1_Click() Dim Arr As Variant Dim i As Integer, j As Long, LastR As Long Arr = Array("ÇáÈíÇäÇÊ", "ãÎÒä") For j = LBound(Arr) To UBound(Arr) LastRow = Sheets(Arr(j)).Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = 2 To 11 UserForm1.ComboBox1.Clear For T = 2 To LastRow If OptionButton1.Value = True Then If TextBox1.Text = Mid(Sheets(Arr(j)).Cells(T, 2).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem Sheets(Arr(j)).Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = Sheets(Arr(j)).Cells(T, i).Value UserForm1.CommandButton5.Enabled = True Unload Me End If Else If OptionButton2.Value = True Then If TextBox1.Text = Mid(Sheets(Arr(j)).Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem Sheets(Arr(j)).Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = Sheets(Arr(j)).Cells(T, i).Value UserForm1.CommandButton4.Enabled = True UserForm1.CommandButton5.Enabled = True Unload Me End If End If End If Next Next 'UserForm1.ComboBox1.ListIndex = 0 Next If UserForm1.TextBox2.Text = "" Then MsgBox "åÐÇ ÇáØÇáÈ ÛíÑ ãæÌæÏ", vbInformation + vbMsgBoxRight, "äÊíÌÉ ÇáÈÍË" UserForm1.CommandButton3.Enabled = False End Sub رصد العقوبات طلاب الثانوية العامة.rar

للرفع....

وعليك السلام ارفق الملف اخي الكريم

وعليك السلام اخي الكريم ارفق الملف ليسنى مساعدتك ...

وعليك السلام اخي الكريم.. اخي الكريم يجب عليك ادارج ملف فيه ترتيب البيانات التي تريد لكي يتسنى من الاعضاء الكرام مساعدتك..

تفضل اخي الكريم.. من خبرات اخواني الاعضاء لعله يفي بالغرض.. طلب صرف (1).xlsm

للرفع....

بمعنى اخر البيانات المترتبطة بــ ComboBox لا تظهر عى الفورم عند عملية البحث في صفحة اسمها (مخزن) المتعلقة بعمود (H,I,K) في نفس الصفحة.. وشكرا على سعة صدركم...

للرفع..

السلام عليكم اريد تعديل على زر البحث في الفورم الذي يسترجع البيانات التابعة لل (TextBox) باستثناء بيانات (ComboBox) المسترجعة من صفحة اسمها (مخزن) وشكرا الرقم اسري tareq972708 رصد العقوبات طلاب الثانوية العامة.rar

للرفع..

؟!

؟!

؟!

للرفع...

للرفع...

للرفع...