السلام عليكم
 
	استاذي العزيز البسكري
 
	اعتقد انه يجب تعديل صغير فيى الملف 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
	
	
		 
	
	
		 
	
	
		صح أم خطأ؟
	
	
		بارك الله بجهودك