Hi,

I am after a macro which filters by a particular name eg. Tyson in Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin click
the button the sheets are filtered for Tyson. If they click another button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet names and
number of sheets will vary.

Thanks,

Manir

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson *in Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin click
the button the sheets are filtered for Tyson. If they click another button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet names and
number of sheets will vary.

Thanks,

Manir

Should get you going.

Sub eachsht()
For i = 2 To Worksheets.Count
With Sheets(Sheets(i).Name)
MsgBox .Range("a1")
End With
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi,

I am after a macro which filters by a particular name eg. Tyson in Column
B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin
click
the button the sheets are filtered for Tyson. If they click another button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet names
and
number of sheets will vary.

Thanks,

Manir

Thanks JF ... just what I was after

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin click
the button the sheets are filtered for Tyson. If they click another button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet names and
number of sheets will vary.

Thanks,

Manir

Thanks Don ... I think I can use your code as well

"Don Guillett" wrote:

Should get you going.

Sub eachsht()
For i = 2 To Worksheets.Count
With Sheets(Sheets(i).Name)
MsgBox .Range("a1")
End With
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi,

I am after a macro which filters by a particular name eg. Tyson in Column
B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin
click
the button the sheets are filtered for Tyson. If they click another button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet names
and
number of sheets will vary.

Thanks,

Manir

Hi JF ,

How would I exclude the first worksheet. This is going to be a summary sheet
with macro button which the user will click to filter.

Thanks

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin click
the button the sheets are filtered for Tyson. If they click another button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet names and
number of sheets will vary.

Thanks,

Manir

if ws.name <"Summary" then

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi JF ,

How would I exclude the first worksheet. This is going to be a summary
sheet
with macro button which the user will click to filter.

Thanks

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in
Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin
click
the button the sheets are filtered for Tyson. If they click another
button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet
names and
number of sheets will vary.

Thanks,

Manir

hi,

this is my final code but i get an error...run time error 91 ??

Sub Filter_All_Booth()
Dim WS As Object
If WS.Name < "Summary" Then

For Each WS In Worksheets
WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
Next WS

End If

End Sub

thx


"Don Guillett" wrote:

if ws.name <"Summary" then

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi JF ,

How would I exclude the first worksheet. This is going to be a summary
sheet
with macro button which the user will click to filter.

Thanks

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in
Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the admin
click
the button the sheets are filtered for Tyson. If they click another
button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet
names and
number of sheets will vary.

Thanks,

Manir

Sub Filter_All_Booth()
Dim WS As Object

For Each WS In Worksheets
If WS.Name < "Summary" Then

WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
end if
Next WS
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
hi,

this is my final code but i get an error...run time error 91 ??

Sub Filter_All_Booth()
Dim WS As Object
If WS.Name < "Summary" Then

For Each WS In Worksheets
WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
Next WS

End If

End Sub

thx


"Don Guillett" wrote:

if ws.name <"Summary" then

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi JF ,

How would I exclude the first worksheet. This is going to be a summary
sheet
with macro button which the user will click to filter.

Thanks

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in
Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the
admin
click
the button the sheets are filtered for Tyson. If they click another
button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet
names and
number of sheets will vary.

Thanks,

Manir

Many Thanks ...its been an education.

"Don Guillett" wrote:

Sub Filter_All_Booth()
Dim WS As Object

For Each WS In Worksheets
If WS.Name < "Summary" Then

WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
end if
Next WS
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
hi,

this is my final code but i get an error...run time error 91 ??

Sub Filter_All_Booth()
Dim WS As Object
If WS.Name < "Summary" Then

For Each WS In Worksheets
WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
Next WS

End If

End Sub

thx


"Don Guillett" wrote:

if ws.name <"Summary" then

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi JF ,

How would I exclude the first worksheet. This is going to be a summary
sheet
with macro button which the user will click to filter.

Thanks

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in
Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the
admin
click
the button the sheets are filtered for Tyson. If they click another
button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet
names and
number of sheets will vary.

Thanks,

Manir