کد جلوگیری از کپی دیتا تکراری از یک شیت به شیت دیگر

[12345678910]

سلام ضمن تشکر از آموزشای ارزندتون


میخوام توی شیت from هرشخص"ارزیابی کننده"فقط یکبار بتونه هرنفر از "نام پرسنل "رو انتخاب کنه و ورود اطلاعات کنه یعنی به عبارت بهتر ارزیابی کننده a از "نام پرسنل" فقط یکبار بتونه مثلا"امید" رو انتخاب کنه
ممنون میشم راهنماییم کنید.

[majid_mx4]

با سلام

لطفا این دستورات را جایگزین دستورات قبلی کنید.

Sub Copy2LISTME()
Dim cell As Range
lastcell = Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row


For Each cell In Sheet3.Range("a2:a" & lastcell)

If Sheet4.Range("c3").Value = "" Or Sheet4.Range("c5").Value = "" Then
MsgBox "اطلاعات کافي نيست"
Exit Sub

Else
If cell.Value <> 0 And cell.Value <> "" And cell.Value = Sheet4.Range("c3").Value And cell.Offset(0, 1).Value = Sheet4.Range("c5").Value Then
MsgBox "اين نام قبلا توسط این کنترل کننده ثبت گرديده است"


Exit Sub
End If
End If
Next




x = Sheets("Form").Range("L1").Value

Sheets("Form").Range("M1:Q1").Copy

Sheets("List").Cells(x, 1).PasteSpecial xlPasteValues

Range("C3,C5,C7,C9,C11").ClearContents

End Sub





موفق باشید میر

[M_ExceL]

سلام ضمن تشکر از آموزشای ارزندتون


میخوام توی شیت from هرشخص"ارزیابی کننده"فقط یکبار بتونه هرنفر از "نام پرسنل "رو انتخاب کنه و ورود اطلاعات کنه یعنی به عبارت بهتر ارزیابی کننده a از "نام پرسنل" فقط یکبار بتونه مثلا"امید" رو انتخاب کنه
ممنون میشم راهنماییم کنید.
سلام،

Sub Copy2LISTME()
x = Sheets("Form").Range("L1").Value
lr = Sheets("List").Range("a" & Rows.Count).End(3).Row
bdata = True
For i = 1 To lr
If Range("c3") = Sheets("List").Range("a" & i + 2) And Range("c5") = Sheets("List").Range("b" & i + 2) Then
bdata = False
Exit For
End If
Next i
If bdata = True Then
Sheets("Form").Range("M1:P1").Copy
Sheets("List").Cells(x, 1).PasteSpecial xlPasteValues
Range("C5:C11").ClearContents
Else
MsgBox Chr(199) & Chr(216) & Chr(225) _
& Chr(199) & Chr(218) & Chr(199) & Chr(202) _
& Chr(32) & Chr(202) & Chr(152) & Chr(209) & Chr(199) _
& Chr(209) & Chr(237) & Chr(32) & Chr(199) & Chr(211) & Chr(202), vbCritical
End If
End Sub

[12345678910]

واقعا ممنونم از کمک و راهنمایی باارزشتون

- - - Updated - - -

خیلی لطف کردین سپاسگذارم

[12345678910]

استاد ممنونم ازکمکتون مشکلم کامل حل شد

اگر اجازه بدین ازحضورتون بیشتر بهره ببرم ویه سوال دیگه هم بپرسم
یه فایل دارم که توی این فایل به چندتا کاربر اجازه داده شده که دسترسی شیت خاصی رو به واسطه ی فرم یوزر و پسورد داشته باشن ،حالا میخوام هرکاربر بعداز وارد شدن به شیت مختص به خودش یه فرم نمایش داده بشه که بتونن پسورد خودشونو تغییر بدن ممنون میشم راهنماییم کنید