how to stop/ restart macro after selecting from autofilter list

  • Thread starter ronnie davidson
  • Start date
R

ronnie davidson

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

broro183

Hi Ronnie,

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

Dim StringToFind As String
StringToFind = InputBox("Please enter your string to find", "String t
Find")

'To end sub if "cancel" was pressed sourced from _
http://www.excelforum.com/showthread.php?t=466059&highlight=vbcancel+inpu
& http://vb.mvps.org/tips/varptr.asp
If StrPtr(StringToFind) = 0 Then
MsgBox "no string to find entered"
GoTo ExitSub
Else
End If

Range("a1", ActiveCell.SpecialCells(xlLastCell)).AutoFilter Field:=1
_
Criteria1:="=*" & StringToFind & "*"

Have a play with this & see if it works for you. To set the column fo
filtering, change "Field:=1," to another #. NB, 1 is not necessaril
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 cu
key)that will do things like filter for contents of active cell
blanks/ your input etc, let me know & I can post my toy!
Or for something more bulletproof but potentially slower try searchin
for Ron DeBruin's EasyFilter addin.

hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience..
 
Top