السلام عليكم
استاذي العزيز البسكري
اعتقد انه يجب تعديل صغير فيى الملف 1
Private Sub CommandButton1_Click()
For i = 2 To 100000
If Cells(i, 1) = TextBox1.Text Then
Cells(i, 1).Select
Exit For
End If
Next i
ActiveCell.Offset(0, 0) = TextBox1.Text
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = TextBox4.Text
End Sub
بدل
Private Sub CommandButton1_Click()
For i = 2 To 100000
If Cells(i, 1) = TextBox1.Text Then
Cells(i, 1).Select
Exit For
End If
Next i
ActiveCell.Offset(0, 1) = TextBox1.Text
ActiveCell.Offset(0, 2) = TextBox2.Text
ActiveCell.Offset(0, 3) = TextBox3.Text
ActiveCell.Offset(0, 4) = TextBox4.Text
End Sub
صح أم خطأ؟
بارك الله بجهودك