Hi Habana
This code assumes:
1. your 0, 50 and 100 row headings are in Column "A" and A1 IS a heading.
2. The data you want Transposed is in Column "B" and B1 IS a heading.
3. Columns "C" and "D" are empty
Code:
Sub AutoTranspose()
Dim MyData As Range, i As Integer
Set MyData = Range("B2", Range("B65536").End(xlUp))
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
xlFilterCopy, , Range("C1"), True
MyData.Cells(1, 1).AutoFilter
For i = 2 To WorksheetFunction.CountA(Columns(3))
MyData.AutoFilter Field:=1, Criteria1:=Cells(i, 3)
MyData.SpecialCells(xlCellTypeVisible).Copy
Cells(i, 4).PasteSpecial Transpose:=True
Application.CutCopyMode = False
Next i
ActiveSheet.ShowAllData
End Sub
_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training

[ This Message was edited by: Dave Hawley on 2002-04-08 02:41 ]
Like this thread? Share it with others