ناجي ناجي قام بنشر مايو 19, 2023 قام بنشر مايو 19, 2023 lrw = sheet1.Cells(Rows.Count, 1).End(xlUp).Row أين الخطأ في هذا الكود اتعبني كثيرا شكرا
محمد هشام. قام بنشر مايو 19, 2023 قام بنشر مايو 19, 2023 جرب وضعه باحدى الطرق التالية 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
محي الدين ابو البشر قام بنشر مايو 20, 2023 قام بنشر مايو 20, 2023 عليكم السلام بالإذن منكم ببساطة lrw = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
ناجي ناجي قام بنشر مايو 20, 2023 الكاتب قام بنشر مايو 20, 2023 شكرا على الاجابات لكنللأسف كلها لم تنجح لا أدري اين الخلل على العموم سانسخ الكود من البداية الى النهاية واترك لكم التصحيح شكرا 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
ناجي ناجي قام بنشر مايو 20, 2023 الكاتب قام بنشر مايو 20, 2023 (معدل) السلام عليكم اليكم الملف المشروع المشكلة في الكود في الأعلى والملف يظهر خطأ و لا ينفذ شكرا على المساعدة Classeur1 (Enregistré 11.xlsm تم تعديل مايو 20, 2023 بواسطه ناجي ناجي
محمد هشام. قام بنشر مايو 20, 2023 قام بنشر مايو 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 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.