ناجي ناجي

السلام عليكم اليكم الملف المشروع المشكلة في الكود في الأعلى والملف يظهر خطأ و لا ينفذ شكرا على المساعدة Classeur1 (Enregistré 11.xlsm

شكرا على الاجابات لكنللأسف كلها لم تنجح لا أدري اين الخلل على العموم سانسخ الكود من البداية الى النهاية واترك لكم التصحيح شكرا 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

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

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