كود بحث في صفحتين لا يعمل

طارق نادر · أبريل 23, 2017

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

الرقم السري للملف tareq972708

Private Sub CommandButton1_Click()
On Error Resume Next

Dim i As Integer, LastR As Long, ws, ws1 As Worksheet
Set ws = ThisWorkbook.Sheets("البيانات")
Set ws1 = ThisWorkbook.Sheets("المدراء")

LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1

For i = 2 To 15
UserForm1.ComboBox1.Clear
For T = 2 To LastRow


If OptionButton1.Value = True Then
        
    If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then


        UserForm1.ComboBox1.AddItem ws1.Cells(S, 3)
        UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
    End If
Else
If OptionButton2.Value = True Then
        If TextBox1.Text = Mid(ws.Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws.Cells(T, 3)
        UserForm1.Controls("TextBox" & i).Value = ws.Cells(T, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
        End If
End If
End If
Next
Next
UserForm1.ComboBox1.ListIndex = 0

If UserForm1.TextBox2.Text = "" Then MsgBox "åÐÇ ÇáãæÙÝ ÛíÑ ãæÌæÏ", vbInformation + vbMsgBoxRight, "äÊíÌÉ ÇáÈÍË"
UserForm1.CommandButton3.Enabled = False
End Sub

2017صيفية برمجية استعلام.rar

تم تعديل أبريل 23, 2017 بواسطه n_tareq

طارق نادر · أبريل 23, 2017

للرفع

**سليم حاصبيا** · أبريل 23, 2017

لم افهم ماذا يعني حرف S في السطر التالي

 If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text))

اذا كنت تقصد الخلية S3 الخلية S3 فهي فارغة بالصفحتين

اوضح اكثر ماذا تريد بالضبط حتى تلقى المساعدة

هل تريد البحث عن اسم معين واظهار بياناته ام رقم معين واظهار بياناته

اكسل يستطيع ذلك دون وجود اليوزر فورم الاول ولا الثاني

تم تعديل أبريل 23, 2017 بواسطه سليم حاصبيا

طارق نادر · أبريل 23, 2017

اخي الكريم اريد البحث اما بواسطة الاسم او الرقم الوزاري كما هو في الفورم

وبالنسبة لاستفسارك عن s3 هذا تعديل من قبل الاستاذ الفاضل حمادة عمر وسارفق شرحه كما هو (

وبالتالي ستقوم بعمل حلقة تكرارية .. لكل منهما .. لتكن مثلا S مثل T ولكن مع LastRow1 ..

ثم يظل الجزء الاول في الكود والخاص بتفعيل عمل المطلوب في حالة اختيار OptionButton1 كما هو بدون تعديل

ثم يتم تغيير الجزء الخاص بتفعيل عمل المطلوب من الكود في حالة اختيار OptionButton2 كالتالي

If OptionButton2.Value = True Then
        If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws1.Cells(S, 3)
        UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
        End If

**سليم حاصبيا** · أبريل 23, 2017

4 دقائق مضت, n_tareq said:

اخي الكريم اريد البحث اما بواسطة الاسم او الرقم الوزاري كما هو في الفورم

لم تجب على السؤال حول حرف S في الكود(ذلك مهم جداً لمعرفة ما تريد)

طارق نادر · أبريل 23, 2017

اخي الكريم حرف s من تعديل الاستاذ حماده عمر ولا اعلم بالضبط تفسيره كتبته كما قال لي ارجو ان يتسع صدرك لي وشكرا

اظن انها حلقة تكرارية كما فهمت

اخي الفاضل سليم حاصبيا سارفق لك تعديل الاستاذ حمادة عمر لكي تتوضح لك معلومة والاجابة عن استفسارك حول حرف s

السلام عليكم

الاخ الكريم /n_tareq

بارك الله فيك

بعد اذن اخي الحبيب / سليم حاصبيا .. جزاه الله خيرا

انت قمت فعلا بتنفيذ ما اخبرك به من تعديل اسماء الشيتات ولكنك تجاهلت اسم هذه الشيتات في باقي الكود

وبذلك تصبح التعديلات في الكود كما يلي :

** بدلا من السطر التالي للمتغيرات ..

Dim i As Integer, LastR As Long, ws As Worksheet

سنضيف به المتغير الآخر وهو الورقة الثانية او الشيت الثاني كما هو في السطر التالي

Dim i As Integer, LastR As Long, ws, ws1 As Worksheet

** السطرين التاليين

Set ws = ThisWorkbook.Sheets("البيانات")
Set ws = ThisWorkbook.Sheets("المدراء")

سيتم تغييرهم تبعا للمتغيرات التي قمت بوضعهم في الجزئية السابقة كما يلي :

Set ws = ThisWorkbook.Sheets("البيانات")
Set ws1 = ThisWorkbook.Sheets("المدراء")

** ثم جزئية آخر صف .. سيتم تغيير او اضافة للصف التالي

LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1

كما هو يلي

LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1

وبالتالي ستقوم بعمل حلقة تكرارية .. لكل منهما .. لتكن مثلا S مثل T ولكن مع LastRow1 ..

ثم يظل الجزء الاول في الكود والخاص بتفعيل عمل المطلوب في حالة اختيار OptionButton1 كما هو بدون تعديل

ثم يتم تغيير الجزء الخاص بتفعيل عمل المطلوب من الكود في حالة اختيار OptionButton2 كالتالي

If OptionButton2.Value = True Then
        If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws1.Cells(S, 3)
        UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
        End If

**ابراهيم الحداد** · أبريل 23, 2017

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

محاولة لا اضمن لها النجاح

لأن العمل بدون الملف هو مضيعة للوقت

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

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer, LastR As Long, ws, ws1 As Worksheet
Set ws = ThisWorkbook.Sheets("البيانات")
Set ws1 = ThisWorkbook.Sheets("المدراء")
LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1
For i = 2 To 15
UserForm1.ComboBox1.Clear
For T = 2 To LastRow
For S = 2 To LastRow1
If OptionButton1.Value = True Then
    If TextBox1.Text = Mid(ws1.Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws1.Cells(T, 3)
        UserForm1.Controls("TextBox" & i).Value = ws1.Cells(T, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
    End If
Else
If OptionButton2.Value = True Then
        If TextBox1.Text = Mid(ws.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws.Cells(S, 3)
        UserForm1.Controls("TextBox" & i).Value = ws.Cells(S, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
        End If
End If
End If
Next
Next
Next
UserForm1.ComboBox1.ListIndex = 0
If UserForm1.TextBox2.Text = "" Then MsgBox "??C C???U? U?? ????I", vbInformation + vbMsgBoxRight, "?E??E C?E?E"
UserForm1.CommandButton3.Enabled = False
End Sub

تم تعديل أبريل 23, 2017 بواسطه زيزو العجوز

**حمادة عمر** · أبريل 23, 2017

شاهد المرفق اخي الكريم

ولكن شاهد الطريقة فقط حيث يحتاج الكود الجديد لبعض التعديلات السهلة البسيطة للحصول علي النتائج السليمة 100%

ولكنه اسرع من الكود خاصتك .. وان شاء الله ان كان يفي بغرضك نكمل ..

تقبل خالص تحياتي

20171صيفية برمجية استعلام.rar

طارق نادر · أبريل 24, 2017

اشكر تعاونك اخي حمادة عمر واشكر ايضا تعاون اخي زيزو العجوز وكل من ساهم ولكن اخي الكريم اكمل عملك الكريم في الكود لكي اعرف نتائجه لان الكود لا يعطيني نتائج بحث

طارق نادر · أبريل 24, 2017

للرفع

طارق نادر · أبريل 24, 2017

في ٢٣‏/٤‏/٢٠١٧ at 15:02, زيزو العجوز said:

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

محاولة لا اضمن لها النجاح

لأن العمل بدون الملف هو مضيعة للوقت

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

ارفق لك الملف اخي الكريم


Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer, LastR As Long, ws, ws1 As Worksheet
Set ws = ThisWorkbook.Sheets("البيانات")
Set ws1 = ThisWorkbook.Sheets("المدراء")
LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1
For i = 2 To 15
UserForm1.ComboBox1.Clear
For T = 2 To LastRow
For S = 2 To LastRow1
If OptionButton1.Value = True Then
    If TextBox1.Text = Mid(ws1.Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws1.Cells(T, 3)
        UserForm1.Controls("TextBox" & i).Value = ws1.Cells(T, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
    End If
Else
If OptionButton2.Value = True Then
        If TextBox1.Text = Mid(ws.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then
        UserForm1.ComboBox1.AddItem ws.Cells(S, 3)
        UserForm1.Controls("TextBox" & i).Value = ws.Cells(S, i).Value
        UserForm1.CommandButton4.Enabled = True
        Unload Me
        End If
End If
End If
Next
Next
Next
UserForm1.ComboBox1.ListIndex = 0
If UserForm1.TextBox2.Text = "" Then MsgBox "??C C???U? U?? ????I", vbInformation + vbMsgBoxRight, "?E??E C?E?E"
UserForm1.CommandButton3.Enabled = False
End Sub

2017صيفية برمجية 2استعلام.rar

طارق نادر · أبريل 24, 2017

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

**ابراهيم الحداد** · أبريل 24, 2017

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

اليك المرفق ربما يكون هذا هو الحل

2017صيفية برمجية 2استعلام.rar

طارق نادر · أبريل 24, 2017

هناك مشكلة في فتح الملف اخي الكريم

طارق نادر · أبريل 24, 2017

تم المطلوب بكل احترافية شاكر لك كل الشكر ولكل من ساهم في موضوعي جزاكم الله عني كل خير

طارق نادر · أبريل 24, 2017

اخي زيزو العجوز بعد تعديلك الكريم فقد اكتشفت ان هذا الامر الذي ينفذ نعديل البيانات لا يعمل سارفق لك الكود

Private Sub CommandButton4_Click()
Dim ws As Worksheet, LastRow As Long
Set ws = ThisWorkbook.Sheets("ÇáÈíÇäÇÊ")

LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
    
If Me.ComboBox1.Text <> "" Then
  For T = 2 To LastRow
    If Me.ComboBox1.Text = ws.Cells(T, 3) Then
    ws.Cells(T, 2).Resize(1, 14).Interior.Color = vbCyan

      For i = 2 To 17
       ws.Cells(T, i).Value = Me.Controls("TextBox" & i).Value
      Next
      MsgBox "Êã ÊÚÏíá ÈíÇäÇÊ ÇáãæÙÝ ÈäÌÇÍ", vbOKOnly + vbInformation, "Êã ÇáÊÚÏíá"
      GoTo 1
    End If
  Next
End If
1
For i = 2 To 17
 Me.Controls("TextBox" & i).Value = ""
 Next
CommandButton3.Enabled = False
CommandButton4.Enabled = False

Me.ComboBox1.Clear
TextBox2.SetFocus
End Sub

تم تعديل أبريل 24, 2017 بواسطه n_tareq

طارق نادر · أبريل 24, 2017

للرفع....

طارق نادر · أبريل 24, 2017

للرفع....

تسجيل الدخول

كود بحث في صفحتين لا يعمل

الردود الموصى بها

طارق نادر

طارق نادر

سليم حاصبيا

طارق نادر

سليم حاصبيا

طارق نادر

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

حمادة عمر

طارق نادر

طارق نادر

طارق نادر

طارق نادر

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

طارق نادر

طارق نادر

طارق نادر

طارق نادر

طارق نادر

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information