Adding to a macro

[stevelake]

Hi

I have a macro (below) that will

Filter data from "Data Entry" then copy and paste it to sheet "June07"


What l would like to do is add to the macro so that it also copies to sheet "July07", "Aug07" etc

The paste area is the same on all pages

Is it possible?

Thanks in advance

Steve

Sub FilterData()

Sheets("Data Entry").Activate
Rows("5:1000").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Sheets("June07").Range("A7").Value

ActiveSheet.UsedRange.Offset(1, 0).SpecialCells _
(xlCellTypeVisible).EntireRow.Copy Sheets("June07").Range("A36")

ActiveSheet.AutoFilterMode = False
Sheets("Data Entry").Select
Range("A5").Select

Sheets("June07").Select
Range("A36").Select
End Sub

 

[galileogali]

you can put in a cell a validation of the List type that stores:
January, February,…, June, July,….
and
in another one next to that: "07","08","09" (format cell = Text)….
Let us suppose that the cells are: “H1” and “I1”,

then you can include a sentence in your Macro:

.........................................
Dim strMonthYear as string

strMonthYear = [H1] & [I1] 
..........................................

Then it replaces in the Macro “June07” to strMonthYear.

GALILEOGALI

excuse me por my sioux-english