کد:
Private Sub CommandButton2_Click()
Dim A As Range
Dim find As Boolean
find = False
For Each A In Sheets("DARAMAD").Range("B13:B50000")
If A = "" Then
A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
A.Offset(0, 1) = TextBox3.Value
A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
A.Offset(0, 3) = TextBox6.Value
A.Offset(0, 4) = TextBox1.Value
A.Offset(0, 5) = ComboBox4.Value
A.Offset(0, 6) = TextBox4.Value
A.Offset(0, 7) = TextBox5.Value
MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"
UserForm_PROJE.Hide
find = True
Exit Sub
End If
Next A
aaa
End Sub
'---------------------------------------------------
Private Sub aaa()
Dim A As Range
Dim find As Boolean
find = False
For Each A In Sheets("DARAMAD").Range("D13:D50000")
If A = "" Then
A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
A.Offset(0, 1) = TextBox3.Value
A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
A.Offset(0, 3) = TextBox6.Value
A.Offset(0, 4) = TextBox1.Value
A.Offset(0, 5) = ComboBox4.Value
A.Offset(0, 6) = TextBox4.Value
A.Offset(0, 7) = TextBox5.Value
MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"
UserForm_PROJE.Hide
find = True
Exit Sub
End If
Next A
End Sub
علاقه مندی ها (Bookmarks)