Dear GoldenLance,

Thank you very much for your great sugestion..

user just *selects/activates a cell* where the criteria is written, and run
the macro...

kindest regards,
STDEV(i)


On Sat, Jun 4, 2011 at 5:57 PM, GoldenLance <samde...@gmail.com> wrote:

> Just a minor tweak to STDEV(i)'s code. Based on the original subject,
> I might change *sCriteria* = "MyCriteriaText" to sCriteria = *
> ActiveCell.Value*
>
> On Jun 4, 2:24 pm, "STDEV(i)" <setiyowati.d...@gmail.com> wrote:
> > please check and try this VBA code if it helps....
> >
> > Sub DoSomething()
> > *   ' siti Vi*
> >    Dim w As Worksheet, xCel As Range
> >    Dim sCriteria As String
> >
> >    sCriteria = "MyCriteriaText"  '<< please edit
> >    For Each w In Worksheets
> >       If Not w.Name = ActiveSheet.Name Then
> >          If Not LCase(w.Name) = "home" Then
> >             For Each xCel In w.UsedRange
> >                If xCel.Value = sCriteria Then xCel.Clear
> >             Next xCel
> >          End If
> >       End If
> >    Next w
> > End Sub
> >
> >
> > On Sat, Jun 4, 2011 at 11:47 AM, sswcharlie <swch...@gmail.com> wrote:
> > > Hi
> > > Part of a another code -
> > > I want to find the value(text) in active cell (value changes often) in
> > > workbook (except current WS and one other worksheet 'home") and
> > > delete. Could be more than one instance.
> > > Thanks
> > > Charlie
>
>

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to