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

**majid_mx4** · 2019/05/27, 00:44

با سلام

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

کد:

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** · 2019/05/27, 01:17

نوشته اصلی توسط 12345678910

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

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

سلام،

کد PHP:


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** · 2019/05/27, 01:25

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

- - - Updated - - -

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

**12345678910** · 2019/05/27, 17:10

ساخت فرم جهت تغییر پسورد

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

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