macro filter excel 2003

[max_max]

Hello everyone.
I have created here at home with excel 2007 these macros that filter a column B. Here at home do not give problem.
In my office with Excel 2003 does not work with.
In the settings of Excel 2003 worksheet protection > flag = automatic filters but then this setting disappears in excel 2003.
A help?
I hope I explained
max_max

FILTRA_2003.xls

[LJMetzger]

Hi max_max,

If I understand correctly, you want to be able to use AutoFilter both manually and from the CommandButtons.

Try changing the Macros to (changes in red):

Please Login or Register  to view this content.

The above code worked for me in both Excel 2003 and 32 bit Excel 2010. To get non-blanks when accessing manually in Excel 2010, I had to Select All, then Unselect Blanks.

If you need different protection, try using the Macro Recorder as a guide.

Lewis

P.S. I should be finished with an answer to your other thread today or tomorrow.

[max_max]

Hello Lewis.
Thanks I try new macro morning in the office.
Meanwhile, I thank you again.
max_max

[max_max]

Hello Lewis,
I tried your edit and work.
Thanks again.
Greetings from Italy.
max_max

[max_max]

Hello
I added a warning at the beginning of the macro:
if there is nothing to filter the macro stops and exits
but if there is something in the range of the macro filters the range
but does not turn, it gives runtime error 13 type mismatch.
The macro:

Please Login or Register  to view this content.

A help?
Thank you in advance.
max_max

[LJMetzger]

Hi,

You can't test whether a range is empty using the following code:

Please Login or Register  to view this content.

There is probably a better way, but I read each cell (trim() removes leading and trailing spaces). If the length of the string after trim() is ZERO, then I consider the cell to be EMPTY.


Try this:

Please Login or Register  to view this content.

[max_max]

Hello lewis,
Thank you for the quick reply.
In the notice (avviso) must be only one button to exit the macro.
max_max

[LJMetzger]

Try:

Please Login or Register  to view this content.

[max_max]

After "ok" filter opens.
max_max

FILTRA_2003_new.xls

[LJMetzger]

Sorry,

Please Login or Register  to view this content.

[max_max]

Thank you Lewis,
now it's OK.!
A greeting.
max_max

[max_max]

Hello,
because I like to try other solutions I'm trying this macro with If - Elseif
but no works. Is the wrong solution or I am wrong?
A help?
The macro:

Please Login or Register  to view this content.

Thanks in advance.
max_max

[LJMetzger]

Hi,

The easiest way to debug is to have a lot of intermediate values.

Debugger Secrets:
a. Press 'F8' to single step (goes into subroutines and functions).
b. Press SHIFT 'F8' to single step OVER subroutines and functions.
c. Press CTRL 'F8' to stop at the line where the cursor is.
d. 'Left Click' the margin to the left of a line to set (or clear) a BREAKPOINT.
e. Press CTRL 'G' to open the IMMEDIATE WINDOW. 'debug.print' statements send their
output to the IMMEDIATE WINDOW.
f. Select View > Locals to see all variables while debugging.
g. To automatically set a BREAKPOINT at a certain location put in the line:
'Debug.Assert False'
h. To conditionally set a BREAKPOINT at a certain location put in lines similar to:
if i >= 20 and xTV20 > 99.56 then
Debug.Assert False
endif
i. A variable value will be displayed by putting the cursor over the variable name.

To manually set a breakpoint, see http://www.wiseowl.co.uk/blog/s196/breakpoints.htm

-----------------------
Good try, but you are trying to make things too complicated. You don't need both IsEmpty and CountA.
a. CountA returns the number of non-empty cells.
b. CountA("B2:B20") should be CountA(Range("B2:B20"))
c. Because the Odd numbered cells contain formulas, CountA will NEVER be ZERO. It does not look like CountA can be used.


SpecialCells is something that can be used, but requires a lot of code:

Please Login or Register  to view this content.

For more information about 'SpecialCells' see https://msdn.microsoft.com/en-us/lib.../ff196157.aspx

I hope this helps.

[max_max]

Hello Lewis,
is becoming too complicated, my knowledge of VBA is simple.
I thank you for your work, but for me it's too complicated.
A greeting.
max_max