Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie: Angelina20 din Cluj
| Femeie 22 ani Cluj cauta Barbat 24 - 55 ani |
|
TonyTzu
Moderator
Inregistrat: acum 12 ani
Postari: 252
|
|
Found part of the code at Source website, and I adapted it to apply to selection instead of predefined column.
Sub DupesHighlightInColumn() Dim LastRow As Long Dim c, cell As Range Dim myCol As Integer Application.ScreenUpdating = False With ActiveSheet
Set c = Selection myCol = c.Columns.Column LastRow = .Cells(Rows.Count, myCol).End(xlUp).Row
For Each cell In c If WorksheetFunction.CountIf(c, cell.Value) > 1 Then cell.Interior.ColorIndex = 6 Else: cell.Interior.ColorIndex = 0 End If If cell.Rows.Row = LastRow Then Exit For Next
End With Application.ScreenUpdating = True
End Sub |
Source:
|
|
pus acum 6 ani |
|