View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
MCheru MCheru is offline
external usenet poster
 
Posts: 70
Default CopyPasteSortCountMacro

Here is my code.

Columns("I:J").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Range("A1:B100").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

And this is what it does now.

Copy Column I:J
Open a new worksheet
Paste Column I:J into Column A:B of new worksheet.
Sort by/Column A/Ascending


I want to add to the code I have above so that it takes these additional
steps below.

Put a 1 in every cell in Column C if Column A:B have contents inside it.
(What is in Column A is associated with Column B).

Review every row in Column A:B from A1:B1 to A100:B100. When the same
contents appear two, three, or more times in any row in Column A:B, I want
that row to be deleted and the total/tally for the 1st time those contents
appeared in a row in Column A:B to be increased by 1 in Column C. In other
words each time an exact duplicate is found in A:B that row gets deleted and
the total/tally being kept in Column C for the first time those contents
appeared gets increased by 1

The contents are typically 10 characters long and a mixture of numbers and
letters which are sometimes connected by dashes (i.e) CF-88VBXWQ. There is
no pattern to the letters, numbers, or dashes.

Is this possible?