Rabu, 28 September 2011

[ExcelVBA] Re: I'm not very good at this.

 

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]
>

__._,_.___
Recent Activity:
----------------------------------
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

----------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Tidak ada komentar:

Posting Komentar