طلب مساعدة في تعبئة التكست بوكس من الليست بوكس

[AMIRBM]

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

أعزائي الكرام أطلب منكم مساعدة في نقل البيانات من الليست بوكس للتكست بوكس وشكرا مسبقا

سؤال مهم فى البحث 33.xlsm

[احمد عبدالحليم]

وعليكم السلام جرب الملف

 

سؤال مهم فى البحث 33.xlsm

[AMIRBM]

بارك الله فيك وجزاك الله خيرا

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

سؤال مهم فى البحث للبرمجة officena 2024.xlsm

[محمد هشام.]

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

تفضل اخي قم بافراغ اليوزرفورم من جميع الاكواد واستبدالها بالاكواد التالية 

Private Sub TextBox1_Change()
If Me.TextBox1.Text = "" Then
Me.ListBox1.Visible = False
For I = 2 To 5
        Controls("textbox" & I).Text = ""
    Next I
Else
Me.ListBox1.Visible = True
Me.ListBox1.Clear
'------------------------------
Dim lrw
Set W = Sheet1
lrw = W.Cells(Rows.Count, 1).End(xlUp).Row
l = 0
For Each c In Range("A3:A" & lrw)
If c Like TextBox1.Text & "*" Then
ListBox1.AddItem
ListBox1.List(l, 0) = Cells(c.Row, 1).Value
l = l + 1
End If
Next c
End If
End Sub
Private Sub ListBox1_Click()
Dim sh1 As Worksheet
Dim f As Range
Set sh1 = Sheet1
lrw = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    Set f = sh1.Range("A3:A" & lrw).Find(ListBox1.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      TextBox1.Value = sh1.Range("A" & f.Row).Value
      TextBox2.Value = sh1.Range("B" & f.Row).Value
      TextBox3.Value = sh1.Range("C" & f.Row).Value
      TextBox4.Value = sh1.Range("d" & f.Row).Value
      TextBox5.Value = sh1.Range("E" & f.Row).Value
    End If
Me.ListBox1.Visible = False
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
  TextBox1.Value = ""
  End If
End Sub

 

سؤال مهم فى البحث للبرمجة officena 2024_2.xlsm

[AMIRBM]

مشكور بارك الله فيك

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

السلام عليكم ورحمة الله شكرا أستاذ 

الكود لا يريد العمل معي في بعض المرات تأتيني رسالة الخطأ المهم

أستاذ من فظلك أستاذ أريد أن يبقى الكود المكتوب في محرر الأكواد

أريد تعبئة تكست بوكس 2 و 3 و 4 فقط

لان الكود يبحث بالجملة والاسم وشكرا

سؤال مهم فى البحث (1) تكسات 2024.xlsm

 

مشكور

[عبدالفتاح في بي اكسيل]

@AMIRBM

لقد نظرت  الى ملفك  ولكن  لا اجد  اي  معنى  من  استخدام  الليست بوكس  واظهار عمود واحد فقط !!

اما  ان  تظهر  كل  الاعمدة بالليست بوكس  ومن تم  عند  اختيار  الصف  من  الليست بوكس  يتم  اظهارها بالتيكست بوكس او حدف  الليست بوكس  واستخدام التيكست بوكس  بدلا من ذلك