Ned help About

Tue, 26 Aug 2008 08:11:47 Z

[code]

Sub PagesByDescription()

Dim rRange As Range, rCell As Range

Dim wSheet As Worksheet

Dim wSheetStart As Worksheet

Dim strText As String

Set wSheetStart = ActiveSheet

wSheetStart.AutoFilterMode = False

'Set a range variable to the correct item column

Set rRange = Range("A1", Range("A65536").End(xlUp))

'Delete any sheet called "UniqueList"

'Turn off run time errors & delete alert

On Error Resume Next

Application.DisplayAlerts = False

Worksheets("UniqueList").Delete

'Add a sheet called "UniqueList"

Worksheets.Add().Name = "UniqueList"

'Filter the Set range so only a unique list is created

With Worksheets("UniqueList")

rRange.AdvancedFilter xlFilterCopy, , Worksheets("UniqueList").Range("A1"), True

'Set a range variable to the unique list, less the heading.

Set rRange = .Range("A2", .Range("A65536").End(xlUp))

End With

On Error Resume Next

With wSheetStart

For Each rCell In rRange

strText = rCell

.Range("A1").AutoFilter 1, strText

Worksheets(strText).Delete

'Add a sheet named as content of rCell

Worksheets.Add().Name = strText

'Copy the visible filtered range _

'(default of Copy Method) and leave hidden rows

.UsedRange.Copy Destination:=ActiveSheet.Range("A1")

ActiveSheet.Cells.Columns.AutoFit

Next rCell

End With

With wSheetStart

.AutoFilterMode = False

.Activate

End With

On Error GoTo 0

Application.DisplayAlerts = True

End Sub

[/code]

I ned a code that can group all the same type of words togther in the excel after grouping them up will be able to create new worksheets for the same type of groups words

example :abl 0212,abl 0212, bbl 0201,bbl 0202

abl all togther and bbl all togther

the above code i can made the word of the type create a new worksheets for it but unable to group it all the same type of words togther.

Ned help About

Thu, 28 Aug 2008 02:36:51 Z

so is there an1 can help me wif this problem?