non duplicate rows

hi
i would like to capter non duplicate rows
here i have to pull everyhting

Code:

---

Sub FrmShow2()
'Application.ScreenUpdating = False
Dim wb As Workbook, wks As Worksheet
    Set wb = ThisWorkbook
    Set wks = wb.Sheets("Sheet2")

 

Dim Mycel As Range
Dim lrow As Long
Dim i As Integer

lrow = wks.Range("C65536").End(xlUp).Row
For i = 1 To lrow
    With UserForm2 '.lstEmp
        If Cells(i, 7).Text = "" Then
      .lstEmp.AddItem Cells(i, 3).Value
         
        End If
    End With
Next i
UserForm2.Show
End Sub

---

try this bit of code to color the non duplicate rows

Code:

---

Dim x              As Long
Dim LastRow        As Long

    LastRow = Range("A65536").End(xlUp).Row
    For x = 1 To LastRow
        If Application.WorksheetFunction.CountIf(Range("A1:A" & LastRow), Range("A" & x)) = 1 _
            And Range("A" & x) <> "" Then
            Range("A" & x).EntireRow.Interior.Color = vbGreen
        End If
    Next

---

seenu
it works great! i need one more thing
i want duplicate records for example if the column b, column c , column d row 1 to row 15 are duplicate
how do i take all the values from column a
for exmaple

column a b c d column e
aaa x b d m
bbb x b d n
ccc x b d m
ddd x b d n
eee x b d n


result would be column e vise
m
aaa
ccc

n
bbb
ddd
eee

i dont get u clearly, anyhow u can find any dups by countif just changing the range, if u dont understand let me know ur requirement bit more clearly.

seenu
thanks in excel somehow the alignment is not proper each word in each column the reusle would be "c' also below a only
the beblow example

Code:

---

GROUP  USERID  USERNAME    DEPT    ENTERTINEMENT
A              AAA  RAJESH        SERVICE    XXX
B              BBB    STELLA        STORE      YYY
C              CCC    MOHAN        SERVICE    XXX
D              EEE    MKS            STORE      YYY
FILTERING DEPT AND ENTERTIMENT
GROUP
XXX:  A
        C
YYY:  B
        D
FILTERING DEPT AND ENTERTIMENT

USERID
XXX:  AAA
        CCC
YYY:  BBB
        DDD

---

i m just confused, if posible attach ur excel file i hav excel 2003 only

here it is
result will be in sheet b. could you able to see the attachment

no file is attached

here it is attached as zip file . Thanks Seenu

Hi, i hav attached the file herewith as zip file, hav a look into that, may be it's not a easy method but hope it solve ur issue.