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 <manfar...@discussions.microsoft.com>
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
(E-Mail Removed)
"manfareed" <(E-Mail Removed)> wrote in message
news:77BD1AEA-06A4-4E9E-AD17-(E-Mail Removed)...
> 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

"(E-Mail Removed)" 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 <manfar...@discussions.microsoft.com>
> 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
> (E-Mail Removed)
> "manfareed" <(E-Mail Removed)> wrote in message
> news:77BD1AEA-06A4-4E9E-AD17-(E-Mail Removed)...
> > 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

"(E-Mail Removed)" 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 <manfar...@discussions.microsoft.com>
> 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
(E-Mail Removed)
"manfareed" <(E-Mail Removed)> wrote in message
news:7F5B521C-3EB5-4BF1-88F3-(E-Mail Removed)...
> 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
>
> "(E-Mail Removed)" 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 <manfar...@discussions.microsoft.com>
>> 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("A250").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
> (E-Mail Removed)
> "manfareed" <(E-Mail Removed)> wrote in message
> news:7F5B521C-3EB5-4BF1-88F3-(E-Mail Removed)...
> > 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
> >
> > "(E-Mail Removed)" 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 <manfar...@discussions.microsoft.com>
> >> 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("A250").AutoFilter Field:=2, Criteria1:="Booth"
end if
Next WS
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"manfareed" <(E-Mail Removed)> wrote in message
news:1A0CFC18-A31E-4D03-8CC2-(E-Mail Removed)...
> 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("A250").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
>> (E-Mail Removed)
>> "manfareed" <(E-Mail Removed)> wrote in message
>> news:7F5B521C-3EB5-4BF1-88F3-(E-Mail Removed)...
>> > 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
>> >
>> > "(E-Mail Removed)" 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 <manfar...@discussions.microsoft.com>
>> >> 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("A250").AutoFilter Field:=2, Criteria1:="Booth"
> end if
> Next WS
> End Sub
>
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "manfareed" <(E-Mail Removed)> wrote in message
> news:1A0CFC18-A31E-4D03-8CC2-(E-Mail Removed)...
> > 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("A250").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
> >> (E-Mail Removed)
> >> "manfareed" <(E-Mail Removed)> wrote in message
> >> news:7F5B521C-3EB5-4BF1-88F3-(E-Mail Removed)...
> >> > 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
> >> >
> >> > "(E-Mail Removed)" 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 <manfar...@discussions.microsoft.com>
> >> >> 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
> >> >>
> >> >>
> >>
> >>
>
>