[حل شده] بیشتر از 5 عدد چرا نمیشه وارد کرد

[ak55]

با سلام چراform21t.xlsform21t.xlsبیشتر از 5 عدد نمیشه وارد کرد



Dim id As Integer, i As Integer, j As Integer, flag As Boolean
Sub ClearForm()


For j = 1 To 3
UserForm1.Controls("TextBox" & j).Value = ""
Next j


End Sub
Sub EditAdd()


Dim emptyRow As Long


If UserForm1.TextBox1.Value <> "" Then
flag = False
i = 0
id = UserForm1.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1


Do While Cells(i + 1, 1).Value <> ""


If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 3
Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If


i = i + 1


Loop


If flag = False Then
For j = 1 To 3
Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If


End If


End Sub
Sub GetData()


If IsNumeric(UserForm1.TextBox1.Value) Then
flag = False
i = 0
id = UserForm1.TextBox1.Value


Do While Cells(i + 1, 1).Value <> ""


If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 3
UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
Next j
End If


i = i + 1


Loop


If flag = False Then
For j = 2 To 3
UserForm1.Controls("TextBox" & j).Value = ""
Next j
End If


Else
ClearForm
End If


End Sub