تعديل بيانات في فورم

[محمد الورفلي1]

 

السلام عليكم

في الفورم  عند اضافة عدد السجلات الي عدد     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

[أحمد يوسف]

لأن هذا هو اخر صف في صفحة الإكسيل

[محمد الورفلي1]

6 دقائق مضت, أحمد يوسف said:

لأن هذا هو اخر صف في صفحة الإكسيل

 

حتى لوكان قبل هذا الصف بــ  100 صف نفس النتيجة جرب للفائد لك

تم تعديل يوليو 1, 2019 بواسطه محمد الورفلي1

[Mohamed_Fouad]

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

[محمد الورفلي1]

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

 

شكرا تمام