Count ID numbers - Cut & Paste any greater than a certain number

[WCE_123]

Hi,

Colum A will have ID numbers.

ID 1
ID 1
ID 2
ID 2
ID 2
ID 3
ID 4
ID 4
ID 4
ID 4
ID 5

Any rows with 3 or more of the same ID number will be cut and pasted to the top of the sheet (ID 2 & 4 will be at the top of the sheet when macro finished)

Cheers

[wenqq3]

Please Login or Register  to view this content.

I think you are asking question. Try this.

[WCE_123]

Hi,

Thank you for looking at this - this does do the job, would it be possible to select along the row, so information along that row would move as well.

I'm not sure if I have explained that.

ID 1 red a
ID 1 red a
ID 2 blue c
ID 2 blue c
ID 2 blue c
ID 3 pink v
ID 4 green b
ID 4 green b
ID 4 green b
ID 4 green b
ID 5 orange n

Thank you agin,

Cheers

WCE

[wenqq3]

Range("A" & rowB & ":A" & rowA - 1 & "").Select
Change it to where you wish copy