draw borders around deleted duplicate cells

  • Thread starter hayk_yer - ExcelForums.com
  • Start date
H

hayk_yer - ExcelForums.com

Hello everyone
I am using the following code to remove the duplicates from a selecte
column
Sub FixDuplicateRows(
Dim RowNdx As Lon
Dim ColNum As Intege
ColNum = Selection(1).Colum
For RowNdx = Selection(Selection.Cells.Count).Row To
Selection(1).Row + 1 Step -
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Valu
The
Cells(RowNdx, ColNum).Value = "
End I
Next RowNd
End Su

I need to draw a border when the program finishes to remove
duplicate, i.e. suppose I have the following data

Brian Smit
Brian Smit
Brian Smit
John Grea
John Grea
John Grea

I need to have the following outpu
-------------
Brian Smith
Smith
Smith
 
A

Andoni

Sub TryThiss()
Dim X As Long
Dim Y As Long
Dim Z As Long
Dim Cell As Range

'This will give you a pink colour to all dupliocates values
'''For Each Cell In Selection
''' If Application.WorksheetFunction.CountIf(Selection, Cell) >
2 Then
''' Cell.Interior.ColorIndex = 7
''' End If
'''Next Cell


'If the values are within the selected Cells in Column(1)
'First we will sort in ascending order to make easyer the job
With Selection
.Sort _
Key1:=.Cells(1), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
X = .Columns(1).Cells(1).End(xlDown).Row
Y = .Columns(1).Cells(1).Row + 1
On Error Resume Next
For Z = X To Y Step -1
''''.Columns(1).Cells(Z).Select
If .Columns(1).Cells(Z).Value = .Columns(1).Cells(Z - 1).Valu
Then
.Columns(1).Cells(Z).BorderAround ColorIndex:=3
Weight:=xlMedium
End If
Next Z
End Wit
 
H

hayk_yer - ExcelForums.com

Thanks for the replies but none of this codes helped
I think I need to have some variable for the cell width (that I ca
change from the code)
I would really like to use the code that I have specified
Thanks again
Hay
 
H

hayk_yer - ExcelForums.com

Or is there a code to draw border at a specified size, i.e
to have bordered table of 3 cells X 6 cells and have it pasted ove
the selection
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top