software

How do I stop and restart macro after selecting item from an autofilter list

As always post your coding efforts for comments

--
Don Guillett
SalesAid Software

quot;ronnie davidsonquot; lt;ronnie gt; wrote in
message ...
gt; How do I stop and restart macro after selecting item from an autofilter
gt; list

Hi Ronnie,

I agree with Don, it is much easier to offer suggestions when we can
consider what you already have. However, in saying that, from what you
have stated, I'd suggest incorporating the filtering action into the
existing macro amp; entering the value using an input box eg:

Dim StringToFind As String
StringToFind = InputBox(quot;Please enter your string to findquot;, quot;String to
Findquot;)

'To end sub if quot;cancelquot; was pressed sourced from _
www.excelforum.com/showthread...vbcancel input
amp; vb.mvps.org/tips/varptr.asp
If StrPtr(StringToFind) = 0 Then
MsgBox quot;no string to find enteredquot;
GoTo ExitSub
Else
End If

Range(quot;a1quot;, ActiveCell.SpecialCells(xlLastCell)).AutoFilter Field:=1,
_
Criteria1:=quot;=*quot; amp; StringToFind amp; quot;*quot;

Have a play with this amp; see if it works for you. To set the column for
filtering, change quot;Field:=1,quot; to another #. NB, 1 is not necessarily
col A, it is the first column with a filter on it.
If you would like a complete macro (which can be linked to a short cut
key)that will do things like filter for contents of active cell/
blanks/ your input etc, let me know amp; I can post my toy!
Or for something more bulletproof but potentially slower try searching
for Ron DeBruin's EasyFilter addin.

hth
Rob Brockett
NZ
Always learning amp; the best way to learn is to experience...--
broro183
------------------------------------------------------------------------
broro183's Profile: www.excelforum.com/member.php...oamp;userid=30068
View this thread: www.excelforum.com/showthread...hreadid=530479