VBA to copy filtered data to multiple sheets

[ALAMZEB]

Hi, I want to filter data and than paste data to multiple sheets. this code is working good till filtering but it didnt copy filtered to multiple sheets.

Code Below
filtered criteria in column K
numbers of filters 9

Sub filtered ()
Dim i As Integer
Dim xx As String


For i = 1 to 9
' 1 to 9 is rows in column K..let sayd i wana filteres table on D column
on Error Resume Next
xx = Sheets("claims").Range("K" & i).Value
'claims is sheet name with big dump of data
Range("D1").CurrentRegion.AutoFilter Field:=1, Criterial:=XX
Range :)A1).CUrrentRegion.Cells.SpecialCells (xCellTypeConstants).Copy Destination:Sheets(xx).range("A1")
Next
Err.Clear
Range("A1").CurrentRegion.AutoFilter
End Sub

 

[Hui]

Alamzeb,

Firstly, Welcome to the Chandoo.org Forums

Have a read of:
http://chandoo.org/wp/2012/05/14/vba-move-data-from-one-sheet-to-multiple-sheets/

 

[ALAMZEB]

Alamzeb,

Firstly, Welcome to the Chandoo.org Forums

Have a read of:
http://chandoo.org/wp/2012/05/14/vba-move-data-from-one-sheet-to-multiple-sheets/

thanks Hui

thats forum is great, i do have some errors still with code, but i guess i should ask in that forum