غير كود زر الترحيل بالكود التالي
Private Sub CommandButton1_Click()
If Label5.Caption = "" Then Exit Sub
Label5.Caption = Val(Label5.Caption) - 1
If Val(Label5.Caption) = 0 Then CommandButton2.Enabled = True
With Sheets("Sheet1")
Endrow = .Range("A1").CurrentRegion.Rows.Count
.Cells(Endrow + 1, 1).Value = Endrow
.Cells(Endrow + 1, 2).Value = TextBox1.Value
.Cells(Endrow + 1, 3).Value = TextBox2.Value
.Cells(Endrow + 1, 4).Value = TextBox3.Value
.Cells(Endrow + 1, 5).Value = TextBox4.Value
End With
TextBox1.Value = Clear
TextBox2.Value = Clear
TextBox3.Value = Clear
TextBox4.Value = Clear
End Sub