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
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
Last edited by kamakshi; Mar 18th, 2012 at 08:03 AM.
Reply With Quote
