can i use autofilter or advanced filter for below query if so how? pls help urgently

[siriraj]

Hi every one
am new to this forum! i started doing some programming in excel vba as part of my project work. Can any one help me with this.

Pls find the attached sheet,
In sheet 2 i have my team efforts for each kind of project who are based here and us also.

in sheet 1, i need to summarize the data based on each category, and automatcially insert new rows depending on no of projects that were worked on under each category..

Ex:Under NB category, two projects were wrked on P111,P121, and no of issues,each resource from india and us efforts, and the total was summarized,

and YTD also need to calcuated..

Can any one help me with this?

If i can use autofilter functionality to copy only few columns from sheet2 to sheet1 leaving fist and last columns . those two are unnecessary data for me in sheet1.
i know to copy whole row or column using autofitler..

can any one pls quickly rspond back?

Does below code helps me to filter uniquely in sheet1 and copy it to sheet2.It does not wrk for me. throws me an error 1004.


Dim rng As Range, rData As Range

Application.ScreenUpdating = False
Set rData = Range("A1", Range("A1").End(xlDown))
rData.AdvancedFilter xlFilterCopy, copytorange:=sheet1.Range("C1"), unique:=True
For Each rng In Range("C2", Range("C2").End(xlDown))
rng.Offset(, 1) = WorksheetFunction.SumIf(rData, rng, rData.Offset(, 1))
Next rng
Range("C:D").Cut Range("A:B")
Application.ScreenUpdating = True

[dominicb]

Good morning siriraj

...and welcome to the forum!!

Unfortunately, your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

DominicB