jason > 06-01-17, 01:59 PM
Private Sub Worksheet_Activate()
Call FindDuplicate
End Sub
Sub FindDuplicate()
Dim ws As Worksheet
Dim cell As Range
Dim myrng As Range
Dim clr As Long
Dim lastcell As Range
Dim i As Long
Dim lastrow As Long
Set ws = ThisWorkbook.ActiveSheet
Set myrng = ws.Range("i2:i" & Range("i" & ws.Rows.Count).End(xlUp).Row)
With myrng
Set lastcell = .Cells(.Cells.Count)
End With
myrng.Interior.ColorIndex = xlNone
clr = 3
For Each cell In myrng
If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then
If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then
cell.EntireRow.Interior.ColorIndex = clr
clr = clr + 1
i = i + 1
Else
cell.EntireRow.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).EntireRow.Interior.ColorIndex
End If
End If
Next
If i > 0 Then
MsgBox "Found " & i & " STYLE NO had duplicate. Please check again !", vbCritical
Else
Exit Sub
End If
End Sub
haonlh > 30-01-17, 12:24 AM
(06-01-17, 01:59 PM)jason Đã viết: cho mình hỏi code trên mình viết trong sheet1, mình muốn viết trên modules sau đó gọi chạy code trên trong ThisWorkbook thì áp dụng thế nào ?
mình thử hoài mà không được.
mục đích : tính viết code trên cho file AddIn sau đó sẽ được gọi vào file đang làm nếu click vào sheet1 thì code sẽ thực thi