Hi
The Macro would be like this:-
Selection.AutoFilter
ActiveSheet.Range("$H$1:$H$16").AutoFilter Field:=1, Criteria1:="<>Expired" _
, Operator:=xlAnd
You can change the coloum from "H" to your respective head coloum and the last row # from `16 to your last row.
--- In ExcelVBA@yahoogroups.com, <david.smart@...> wrote:
>
> The easiest way is to use an auto filter. Turn it on in your heading
> row, then select a custom filter in the drop-down for your column and
> select "does not equal" in the left hand drop down and select "Expired"
> in the right hand drop down.
>
> The filter will then hide the Expired rows.
>
>
> Regards, Dave S
>
>
>
> ________________________________
>
> From: ExcelVBA@yahoogroups.com [mailto:ExcelVBA@yahoogroups.com] On
> Behalf Of dmrosy
> Sent: Wednesday, 28 September 2011 09:18
> To: ExcelVBA@yahoogroups.com
> Subject: [ExcelVBA] I'm not very good at this.
>
>
>
>
> I'm not sure even how to approach this. Maybe someone could give a
> jumpstart and I can take it the rest of the way.
>
> My spreadsheet contains columns of information about stock options. One
> of the colums has information as to whether the option ism open, closed
> or expired. What I want to do (and undo) is if an entry in this column
> reads "expired" I'd like to hide the entire row and do this to the
> entire spreadshhet.
>
> Thanks for your thoughts.
>
>
>
>
>
> ----------
>
> Visit our website at http://www.ubs.com
>
> This message contains confidential information and is intended only
> for the individual named. If you are not the named addressee you
> should not disseminate, distribute or copy this e-mail. Please
> notify the sender immediately by e-mail if you have received this
> e-mail by mistake and delete this e-mail from your system.
>
> E-mails are not encrypted and cannot be guaranteed to be secure or
> error-free as information could be intercepted, corrupted, lost,
> destroyed, arrive late or incomplete, or contain viruses. The sender
> therefore does not accept liability for any errors or omissions in the
> contents of this message which arise as a result of e-mail transmission.
> If verification is required please request a hard-copy version. This
> message is provided for informational purposes and should not be
> construed as a solicitation or offer to buy or sell any securities
> or related financial instruments.
>
>
> UBS reserves the right to retain all messages. Messages are protected
> and accessed only in legally justified cases.
>
> [Non-text portions of this message have been removed]
>
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Tidak ada komentar:
Posting Komentar