محمد الورفلي1 قام بنشر يوليو 1, 2019 مشاركة قام بنشر يوليو 1, 2019 (معدل) السلام عليكم في الفورم عند اضافة عدد السجلات الي عدد 65536 لم يتم الاستجابة للتعديل من قبل الكود Private Sub CommandButton8_Click() Sheets("data").Select On Error Resume Next Dim i As Integer For i = 5 To 65536 If Val(Me.TextBox22) = Cells(i, 1) Then Cells(i, 2) = Me.TextBox1.Text Cells(i, 4) = Me.TextBox132.Text Cells(i, 3) = Me.TextBox133.Text Cells(i, 5) = Me.TextBox11.Text Cells(i, 6) = Me.ComboBox2.Text Cells(i, 7) = Me.TextBox3.Text Cells(i, 9) = Me.TextBox7.Text End If Next End Sub Book1669.xls تم تعديل يوليو 1, 2019 بواسطه محمد الورفلي1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يوليو 1, 2019 مشاركة قام بنشر يوليو 1, 2019 لأن هذا هو اخر صف في صفحة الإكسيل رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يوليو 1, 2019 الكاتب مشاركة قام بنشر يوليو 1, 2019 (معدل) 6 دقائق مضت, أحمد يوسف said: لأن هذا هو اخر صف في صفحة الإكسيل حتى لوكان قبل هذا الصف بــ 100 صف نفس النتيجة جرب للفائد لك تم تعديل يوليو 1, 2019 بواسطه محمد الورفلي1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Mohamed_Fouad قام بنشر يوليو 1, 2019 أفضل إجابة مشاركة قام بنشر يوليو 1, 2019 (معدل) Private Sub CommandButton8_Click() Sheets("data").Select On Error Resume Next Dim i As Long For i = 5 To 65536 If Val(Me.TextBox22) = Cells(i, 1) Then Cells(i, 2) = Me.TextBox1.Text Cells(i, 4) = Me.TextBox132.Text Cells(i, 3) = Me.TextBox133.Text Cells(i, 5) = Me.TextBox11.Text Cells(i, 6) = Me.ComboBox2.Text Cells(i, 7) = Me.TextBox3.Text Cells(i, 9) = Me.TextBox7.Text End If Next End Sub تم تعديل يوليو 1, 2019 بواسطه Mohamed_Fouad رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يوليو 1, 2019 الكاتب مشاركة قام بنشر يوليو 1, 2019 17 دقائق مضت, Mohamed_Fouad said: Private Sub CommandButton8_Click() Sheets("data").Select On Error Resume Next Dim i As Long For i = 5 To 65536 If Val(Me.TextBox22) = Cells(i, 1) Then Cells(i, 2) = Me.TextBox1.Text Cells(i, 4) = Me.TextBox132.Text Cells(i, 3) = Me.TextBox133.Text Cells(i, 5) = Me.TextBox11.Text Cells(i, 6) = Me.ComboBox2.Text Cells(i, 7) = Me.TextBox3.Text Cells(i, 9) = Me.TextBox7.Text End If Next End Sub شكرا تمام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.