خطأ في البحث

[ناجي ناجي]

lrw = sheet1.Cells(Rows.Count, 1).End(xlUp).Row
أين الخطأ في هذا الكود اتعبني كثيرا شكرا

 

[محمد هشام.]

جرب وضعه باحدى الطرق التالية 

Sub test1()

Set ws = sheet1
With ws
  lrw = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
End With
'exemple
MsgBox lrw
End Sub
''''''''''''''''''''''
Sub test2()

lrw = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
'exemple
MsgBox lrw
End Sub
''''''''''''''''''''''
Sub test4()

Dim lrw As Long
lrw = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lrw
End Sub

 

 

 

[محي الدين ابو البشر]

عليكم السلام

بالإذن منكم

ببساطة

lrw = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

 

[ناجي ناجي]

شكرا على الاجابات لكنللأسف كلها لم تنجح لا أدري اين الخلل على العموم سانسخ الكود من البداية الى النهاية واترك لكم التصحيح شكرا

Private Sub TextBox4_Change()
If Me.TextBox4.Text = "" Then
Me.ListBox1.Visible = False
Else
Me.ListBox1.Visible = True
Dim lrw
lrw = sheet1.Cells(Rows.Count, 1).End(xlUp).Row

Dim w As Integer
w = 0
For Each c In Range("a5;a" & lrw)
If c Like Me.TextBox4.Text & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(w, 0) = Cells(c.Row, 1).Value
w = w + 1
End If
Next c

End If

End Sub

[ناجي ناجي]

السلام عليكم اليكم الملف المشروع المشكلة في الكود في الأعلى  والملف يظهر خطأ و لا ينفذ شكرا على المساعدة

Classeur1 (Enregistré 11.xlsm

تم تعديل مايو 20, 2023 بواسطه ناجي ناجي

[محمد هشام.]

لم تدكر اخي ماهو معيار البحث

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

لاكن قم بتحميل المرفق التالي هناك طرق افضل يمكنك اختيار ما يناسبك.

Private Sub TextBox1_Change()
If Me.TextBox1.Text = "" Then
Me.ListBox1.Visible = False
For i = 2 To 4
        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("A5: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("A5:A" & lrw).Find(ListBox1.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      TextBox1.Value = Empty
      TextBox2.Value = sh1.Range("A" & f.Row).Value
      TextBox3.Value = sh1.Range("B" & f.Row).Value
      TextBox4.Value = sh1.Range("C" & f.Row).Value
    End If
Me.ListBox1.Visible = False
End Sub

 

Test.xlsm

تم تعديل مايو 20, 2023 بواسطه Mohamed Hicham