با درود
کار استاد شمس که درسته و هیچ حرفی من حد اقل هیچ وقت روش نمیارم
منم یه کد مینویسم به این صورت که همه داده ها تونو بیاره از شیت موقت تو بانک و بعدش بگرده اگر تکراری وجود داشت (یعنی هر سه ستون تکراری باشن) رو پاک کنه
کد:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim lastrow As Long
With Sheet1
lastrow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End With
Sheet1.Range("A2:C" & lastrow).Select
Selection.Copy
Sheet2.Select
Dim m
m = Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))
Sheet2.Range("A" & m + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'#####################333
Dim s
s = Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))
Sheet2.Columns("A:C").Select
Sheet2.Range("$A$1:$C$" & s).RemoveDuplicates Columns:=Array(1, 2, 3), _
Header:=xlYes
If Sheet1.Range("A2").Value <> "" Then
Sheet1.Range("A2:C" & lastrow).ClearContents
End If
Sheet1.Select
Application.ScreenUpdating = True
End Sub
اگر فقط سرچ بر اساس کد ملی هست وپس این قسمت اینجوری میشه
کد:
Sheet2.Range("$A$1:$C$" & s).RemoveDuplicates Columns:=Array(1), _
Header:=xlYes
یعنی فقط و کد ملی ها نگاه کنه. اینو واسه یه کلید و شیت موق نوشتم شما تو هر ایونتی میونی بنویسی. در ضمن بعد از اجرا شدن شی موقت اطلاعاتش پاک میشه که واسه دور بعد حجم اطلاعات بیخودی بالا نره
علاقه مندی ها (Bookmarks)