با استفاده از قابلیت رویدادها در صورت ورود یک اسم ، با لیست موجود چک شده و اگر در لیست وجود نداشته باشد اسم جدید ذخیره میگردد
کد PHP:
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("f312")) Is Nothing Then
z2 = Sheets("list").Cells(Sheets("list").Rows.Count, "A").End(xlUp).Row
t = 0
For i = 1 To z2
If Sheets("chek").Range("f312") = Sheets("list").Range("a" & i) Then
t = 1
End If
Next
If t = 0 Then
Sheets("list").Range("a" & z2 + 1) = Sheets("chek").Range("f312")
End If
End If
End Sub
علاقه مندی ها (Bookmarks)